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1/O TEST INDEX | | “MONITOR CONTROLLED 1/0 TEST NORMAL OPERATION SUMMARY 8 —t™S Pa PIN 2191291 | — 


FCR PAPER TAPE~MOUNT MONITOR TAPE IN TAPE READER AND MAKE READY. (THE RELOCATING LOADER 1S AHEAD . 
GF MONITOR ON THE MONITOR TAPE). PRESS STOP, RESET AND PROGRAM LOAD, MONITOR WILL LOAD AND STOP FOR 
LOADING THE NEXT 1/0 TEST TAPE. MOUNT NEXT 1/0 TAPE, SET SWS O AND 8 ON FOR SINGLE 1/0 TEST OR SWS — 
0,8,9 AND 15 ON FOR OVIRLAP, AND THEN PRESS INTERRUPT REQUEST KEY. BRANCH TO ITEM 3. 


FOR CARD SYSTEM-PLACE RELOCAVING LOADER, FOLLOWED BY MONITOK 1) AND 1/0 TESTS IN THE DESIRED RUN 
SEQUENCE IN THE CARD READER AND MAKE. READER READY, . 


A. TO RUN TESTS ON AN INDIVIDUAL TEST BASIS, PLACE A BLANK CARD AFTER EACH 1/0 TEST DECK, . 
B. TO RUN. TESTS IN OVERLAP HODE, PLACE A BLANK CARD AFTER THE LAST 1/0 TEST DECK, 
C. TO STOP MONITOR AFTER ALL PROGRAMS ARE LOADED, PLACE BIT SW 15 ON BEFORE LOADING, 

PRESS STOP, RESET AND PROGRAM LOAD, 


A STATUS MESSAGE WILL PRINT CUT AFTER EACH 1/0 TEST 1S LOADED. THIS MESSAGE WILL INDICATE LOADING 


SEQUENCE NUMBER OF THE TEST, THE PROGRAM ID (PID) NUMBER, THE STARTING ADDRESS IN STORAGE AND THE 
RELOCATION FACTOR, 


CONTRCL OPTIONS MAY BE ENTERED AT ANY TIME. THIS 1S FUNCTION O AND JS EFFECTIVE WHEN BIT SWITCH O. 
AND | ARE OFF, IF BIT SWITCHES 4,5,6 AND 7 ARE OFF MONITOR 1S ADDRESSED BUT WHEN THESE — - 
SWITCHES ARE SET TO A LOADING SEQUENCE NUMBER, THAT 1/0 TEST IS BEING ADDRESSED. CONTROL OPTIONS 
AND SWITCH SETTINGS ARE; _— 


8 - RESTART 10 = LOCK ON FUNCTION 12 = LOOP ON ERROR (ONCE PER ERROR) 14 = HALT ON ERROR 
9 - PRINT RTN 1D 11 = LOOP ON PROGRAM 13 - BYPASS ERROR PRINT OUT 15 = WALT 

TO STOP ALL PROGRAMS, PRESS PROGRAM STOP, MONITOR WILL WAIT (3001) AT ADDRESS O4OC. | 

TO RESTART AFTER PROGRAM STOP, PRESS PROGRAM START. MONITOR HAS SAVED THE STATUS OF TESTS. 


TO STOP ANY ONE PROGRAM (WHILE OVERLAPPING), SET BIT SWS TO ONO] AND PRESS INT, REQ. KEY. N=LOAD 
SEQUENCE NUMBER 


TO RESTART ANY ONE PROGRAM, SET BIT SWS TO ON80 AND PRESS INTERRUPT REQUEST KEY. N = LOAD SEQUENCE NUMBER 
. ERROR TYPE OUTS ARE EXPLAINED IN SECTION 4.2 OF EACH 1/0 DESCRIPTION, | 
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RUN FUNCTION] SEF TABLE BELOW FOR | 
TESTS FOR SUGGESTED OVERLAP | PID 
UNITS TO BE SEQUENCE. : 309 
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INITIALIZE 


SEE NOTE YES HALT NON- CE DISK PACK 10. AS EACH TEST REACHES ITS NORMAL END A MESSAGE WILL BE TYPED OUT, FOR EXAMPLE XXXX END, WHERE XXXX = PID. 

ABOVE THE FAILING FOR DISK ’ | 

I/O SUMMARY TESTS i NOTE: THERE ARE TIME DEPENDENT DEVICES WHICH MUST BE SERVICED WITHIN A SPECIFIED TIME LIMIT AFTER AN 
TABLE. | 


INTERRUPT OCCURS. IF THESE LIMITS ARE NOT COMPLIED WITH, DATA WILL BE LOST BETWEEN THE PRO- 
CESSOR AND THE 1/0 DEVICE. THESE TYPES OF ERRORS OCCUR WHEN ANOTHER DEVICE'S PROGRAM KEEPS 
CONTROL IN MAINLINE OR INTERRUPT ROUTINE FOR EXTENDED PERIODS OF TIME. i 4 : 


PROGRAMS WITH A HIGH RATE OF INTERRUPTS MAY CAUSE OTHER PROGRAMS TO LOSE MAINLINE CONTROL. 












— SELECTIVE THIS LOSS OF CONTROL BETWEEN AN X10 READ, WRITE OR CONTROL AND AN XIO SENSE DEVICE MAY CAUSE 
| RUN SCA NO bare To FALSE CSW ERRORS. THIS TYPE OF ERROR SAYS THE DEVICE SHOULD HAVE BEEN BUSY AND NOT READY. 
TESTS FAILURE THE PROBLEM IS THE DEVICE HAS COMPLETED IT'S OPERATION, DROPPED BUSY AND BROUGHT UP READY 
INDIVIDUALLY 


COMBI NATION BEFORE CONTROL WAS REGAINED BY THE PROGRAM INDICATING THE ERRCR. 


IF ANY OF THE TYPES OF ERRORS ABOVE ARE SUSPECTED IN OVERLAP, 8UN THE FAILING TEST ALONE TO 
CHECK FOR TRUE ERRORS. 3 | 


ANY 


FAILURES ROUTINE 






NO 1/0 SUMMARY TABLE 
aa (SOLATE NO RELOCATING LoaDeR = Wauz [3a [340 
tc GL ate 3 CARD LOADER FOR MONITOR 11 





RELOCATING LOADER PAPER TAPE 
| MONITOR 11 
| KEYBOARD PRINTER 
O ot 


PAPER TAPE LOADER IN FRONT OF MONIT | 
ON PAPER Fabee eae 


PROVIDES BASIC CONTROL FOR ALL 1/0 PROGRAMS. 
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FOR MANUAL KEYBOARD TESTS SEE SECTION 3.2.3. 


Kf 
wi 
°o 


YES 


PID TIMING | 1627 PLOTTER (SEE NOTE) | 
bik al cet DISK INITIALIZATION | 
DISK FUNCTION TEST 
PAPER TAPE 


FOR MANUAL CONTROL SEE SECTION 3.2.3. . 


FINISH: 


USE ONCE TO INITIALIZE FE DISK PACK. 


i 


YES USE ONLY DISKS WHICH HAVE BEEN INITIALIZED. 


~< 
momim 
nn 


750 TAPE MAY BE REPRODUCED BY FUNCTION 1 J 


MAINTENANCE- ‘| 1132 PRINTER 
CHECK 1442 
READ/PCH 1442 FUNCTION TEST 


TIMING 


YES 4 MIN USE CARRIAGE TAPE WITH 16 OR FEWER PUNCHED HOLES | 
1400 YES NOT FIXED ROUTINE 1-PUNCH AND FEED WILL PUNCH ONLY INTO 


BLANK CARD 
1650 ENTER 1442 MGDEL-8105,8106 OR 8107. 
| 1600 NO RESET FAST PASS OPTION RUNS ONE (1) MINUTE. 
1550 


| 









300 zi9i201 
KB/PRINTER | 219124) 
1627 PLOTTER 2191237 


Gos[oise rt. idgaf OCS 


COMMENTS 





3A8 
3AC 
300 
305 
30C 
| 30F 
32 


NOT FIXED 


1442 TIMING TEST 
SCA INSTRUCTION F.T. 


SCA WRT/RD BUF, LINE NOISE DET. 






ate 
eae 


— 
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wn 


YES = S MIN 
YES 





Cae TEST 30 SECONDS AND LINE LISTENING 10.5 
t : 


SCA WRAP-AROUND TEST 5 MIN | NO RESET, FAST PASS OPTION ONE MINUTE 


P/N 
ob | PAPER TAPE 2191233 
1132 PRINTER 219122) 
34] i231 onPR | 2243554 


} 
140% PRINTER a te 


Nor 


F 
311 
E ‘TWO MINUTES 1S MIN. OPTIONAL TIME INDEFINITE 


SCA TRANSMIT/RECEIVE 
SCA DISPLAY PROGRAM 2 AF 
A2501/ 1642 6-8 Px | 


NOT FIXED 


NOT FIXED |.LOAD WITH RELOCATING LOADER 


318 | SCA PROGRAM INSTRUCTION | 2191297 ONLY SCA TEST FOR OVERLAP : 


eA ae 23 3el dd EITHER PROGRAM BUT | 
, 1442 - vi, VI 2191225 | NOT BOTH 


3A 
308 
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YES. 
YES 


NOT FIXED 
NOT FIXED 





314 
300 


SCA=BSC-PT-TO=PT | 317 2500 | wo | NOT FIXED 
3 | | 2500} No | NOT FIXcD 
WILL NOT OVERLAP WITH ANY OTHER SCA PROGRAM . | a : . 
wire = AVAILABLE FOR CARD INPUT ONLY DATE APR 66 SEP 66 ° JAN 67 FEB 67 JUN 67. WAY6B EN OVS BAPRG? ISJUL G9 wo AUGGS PROG ID 
EC WO. 4154908 = WIseg0c 419643 =—-419656 = RED 420317 420411 571002 $71036 _$71013. 571053 PAGE OA 
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USE CONTROL SHEET 





123] OPTICAL MARK PAGE ROR F.T, 
143 FLT, 









WES: 3 MIN USE CARRIAGE TAPE CALLED OUT IN SECTION 5.3 
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MON!TOR CUNTROLED J/O TEST INDEX 
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OTE 1-00 | p/w 2191201 
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DISK ICENTIFY 
09 STCOACE AD LCOP On 
P/te 2191213 FAILIKG 
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| NOTE 
1627 ISCLATE 
05 PLOTTER AS 
P/N 2191237 REFAIR 
FAILURE 
‘OTE 2 | 
1442 
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SYSTEM 
1S OK 
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SELECTIVE 


1442 
TIMING 
P/N 2191229 


MAIKTERSKCE} 
CHICK 1442 
REAS/ PCH 
TIKiRG 


BASIC LoaceR 
Pre 2193253 
METER 
TEST 
P/M 2151249 


OVERLAP 
UNTIL 
FAILURE 








DISK 
INITIALIZE 
F/M 2191217 | 


INITIALIZE 
E DISK PACK 
FOR DISK 
STORAGE TEST 





PROGRAM IDEXTIFICATION WO, 


1442 TEST DECKS SHOULD BE 
FOLLOWED ONLY BY BLANK ‘ARDS. 


IF NECESSARY USE NONWOVEKLAP 
BAINTERAMCE PROG OR ROUTINES 
TO HELP DIAGNOSE FAILURE, 
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MONITOR CONTROLED J/0 TEST NORMAL OPERATION SUMMARY 


12. 


PLACE MONITOR, FOLLOWED 8Y I/O TESTS TO BE RUN, IN 1442. ©0 NOT EXCEED TOTAL AVAILABLE SORE STORAGE, SEE TABLE BELOW. 
PLACE BLANK CARD AFTER LAST TEST DECK. 
PROGRAM LOAD. MoniTOR WILL LOAD, TYPE OUT AOOO0 LD, THEN WAIT IW A LOOP FOR 1/0 PROGRAM LCADINGS INSTRUCTIONS. 


THE 1/0 TESTS MAY BE RUN IN ANY ONE OF THREE MODES SHOWN BELOW. SELECT TYME DESIRED RUNNINGS MODE BY SETTING THE BIT 
SWITCHES AND PRESSING THE INTERRUPT REQUEST KEY WITH CONSOLE/KEYB6D SWITCH SET TO COWSOLE. 


0060 OVERLAP OOAO SINGLE PROGRAM, LOAL ANC GO OO20 SINGLE PROGRAM WAIT BEFORE EXECUTE 
THIS IS TRE NORMAL MAINTENANCE USE ThiS MODE WHEN DcVICES ARE USE THIS MODE ONLY WHEN SPECIAL 
TESTING MOCE. ALL PROGRAMS WILL TO BE RUM SINGLY. EACH PROCRAM 1/0 TEST OPTIONS OR ROUTINES ARE 
LOAD AND TYPE OUT THE STARTING WILL LOAD AHD BEGIN EXECUTION. TO BE SET UP PRIOR TO) THE BEGINNING 
CORE LOCATION OF EACH TEST. © WHEN THE PROGRAM REACHES STS ENO OF PROGRAM EXECUTION. PROGRAM WILL 
AN END MESSAGE WILL BE TYPED OUT LCAD, THEN WAIT IN MONITOR LOOP FOR 
SET BIT SW TO 0089 AND PRESS INT AND THE NEXT PROGRAM WILL LOAD OPTIONS TO BE ENTERED: SEE 1/0 
REQUEST TO BEGIN EXECUTION, AND BECIN EXECUTION. DESCRIPTICKS FOR OPTIONS. 


AFTER OPTIONS HAVE BEEN ENTERED SET 
BIT SW TO: CCE&D AND PRESS INT 
REQUEST TO BEGIN EXECUTION. 


CONTROL OPTIONS MAY BE ENTERED AT ANY TIME DURING PROGRAM EXECUTION: SEE DESCRIPTION. THE FOLLOWING CPTIONS WILL CONTROL 
ALL 1/0 PROGRAMS BEING RUN. TO CONTROL ONLY INDIVIDUAL PROGRAMS SFE SUMMARY TBL OR INDIVIDUAL DESCRIPTION, 


2099 LOOP ALL PROGRAMS 

0x3 LOOP AMY FAILING PROGRAM OW ERROR 

C7f4 BYPASS ALL ERROR PRINTOUTS 

0252 HALT ALL PRCGRAMS UN ERROR 

PORE BYPASS ALL ERAXOR PRINTOUTS AND LOOP ANY FAILING PROGRAM ON ERROR 
ns: 


QCEQ RESET ALL CONTROL OPTIONS 
1/0 SUMMARY TABLE 
proc | CORE | OVER- ILQOP | BYPASS | LOOP 
TEST WORDS PROGRAM | PRINTOUT | ROUTINE SREG TAL. “TMS TRUE TCHS 
| | PROWIDZS BASIC CTRL FCR ALL 1/0 PROGRSHS . 
KE YROARD 4 | 1000 {| YES | FOR MAMJAL KEYS9 TESTS SEE SECT 3.2.4. 
PLOTTER 5 ae fs | osio | 0508 0520 FOR MANUAL COKTROL SEE SECT 3.7.2.C. 
B 700 


0B20 READER ONLY= GEC2: PCH ONLY= G8Cl. 

















0C20 INSTALL TEST CARRIAGE TAPE, P/4 2LQVLZTE 
USE INITIALIZED FE D!SK PACK ONLY. 


1442 Function | F | 105¢ | yes | 19-20 orio | oFc8 OF20 | LOAD ONLY BLANK CARDS AFTER DECK, 


DISK INITIALIZE 5 MIN | 0810 USE CNCE TO INITIALIZE FE DISK PACK, 
1442 TIMING ar | - | wo [nor Fixeo] - | ENTER 1442 MODEL: AFC6 OR AFO7. 


TO STOP ALL PROGRAMS PUSH PROGRAM STOP; MONITOR WILL WAIT (30FF) AT ADDRESS 0254. 
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TO RESTART ALL PROGRAMS PUSH PROGRAM START. 
TO STOP ANY ONE PROGRAM (WHILE OVERLAPPING) SET BIT SW TO “00x. X = PROGRAM 1D MUMBER. 
TO RESTART (RESELECT) ANY ONE PROGRAM SET BIT SW TO 4O8X, X = PROGRAM ID NUMBER. CXECUTE (0089) IF PROGRAM DOES NOT START. 


ERRORS ARE TYPED OUT AS FOLLUWS: 
EOXNN OORR 
X m= PROT 1D KIMBER - ERROR WAS CETECTED BY PROGRAM KX. 


WN @ ERROR 'D NUNEER - *. FER TO PROG X DOCUMENTATION FOR ERKOR DESCRIPTION. 
RR = ROUTINE NUHBES (IN PROG X) IN WHICH FAILURE WAS DETECTED. 


13. AS EACH TE.T REACHES ITS NORMAL END AN EWD MESSAGE WILL BE TYPED AS FOLLOWS: 


AOXHN ENDS 
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HOW DOES A TEST PROGRAM REQUEST CONTROL FROM THE MONITOR 
MAIN LINE SEQUENCE CONTROL 

HOW DOES MONITOR AGAIN OBTAIN CONTROL 

HOW ARE TEST MESSAGES PRINTED 


ROUTINE DESCRIPTION 
RELOCATING LOADER 
SUPERVISOR ROUTINE 
INTERRUPT ROUTINE 
BIT SWITCH ROUTINE 
MESSAGE LOG ROUTINE 
END ROUTINE 

HALT ROUTINE 


LSNUV66 
419643 


LSJUN67 
420317 


OLAPR69 PRIG ID 
571036 PASE 


PART No. 


a 7 . 
\ / LJ 


2191202 


l 


0300-* 
1 


UVEAGNUSTIC MONITOR II 


VATE 
EC NU. 


ria ee 
Od 


13M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


a 
? w 


PART "J. 2191202 
PAGE LA 


le PURPOSE 


THE DIAGNOSTIC MONITOR IS A CONTROL PROGRAM DESIGNED TO PROVIDE OVERLAP 
CAPABILITY AND TO HANDLE MANY PROGRAM FUNCTIONS WHICH ARE COMMON TO ALL OF 
THE TEST PROGRAMS. 


2e PREREQUISITES 
2.1 PROGRAM PREREQUISITES 


le THIS PROGRAM MUST BE LOADED BY ONE OF THE DIAGNOSTIC LOADERS. 
A. O3AA — 1442 RELOCATING LOADER 
Be. O3AC - 1134 RELOCATING LOADER 
Ce. O3AB — 2501 RELOCATING LOADER 

2e ALL PROGRAMS TO RUN UNDER CONTROL OF THIS MONITOR MUST BE a 
DIAGNOSTIC MONITOR II FORMAT. 


202 EQUIPMENT PREREQUISITES 


1130 WITH INPUT FROM CARDS OR PAPER TAPE. 
3. OPERATING PROCEDURE 





3.1 ¥*#* PROGRAM LOADING 
3e1.1 FROM CARDS 


PLACE THE MONITOR AND THE PROGRAMS TO BE LOADED UNDER MONITOR CONTROL 
IN THE READER» THE MONITOR MUST BE PRECEEDED BY A RELOCATING LOADER. 
PLACE THE READER IN READY CONDITION. PRESS THE 1131 RESET THEN 
PROGRAM LOAD. THE CARDS WILL LOAD UNTIL A BLANK CARD IS ENCOUNTERED. 
OR THE READER GOES NOT READY. 


IF A BLANK CARD IS PLACED AFTER EACH -TEST PROGRAM DECK, EATH PROGRAM 
WILL LOAD, EXECUTE, THEN CALL IN THE NEXT PROGRAM UNTIL THE READER 

BECOMES NOT READY. IF TEST DECKS ARE NOT SEPARATED BY A BLANK CARD, 
ALL PROGRAMS PLACED IN THE READER WILL BE LOADED ANO RUN IN OVERLAP. 
A MAXIMUM OF FIFTEEN (15) PROGRAMS CAN BE LOADED AND RUN IN OVERLAP. 





NOTE — If THE LAST CARD IN THE READ HOPPER IS NOT A BLANK CARD, THE 
READER WILL GO NOT READY BEFORE THE LAST PROGRAM CARD IS READ 
AND THE LOADER WILL STOP AT WAIT 30F8. TO CONTINUE, PRESS THE 
READER START AND THE 1131 START. | 


~3ele2 FROM PAPER TAPE 


PLACE THE MONITOR TAPE ON THE 1134 PAPER TAPE READER (THE 1134 
RELOCATING LOADER, O3AC, IS INCLUDED AS THE FIRST RECORD ON THE 
MONITOR TAPE). MAKE THE READER READY. PRESS THE 1131 RESET THEN PRO- 
GRAM LOAD. THE MONITOR WILL LOAD, THEN STOP TO ALLOW LOADING OF 

THE FIRST TEST PROGRAM TAPE. 


WHEN THE NEXT TAPE IS READY TO LOAD, SET BIT SWITCHES O AND 8 ON IF 
LOADING A SINGLE PROGRAM, OR SWITCHES Oy 8, 9 AND 15 ON IF LOADING 
OVERLAP, THEN PRESS THE INTERRUPT REQUEST KEY. THIS WILL CAUSE THE 
NEXT TAPE TO LOAD. THE ABOVE PROCESS MUST BE REPEATED FOR EVERY 

TAPE TO BE LOADED IN OVERLAP. A MAXIMUM OF FIFTEEN (15) PROGRAMS CAN 
BE LOADED IN OVERLAP. 


32123 LOAD AND GO — LOADING IS NGRMALLY LOAD AND GO WHETHER LOADING ONE 
PROGRAM OR SEVERAL PROGRAMS IN OVERLAP. 


32124 PAUSE BEFORE EXECUTE-TO PAUSE BEFORE EXECUTING THE PROGRAM(S) LOADED, 
TURN BIT SWITCH 15 ON BEFORE LOADING THE PROGRAM. THIS WILL TURN JN 
THE HALT SWITCH FOR EACH PROGRAM LOADED. TO START ALL PROGRAMS SET 
SWITCHES O-7 AND 15 OFF, SWITCH 8 ON, SWITCHES 9-14 FOR DESIRED CQON- 
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VIAGNUSTIC MONITOR II 


DATE 
EC NU. 


TROL THEN PRESS THE INTERRUPT REQUEST KEY ON THE 1131 CONSOLE. TO 


START ANY SINGLE PROGRAM FOLLOW ABOVE PROCEDURE WITH SWITCHES 4-7 
SET TO THE LOAD SEQUENCE NUMBER OF THE PROGRAM TO BE STARTED ( SEE 
SECTION 32223 FOR EXPLANATION OF LOAD SEQUENCE NUMBER). 


THIS START PROCEDURE IS IDENTICAL WITH RESTART 
AS OUTLINED IN SECTION 3.5. 


NOTE - 


TO LOAD AFTER INITIAL LGAD — ONCE THE MONITOR PROGRAM HAS BEEN LOADED 
IT IS POSSIBLE TO REQUEST AT ANY TIME THE LOADING OF ANOTHER PROGRAM 
OR PROGRAMS. AODITIONAL PROGRAMS CAN BE LOADED EITHER TO RUN 
INDIVIDUALLY OR IN OVERLAP WITH THE PROGRAM(S) PREVIOUSLY LOADED 
AND/OR IN OVERLAP WITH THEMSELVES. IF A SINGLE PROGRAM [S TO BE 
LOADED AND RUN ALONE, IT WILL TAKE THE PLACE IN CORE QF THE PRD- 
GRAM(S) PREVIOUSLY LOADED. THIS WILL BE TRUE EVEN WHEN THE PREVIOUS 
PROGRAMS WERE LOADED IN OVERLAP. IF ADDITIONAL PROGRAMS ARE LOADED IN 


OVERLAP, THEY CAN EITHER TAKE THE PLACE OF PROGRAMS PREVIOUSLY. LOADED 


OR THEY CAN BE LOADED TO OVERLAP WITH THE PREVIOUSLY LOADED PROGRAMS. 


1. THE LOAD REQUEST IS A FUNCTION 2 SWITCH ENTRY TO THE MONITOR. 
THIS MEANS THAT SWITCH O MUST BE ON AND SWITCHES 1-7 OFF TQ GIVE 
A LOAD REQUEST. SWITCH 8 IS THE LOAD SWITCH. SWITCH 9 IS THE CON- 
TINUE LOAD OR OVERLAP SWITCH. 


2e RELOAD — THE SWITCH SETTING FOR RELOAD IS 8080. THIS WILL CLEAR 
THE MONITOR OF CONTROLS FOR ALL PREVIOQUSLY LOADED PROGRAMS AND 
LOAD THE FIRST PROGRAM IN THE READER INTO CORE LOCATION O5DC 
(1500 DECIMAL). IF THIS FIRST PROGRAM IS TERMINATED BY A BLANK 
CARD, THE LOADING WILL STOP AFTER THAT PROGRAM IS LOADED. IF THIS 
PROGRAM IS NOT TERMINATED BY A BLANK CARD THE NEXT PROGRAM IN THE 
READER WILL BE LOADED. IF THE FOLLOWING PROGRAMS ARE RELOCATABLE, 
THEY WILL BE RELOCATED STARTING WITH THE FIRST EVEN ADDRESS AFTER 
THE LAST ADDRESS USED BY THE PREVIOUSLY LOADED PROGRAM. FOR THE 
PURPOSE OF PROGRAM IDENTIFICATION FOR SWITCH ENTRIES» THE FIRST 
PROGRAM IN THIS RELOADED DECK NOW BECOMES PROGRAM NUMBER ONE (1), 
THE SECOND IS NUMBER TWO (2), ETC. 


‘3e CONTINUE LOADING - 


THE SWITCH SETTING TO CONTINUE LOADING IS 80C0. THIS WILL CAUSE 
THE NEXT PROGRAM TO BE LOADED STARTING AT THE FIRST CORE POS- 
ITION FOLLOWING THE LAST ADDRESS IN THE PREVIOUSLY LOADED 
PROGRAM. THUS THE NEWLY LOADED PROGRAMS CAN BE RUN IN OVER- 
LAP WITH THE PREVIOUSLY LOADED PROGRAMS. 


3.2%*** PROGRAM OPERATION 


3-221 


O2JAN66 
415490 


ORGANIZATION OF CONSOLE ENTRY SWITCHES 


ALL CONTROL IS EXERTED ON THE TEST PROGRAMS AND THE MONITOR 

BY ENTERIES IN THE 1131 CONSOLE ENTRY SWITCHES. TO PROVIDE FLEX- 
IBILITY, THESE SWITCHES ARE DIVIDED INTO THREE GROUPS. SWITCHES 

O AND 1 ARE THE FUNCTION SWITCHES (F), SWITCHES 4-7 ARE THE 

PROGRAM IDENTIFICATION SWITCHES (P), AND SWITCHES 8-15 ARE THE DATA 
SWITCHES (D). SWITCHES 2-3 ARE NOT USED. 


Ll. FUNCTION SWITCHES (F) ARE USED TO IDENTIFY THE FUNCTION OF THE 
DATA ENTERED IN SWITCHES 8-15. THE SETTING OF THESE SWITCHES DE- 
TERMINES INTO WHICH OF THE 4 SWITCH WORDS IN THE PROGRAM CONTROL 
TABLE THE SETTING OF THE DATA SWITCHES WILL BE STORED. OF THE 
FOUR FUNCTIONS AVAILABLE, THE USE OF 2 HAS BEEN STANDARDIZED. 


Ae FUNCTION 00 IS USED TO SPECIFY THE PROGRAM CONTROL OPTIONS 
PROVIDED BY THE MONITOR. THESE ARE DISCUSSED IN DETAIL 
IN SECTION 3.24. , 


B. FUNCTION 01 IS USED BY EACH TEST PROGRAM TO SELECT A SPECIFIC 


ROUTINE. THIS IS DISCUSSED IN SECTION 3.2.5. 
15NOV66 15JUN67 O1APR69 PROG ID 
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THE PROGRAM IDENTIFICATION SWITCHES (P) ARE USED TO IDENTIFY THE 
SPECIFIC PROGRAM FOR WHICH THE INFORMATION IN THE DATA SWITCHES 
(0D) IS TO BE APPLICABLE. THE NUMBER TO BE USED TO IDENTIFY ANY 
PROGRAM IS DEPENDENT ON THE ORDER IN WHICH THAT PROGRAM WAS LOAD- 
ED, THE FIRST PROGRAM LOADED IS PROGRAM ONE(L), THE FIFTH PROGRAM 
LOADED IS PROGRAM FIVE (5), ETC. SWITCHES 4-7 ARE SET TO THE 
BINARY EQUIVALENT OF THIS PROGRAM NUMBER. THUS, TO ENTER DATA 

TO PROGRAM ly SWITCHES 445 AND 6 MUST BE TURNED OFF AND SWITCH 

7 TURNED ON. 


THE DATA SWITCHES (0) ARE USED TO ENTER SPECIFIC DATA INTO THE 
PROGRAM IDENTIFIED BY THE PROGRAM SWITCHES (P). THIS DATA IS | 
STGREO IN ONE OF THE 4 SWITCH WORDS IN THE PROGRAM CONTROL TABLE 
OF THE PROGRAM IDENTIFIED IN THE P SWITCHES. THE SPECIFIC WORD 
INTO WHICH THE DATA IS STORED IS DETERMINED BY THE SETTING OF THE 
FUNCTION SWITCHES (F). 


TO ENTER A SWITCH SETTING, PRESS THE INTERRUPT REQUEST KEY ON THE 
1131 CONSOLE. THE RESULTING LEVEL FOUR INTERRUPT WILL BE SERVIC- 
ED BY THE MONITOR READ BIT SWITCH ROUTINE. THE SWITCHES WILL BE © 
READ AND STORED BY THE INTERRUPT ROUTINE. 


SINGLE PROGRAM OPERATION 


l. 


2e 


LOADING - IF MORE THAN ONE TEST PROGRAM IS PLACED IN THE READER, 
EACH PROGRAM MUST BE FOLLOWED BY A BLANK CARD. 


COMMUNICATION TO PROGRAM — SET SWITCHES 4-6 OFF AND 7 ON FOR ALL 
COMMUNICATION WITH THE PROGRAM. NO COMMUNICATION TO THE MONITOR 
IS REQUIRED. 


OVERLAP OPERATION 


l. 


1 5NOV66 
419643 


a 
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LOADING - ALL PROGRAMS TO BE RUN IN OVERLAP MUST BE PLACED IN THE 
READER WITH NO BLANK CARDS BETWEEN THE PROGRAM. ALL PROGRAMS 
WILL BE LOADED INTO CORE STORAGE.’ A MAXIMUM OF 15 PROGRAMS MAY 
BE RUN IN OVERLAP. 


HALT AFTER LOADING ~- IF THE HALT SWITCH (SWITCH 15) [S ON DURING 
LOADING OF A PROGRAM, THE HALT SWITCH IN THAT PROGRAM WILL BE | 
SET. THUS AFTER THE PROGRAMS ARE LOADED, THEY MAY BE INDI- 
VIDUALLY STARTED OR ALL STARTED TOGETHER BY FOLLOWING THE RESTART 
PROCEDURES OUTLINED IN SECTION 3.5. 


COMMUNICATION TO PROGRAMS - TO COMMUNICATE TO AN INDIVIDUAL PRO- 
GRAM, ITS LOAD SEQUENCE NUMBER (PRINTED AS PART OF THE LOAD 
MESSAGE) MUST BE ENTERED IN SWITCHES 4-7. IF A CONTROL IS TO BF 
APPLICABLE TO ALL PROGRAMS, SWITCHES 4-7 MUST. BE OFF. 


EXAMPLE OF COMMUNICATION - IF THE DISC, CONSOLE KEYBOARD, AND 
1132 FUNCTION TESTS ARE TO BE RUN IN OVERLAP AND THEY ARE LOADED 
IN THE ABOVE ORDER, THEIR LOAD SEQUENCE NUMBERS WOULD BE AS 
FOLLOWS. 


TEST NUMBER 
DISC FT 1 
CONS/KEYBOARD 2 
1132 FT 3 


IF SWITCH 15 WAS ON DURING LOADING OF ALL PROGRAMS, NO PROGRAMS 
WILL START UNTIL A RESTART COMMAND IS GIVEN. 


ASSUME THE FOLLOWING CONTROL IS DESIRED, THE SWITCHES MUST BF 
SET AS SHOWN AND THE INTERRUPT REQUEST KEY PRESSED AFTFR EACH 
SWITCH ENTRY. 


CONTROL SWITCHES 


O1APR69 PRNG IN = -0300-« 
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SELECT ROUTINE 5 IN THE 1132 FT 4305 
SET LOOP PROGRAM ON 
CONSOLE /KEY BOARD FT 0210 
BYPASS ERROR MESSAGE PRINTOUT 
IN THE 1132 FT 0304. 
SET DISC FT TO PRINT 
ROUTINE START MESSAGE 
AND TO HALT ON ANY ERROR 0142 
START ALL PROGRAMS AND. 
SET TO LOOP ALL PROGRAMS 0090 
3.24 PROGRAM CONTROL _ FUNCTION O 
ALL FUNCTION 00 SWITCH ENTRIES REGARDLESS OF THE PROGRAM TO WHICH 
THEY REFER ARE SERVICED BY THE MONITOR. THUS, WITH THE EXCEPTION OF 
LOOP ON ERROR AND LOCK ON FUNCTION, WHICH ARE DEPENDENT ON SUPPORT 
ROUTINES IN THE INDIVIDUAL PROGRAMS, THE CONTROLS DISCUSSED HERE 
APPLY TO ALL MONITOR CONTROLLED PROGRAMS. 
1. THE MONITOR PROVIDES THE FOLLOWING CONTROLS 
As HALT - HALT THE PROGRAM AT THE COMPLETION OF THE PRESENT 
- OPERATION. WHEN THE HALT SWITCH IS TURNED OFF, THE PRO- 
GRAM WILL CONTINUE FROM THE POINT AT WHICH IT WAS STOPPED. 
Be RESTART — REINITIALIZE THE PROGRAM AND RESTART. If. A ROUTINE 
BEEN PREVIOUSLY SELECTED, THE PROGRAM WILL BE RESTARTED AT 
THE BEGINNING OF THIS ROUTINE. IF NO ROUTINE IS SELECTED, 
THE PROGRAM WILL RESTART WITH ROUTINE ONE. THE PROGRAM HALT 
SWITCH IS NOT TURNED OFF BY A RESTART TO ALL RPOGRAMS. 
THUS A HALTED PROGRAM WILL NOT RESTART. UNTIL ITS HALT 
SWITCH IS TURNED OFF. 
C. PRINT ROUTINE START MESSAGE -— BEFORE ANY ROUTINE IS STARTED; 
A MESSAGE MAY BE PRINTED IDENTIFYING THAT ROUTINE AND ITS 
STARTING ADDRESS.~ 
De LOCK ON FUNCTION — MANY OF THE PROGRAMS ARE WRITTEN TO INCOR- 
PORATE A LOCK ON RUNCTION IN MOST ROUTINES. IN THESE PRO- 
GRAMS, LOCK ON FUNCTION WILL INHIBIT THE DATA ADVANCE AND 
LOOP ON THE MAJOR ROUTINE FUNCTION. SEE THE DOCUMENTATION JF 
EACH PROGRAM TO SEE EXACTLY HOW THIS FUNCTION IS IMPLEMENTED 
IN THAT PROGRAM. 
E. LOOP PROGRAM — WHEN A PROGRAM GOES TO END THIS CONTROL WILL 
AUTOMATICALLY RESTART IT FROM ROUTINE 1. 
Fe LOOP ON ERROR -THE TEST DETECTING THE ERROR WILL BE LOOPED sn 
LONG AS THE ERROR PERSISTS. TO LOOP INTERMITTENT ERRORS, USE 
THE LOCK ON FUNCTION. 
Ge BYPASS ERROR PRINTOUT 
He HALT ON ERROR — THE PROGRAM WILL STOP AT WAIT 2. SINCE THIS 
WAIT IS FOLLOWED BY A BRANCH BACK TO THE WAIT, INTERRUPTS 
WILL NOT CAUSE THE PROGRAM TO CONTINUE. TO RECOVER FROM THIS 
HALT, TURN TO DISPLAY MODE, PRESS START ONCE THEN RETURN TO 
RUN AND PRESS START. | 
2. ALL OF THESE CONTROLS ARE ACCOMPLISHED BY A FUNCTION ZERO SWITCH 
ENTRY TO EITHER A SPECIFIC PROGRAM OR TO THE MONITOR. IF THE 
ENTRY IS TO BE TO THE MONITOR (SWITCHES 4-7 ALL OFF), THE CONTROL 
WILL APPLY TO ALL PROGRAMS. IF THE ENTRY IS TO A SPECIFIC PRO- 
GRAM THE CONTROL WILL APPLY TO THAT PROGRAM ONLY. 
TO SPECIFY THE DESIRED CONTROL, SET THE SWITCHES AS FOLLOWS. 
VATE O2JAN66 LS5NOV66  LSJUN67: OLAPR69 PROG ID 0300-* 
EC NUe (415490 419643 420317. PASE 3 
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DATE 
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8 RESTART 
9 PRINT RTN ID 

10 LUCK ON RTN 

11 LOOP PROGRAM 

12 LOOP UN ERROR 

13. BYPASS ERROR PRINTOUT 
14 HALT ON ERROR 

15 HALT 


PPPP IS 0000 IF THE CONTROL IS TO ALL PROGRAMS OR ITS 
EQUAL TO THE PROGRAM SEQUENCE NUMBER IF THE ey 
IS TO A i li PROGRAM. 


WHERE — 


THE PROGRAM SEQUENCE NUMBER IS DETERMINED BY THE 
ORDER IN WHICH PROGRAMS ARE LOADED —- THE FIRST PRO- 
EQUIVALENT OF THIS SEQUENCE NUMBER IS USED IN 

GRAM IS NUMBER 1, THE SECOND NUMBER 2, ETC. THE BI- 
NAR Y EQUIVALENT OF THIS SEQUENCE NUMBER IS USED IN 
SWITCHES 4-T. 


THUS THE SWITCH ENTRY 
0588 


WILL CAUSE THE FIFTH PROGRAM LOADED TO RESTART AND 
LOOP ON ANY DETECTED ERRGRS. THIS ENTRY WILL ALS) 
TURN OFF THE LOCK ON ROUTINE, LOOP ON PROGRAM, BYPASS 
ERROR PRINTOUT, HALT ON ERROR, AND HALT CONTROLS 
SHOULD ANY OF THESE HAVE BEEN SET ON BY A PREVIGUS 
SWITCH ENTRY. 


3. A CONTROL IS SET BY A SWITCH ENTRY HAVING THE SWITCH FOR THAT 
CONTROL ON. A CONTROL IS RESET BY A SWITCH ENTRY HAVING THE 
SWITCH FOR THAT CONTROL OFF. THUS» TO START AGAIN AFTER HAVING 
SET THE HALT SWITCH FOR A PROGRAM, A SWITCH ENTRY MUST BE MADE 
WITH SWITCH 15 OFF AND SWITCHES 0-7 SET AS THEY WERE WHEN THE 
HALT CONTROL WAS SET. 


4. TO ENTER THE SWITCHES AFTER THEY HAVE BEEN SETy PRESS THE 
INTERRUPT REQUEST KEY ON THE 1131 CONSOLE. THE RESULTING LEVEL 
4 INTERRUPT WILL BE SERVICED BY TH MONITOR READ BIT SWITCH 
ROUTINE. SINCE THE SWITCHES ARE READ IN INTERRUPT AND THE 
SETTINGS PLACED IN THE PROGRAM CONTROL TABLE IN INTERRUPT, 
THEY WILL GIVE IMMEDIATE CONTROL TO THE PROGRAM (SO LONG AS AN 
INTERRUPT IS NOT CONTINUALLY ON PREVENTING SERVICE OF THE CONSOLE 
INTERRUPT). 


OPTION SELECTION — FUNCTIONS 1,273 


FUNCTION SWITCH SETTINGS O1»10 AND 11 CAUSE THE DATA IN SWITCHES 8-15 
TO BE STORED IN SWl» SW2, OR SW3 RESPECTIVELY IN THE PROGRAM CONTROL 
TABLE OF THE PROGRAM IDENTIFIED IN THE PROGRAM SWITCHES. THESE SWITCH 
ENTRIES ARE INTERRIGATED BY EACH INDIVIDUAL vest PROGRAM TO PROVIDE 
APPROPRIATE CONTROL FOR THAT PROGRAM. 


1. ROUTINE SELECTION —- FUNCTION O2 [S USED BY ALL PROGRAMS FOR | a 
ROUTINE SELECTION. IF THE STANDARD TEST CONTROL ROUTINES ARE USED 
BY THE PROGRAM, THE ROUTINE SELECTION WILL FUNCTION AS FOLLOWS. 


A. ANY ROUTINE IS SELECTED BY SETTING INTO SWITCHES 8-15 THF BI- 
NARY EQUIVALENT OF THE HEXIDECIMAL NUMBER OF THAT ROUTINE. 
B. ONCE A ROUTINE IS SELECTED, THE PROGRAM WILL LOOP IN THAT 
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ROUTINE UNTIL ANOTHER ROUTINE IS SELECTED. 3. PROGRAM DELAY - THIS FEATURE WILL PROVIDE A DELAY BETWEEN EACH 

| INSTRUCTION EXECUTED IN MAINLINE, EFFECTIVELY SLOWING DOWN THE 
C. TO RETURN TO RUNNING ALL ROUTINES, THE SWITCHES SHOULD BE SET | TOTAL. OPERATION OF THE CPU. THIS FEATURE CAN BE USED TO SLOW 

AS IF SELECTING ROUTINE ZERO. THE ROUTINE RUNNING AT THE | DOWN THE OPERATION OF ANY I/O DEVICE BY DELAYING BETWEEN THE XI0 

TIME THIS ENTRY IS MADE WILL CONTINUE TO ITS NORMAL TERMINA- COMMANDS. 

TION, THEN THE NEXT ROUTINE IN THE NORMAL SEQUENCE WILL BE | 

RUN. | | | THE BASE DELAY IS APPROXIMATELY 125 USEC. THIS CAN BE INCREASFN 


IN INCREMENTS OF 25 USEC. 


NOTE - THE ROUTINE NUMBERING STARTS WITH ROUTINE 1. 
TO SET PROGRAM DELAY 


De IF AN INVALID ROUTINE NUMBER IS SET IN THE SWITCHES» THE 


CONTROL ROUTINE WILL RETURN TO RUNNING ALL ROUTINES, STARTING Ae SET THE BIT SWITCHES TO 8020, THEN PRESS THE INTERRUPT 
FROM THE FIRST ROUTINE. REQUEST KEY THIS WILL DISABLE THE ADDRESS STOP FEATURE. AND 
| TRANSFER THE INTERRUPT RUN INTERRUPT TO THE PROGRAM DELAY 
Ee WHEN A NEW ROUTINE IS SELECTED, THE PROGRAM WILL GO TO THAT ROUTINE. 
NEw ROUTINE IMMEDIATELY AFTER IF HAS SERVICED ALL PENDING 
INTERRUPTS. | Be PRESS PROGRAM STOP. 
2. OTHER TEST OPTIONS - WHILE THE USE OF FUNCTIONS 10 AND 11 HAS NOT C. SET THE CONSOLE MODE SWITCH TO INT RUN. 
BEEN STANDARDIZED, THESE FUNCTIONS HAVE MOST FREQUENTLY BEEN USED 
BY THE TEST PROGRAMS TO SPECIFY A FUNCTION WHICH IS TO BE PER- . : De SET THE BIT SWITCHES FOR THE DESIRED DELAY.’ MINIMUM DELAY IS 
FORMED REPEATEDLY AND TO ENTER NEW TEST DATA OR TEST PATTERNS. ALL SWITCHES OFF. THE TOTAL DELAY WILL BE APPROXIMATELY 
| . 125#25 WHERE D IS EQUAL TO THE DECIMAL EQUIVALENT OF THE 
342-6 SPECIAL MONITOR CONTROL | | BINARY SETTING OF THE SWITCHES. 
THREE SPECIAL CONTROL FEATURES ARE PROVIDED BY THE DIAGNOSTIC MONITOR Ee PRESS PROGRAM START - DO NOT PRESS RESET BEFORE PROGRAM 
THESE ARE PROGRAM STOP, ADDRESS STOPy AND PROGRAM DELAY. | START. INTERRUPT LEVEL 5 MUST BE ON WHEN STARTING IN INTE2- 


| RUPT RUN MODE FROM THE MONITOR HALT BOue anes 
le PROGRAM STOP — THE PROGRAM STOP BUSHBUTTON SHOULD ALWAYS BE USED 


IN FAVOR OF THE IMMEDIATE STOP WHENEVER IT IS DESIRED TO TEMPOR- 323%*** PROGRAM HALTS 
ARILY STOP THE OPERATION OF THE PROGRAM. PRESSING PROGRAM . | 
STOP WILL CAUSE A LEVEL FIVE (5) INTERRUPT, WHICH IS SERVICED BY 3e301 NORMAL HALTS 


THE MONITOR HALT ROUTINE. THE PROGRAM WILL STOP AT A WAIT IN THE | | a : | 
HALT ROUTINE AFTER ALL INTERRUPTS HAVE BEEN SERVICED. OPERATION | 7 7 shee Sk SIR SSE DC aml OY eR 


OF THE PROGRAM CAN BE RESUMED BY EITHER PRESSING PROGRAM START | fe Anew -. SSHALT NO. DESCRIPTION : RESTART | : 

OR BY PRESSING RESET THEN PROGRAM START. THIS SECOND START PRTU- © - < eS —2(B REG). “ “ACTION : 

CEDURE ALLOWS THE CE TO USE LOAD AND DISP MODES (SET BY CONSOLE i | —-===- grrr reer crn nnn nena ae ee : 

MODE SWITCH) TO LOOK AT AND/OR MODIFY ANY POSITION IN CORE | a = - 3001 . PROGRAM STOP OR ADDRESS STOP «PRESS ‘START ; 

BEFORE CONTINUING THE OPERATION OF THE PROGRAM. ALL CPU STATUS : : : : 

EXCEPT INDEX REGISTERS IS SAVED BY THE HALT ROUTINE AND RESTORED - 3002 . HALT ON ERROR ~ DISPLAY MODF-PRESS START. 

WHEN EITHER OF THE ABGVE START PROCEDURES IS USED. 2 : . RUN MODE-PRESS START ‘ 

2. ADDRESS STOP - THIS FEATURE WILL STOP THE PROGRAM ON ANY MAINLINE a x 
INSTRUCTION ADDRESS BEFORE IT IS EXECUTED. TO STOP AT A SELECTED | 

ADDRESS - 3.3.2 ERROR HALTS 

A. PRESS PROGRAM STOP poo Sasa ee eae eae ek eee eS Fn ee ena een ene Me eee . 

| | | sHALT NO. DESCRIPTION : RESTART : 

Be SET THE BIT SWITCHES TO THE DESIRED STOP ADDRESS -(B REG). . ACTION ‘ 

C. SET THE CONSOLE MODE SWITCH TO INT RUN. : . : : 

. - 30Fl . CHECK SUM ERROR ON FIRST - RELOAD ; 

UD. PRESS PROGRAM START — DO NOT PRESS RESET BEFORE PROGRAM ; - CARD OF THE LOADER. ‘ ; 

START. INTERRUPT LEVEL FIVE MUST BE ON WHEN STARTING IN . . . ; 

INTERRUPT RUN MODE FROM THE MONITOR HALT ROUTINE. - 30F2. READER DSW ERROR WHEN - RELOAD : 

: : ‘ LOADING LUADER ‘ : 

THE PROGRAM WILL STOP IN THE MONITOR HALT ROUTINE BEFORE THE : ; ; i. 

INSTRUCTION AT THE SPECIFIED ADDRESS IS EXECUTED. TO RESTIRE - 30F3 . CARD 2 OF LOADER DID NOT - RELOAD : 

THE MACHINE STATUS TO THE NORMAL CONDITIONS BEFORE EXECUTION ; : LOAD : : 

OF THE INSTRUCTION, SET THE CONSOLE MODE SWITCH TO SIy THEN : : 3 : 

STEP THRU THE PROGRAM UNTIL THE INTERRUPT LEVEL 5 IS TURNED - 30F4 CAN NOT CLEAR CORE - DUE TO . : 

OFF. THE NEXT INSTRUCTION TO BE EXECUTED WILL BE THE INSTRUC- P x ERROR IN ADDRESSING UPPER ©. : 

TION AT THE SELECTED STOP ADDRESS. : ‘ CORE. ; , 

THE NEXT STOP ADDRESS MUST BE SET IN THE BIT SWITCHES ANY - 30F5 . READER CHECK WHEN LOADING - NPRO THEN PLACE CARDS. 

TIME THE PROGRAM HALTS AT A SELECTED ADDRESS OR HALTS AFTER : MONITOR OR TEST PROGRAM - RUN OUT IN FRONT OF : 

PRESSING PROGRAM STOP. | : é - REMAINING DECK AND PRESS. 

; A - START. * 

VATE U2JAN66 15NOV66 15JUN67  O1LAPR6I PRIG IN 0300-* DATE UZJAN66 15NOV66 15JUN67 OLAPR69 | | PRNG IN 0300-* 
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30F6  . MONITOR DIO NOT LOAD ° RELOAD 
30F7 CHECK SUM WHEN LOADING ° RELOAD 
° MONITOR e 
30F8 . READER NOT READY ° MAKE READER READY 
Z30F9 INVALID: INTERRUPT WHICH WILL . PRESS RESET AND START 
e NOT RESET ° 
30FA .« CONSOLE PRINTER HANG UP - e FIX THE CONSOLE PRINTER 
e BUSY WILL NOT GO OFF ° 
WRK KK KEK KK 


304*** PROGRAM TERMINATION 


325 KX 


306 *** 


U2ZJAN66. 
415490 


AT THE COMPLETION OF EACH PASS IN A TEST PROGRAM, THE PROGRAM 

WILL CALL ON THE MONITOR END ROUTINE. THIS ROUTINE WILL RESTART 

THE PROGRAM IF THE LOOP ON PROGRAM SWITCH IS ON. IF THE PROGRAM 

IS NOT TO BE LOOPED, A MESSAGE WILL PRINT IDENTIFYING THE PROGRAM 

AS TERMINATED. IF NOT RUNNING IN OVERLAP, THE MONITOR WILL BRANCH 

TO THE LOADER TO LOAD THE NEXT PROGRAM IN THE READER (UNLESS PROGRAM 
MUST BE EXECUTED). 


IF A SWITCH ENTRY IS MADE REQUESTING LOADING OF A PROGRAM IN RELOAD 
MODE, THE PROGRAMS IN CORE WILL BE AUTOMATICALLY TERMINATED. 
CASE NO END MESSAGE WILL BE PRINTED. 


PROGRAM RESTART 


ANY PROGRAM MAY BE RESTARTED BY A FUNCTION OO ENTRY TO THAT PROGRAM 
WITH SWITCH 8 ON. THIS CAN BE DONE AT ANY TIME WHEN THE PROGRAM 
IS RUNNING OR AFTER THE PROGRAM HAS TERMINATED. 


A RESTART REQUEST TO THE MONITOR (SWITCHES 0-7 OFF AND SWITCH 8 ON) 
WIth RESTART ALL PROGRAMS WHICH ARE IN CORE. IF ANY PROGRAM HAS 
BEEN HALTED BY SETTING ITS HALT SWITCH, IT WILL REMAIN HALTED AFTER 
THIS RESTART (UNLESS FIRST START AFTER LOAD IN WHICH CASF ALL HALT 
SWITCHES ARE RESET). 


[IF THE MONITOR SHOULD HANG UP FOR ANY REASON (FOR EXAMPLE IF CONSOLF 
INTERRUPT FAILED TO RESET), ITT CAN BE RESTARTED BY PRESSING 
IMMEDIATE STOP, RESET, AND PROGRAM START IN THAT ORDER. 


PROGRAM PATCHING 


TO FACILITATE PROGRAM CORRECTION, MODIFICATION, AND EDITING, THE RE- 
LOCATING LOADER [S ABLE TO LOAD CARDS WHICH ARE KEYPUNCHE)) WITH HEX 
DATA. THESE CARDS ARE IDENTIFIED BY A 12 PUNCH IN COLUMN 1.2 COLUMNS 
2-5 MUST CONTAIN, IN HEX, 
CARD IS TO BE STORED. THE REMAINDER OF THE CARD IS USED FGR DATA, 
NHICH IS AGAIN IN HEX. EACH DATA WORD ON THE CARD MUST BF PRECEDED 
BY EITHER A BLANK OR AN Re. THE BLANK WILL CAUSE THF LOADER TO 
INTERPRET THE DATA WORD AS AN INSTRUCTION OR CONSTANT. THE R WILL 
CAUSE THE LCADER TO INTERPRET THE DATA WORD AS AN ADORFSS WHICH MUST 
BE RELOCATED IF THE PROGRAM OF WHICH THIS PATCH IS A PART IS RE- | 
LOCATED. IF NO DATA WORDS ARE INCLUDED ON THE CARD FOLLOWING THE 

THE ADORESS, THE LOADER WILL INTERPRET THIS CARD AS A BRANCH CARD 
AND WILL BRANCH TO THE ADDRESS SPECIFIED IN COLUMNS 2-5. TWO BLANK 
CULUMNS IN A ROW WILL TERMINATE LOADING OF THE CARD. 
BLANKS, ANY IDENTIFYING INFORMATION MAY BE PLACED ON THF CARD. 
CARDS MUST BE PLACED JUST BEFORE THE END CARD IN THE PROGRAM TO BE 
PATCHED. . 
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SOME EXAMPLES FOLLOW 


Ae +0645 C400R0857 0035 
THIS WILL LOAD THREE WORDS STARTING AT ADDRESS 0645 PLUS THE 
RELOCATION FACTOR. THE FIRST WORD WILL BE C400, THE SECOND wat 
WILL BE 0035. IF THIS PATCH CARD IS PLACED IN THE PROGRAM DECK 
BEFURE THE END CARD OF THE FIRST PROGRAM LOAD, THE RELMCATION 
FACTOR WILL BE ZERO. 
Be. +0739 BR TO 0739 
THIS CARD WILL CAUSE A BRANCH TO 0739 PLUS THE RELOCATION FACTOR. 
CARDS FOLLOWING THIS CARD WILL NOT BE LOADED UNLESS THE PROGRAM 
AT 0739 LOADS THEM OR RETURNS TO THE LOADER. 
- PRINTOUTS . 


4e1¥*** STATUS MESSAGES 


ADRS RELF LD 


AQUOO NUM PID 
XXXX XXXX XXXX XXX 
THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR). THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 
 aoool SWS PID 
XXXX XXXX | 
THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS 
READ BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING 
READ TOGETHER WITH THE PROGRAM ID GF THE PROGRAM INTO WHICH 
THE CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH 
ENTRY CALLED FOR HALT OF ANY PROGRAM THE WORD HALT WILL FOLLOW THF 
MESSAGE. | | 
4.2**k ERROR MESSAGES 
EVOOL SWS) INVLD 
XXXX 
THE SETTING OF SWITCHES 5-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 
E0U03 OVR CORE 
THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED.. 
E0004 CKSUM 
A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 
1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 
2. THERE IS AN EXTRA CARD IN THE DECK. 
3. THE PUNCHED INFORMATION GN THE CARD IS NOT CORRECT. 
4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 
OZJAN66 LSNUV66 15JUN67  OLAPR69 PENS IN 
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DATE 
cC NU. 


E0005 


5. DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 


WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 


OOON XXXX 


THIS ERROR WILL OCCUR IF AN INTERRUPT OCCURS, BUT THE ILSW 

WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSWe THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT ITS RESET 
BY A BOSC. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 


5. COMMENTS 


5-21*** INTRODUCTION TO DIAGNOSTIC MONITOR OPERATION 


521.1 


5ele2 


02 JAN66 
415490 


WHAT IS THE DIAGNOSTIC MONITOR 

THE CLAGNOSTIC MONITOR IS A CONTROL PROGRAM DESIGNED TO PROVIDE 
OVERLAP CAPABILITY AND TO HANDLE MANY PROGRAM FUNCTIONS WHICH ARE 
COMMON TO ALL OF THE TEST PROGRAMS. 

THE MONITOR IS MADE UP OF THE FOLLOWING ROUTINES 


Le RELOCATING LOADER INTERFACE 


2. SUPERVISOR ROUT INE 


3e INTERRUPT ROUTINE 


4. BIT SWITCH ROUTINE 


5. LOG SOUTINE 
6. HALT ROUTINE 


Te END ROUTINE 


WHY IS A MONITOR NECESSARY TO ENABLE PROGRAMS TO RUN IN OVERLAP 


THE MONITOR PROVIDES THE FOLLOWING FUNCTIONS WHICH ARE NECESSARY FOR 
OVERLAP OPERATION 


1. RELOCATING LOADER - THIS LOADER ENABLES SEVERAL PROGRAMS WHICH 
ARE ASSEMBLED TO USE THE SAME CORE STORAGE LOCATIONS TO BE LQADED 
TOGETHER IN CORE. THIS IS ACCOMPLISHED BY LOADING THE FIRST PRO- 
GRAM IN THE CORE STORAGE FOR WHICH IT WAS ASSEMBLED, THEN LDADING 
THE NEXT PROGRAM STARTING AT THE FIRST AVAILABLE STORE LOCATION 
AFTER THE PREVIGUSLY LOADED PROGRAM. ALL ADDRESSES REFERENCED 
IN THE PROROGRAM MUST ALSO BE MODIFIED BY A RELOCATION FACTOR, 
WHICH IS EQUAL TO THE DIFFERENCE BETWEEN THE ADDRESS AT WHICH THF 
PROGRAM IS ACTUALLY LOADED AND THE ADDRESS AT WHICH IT WAS 
ASSEMBLED. 


2.e INTERRUPT HANDLING -WHERE THERE ARE SEVERAL DEVICES ON ONE INTER- 
RUPT LEVEL (LEVEL 4) OR WHERE TWO PROGRAMS ARE SHARING A SINGLE 
DEVICE {CONSOLE PRINTER IS USED BY ALL PROGRAMS), A CENTRAL 
INTERRUPT CONTROL I[S REQUIRED TO IDENTIFY EACH INTERRUPT AND T9 
TRANSFER CONTROL TO THE APPROPRIATE INTERRUPT ROUTINE. THIS 
ROUTINE ALSO STORES THE CPU STATUS (ACCUMULATOR: EXTENSION, CARRY 
AND OVERFLOW» AND XR3) AND RESTORES STATUS UPON BRANCHING OUT 
OF INTERRUPT. , 


3. TIME SHARING -THIS IS THE BASIC OVERLAP FUNCTION PERFORMED BY THE 
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MONITOR. THIS FUNCTION IS ACCOMPLISHED BY THE MONITOR SUPERVISAR 
ROUTINE. THE SUPERVISOR CONTINUALLY CHECKS EACH PROGRAM LOADED 
FOR A REQUEST TO RUN A ROUTINE IN THAT PROGRAM. ONCF SUCH A RE- 
QUEST IS FOUND, THE SUPERVISOR WILL BRANCH TO THAT ROUTINE. 

AFTER THE ROUTINE ITS RUN, THE TEST PROGRAM MUST BRANCH BACK T)9 
THE SUPERVISOR.-ALL OTHER PROGRAMS ARE THEN CHECKED BEFORE ANOTHER 
ROUTINE IN THE FIRST PROGRAM CAN BE RUN. 


4. ONE INTERFACE WITH INPUT AND OUTPUT DEVICE FOR ALL PROGRAMS -EACH 
PROGRAM HAS NEED FOR CONTROL INPUT FROM THE BIT SWITCHES AND 
MESSAGE OUTPUT TO THE CONSOLE PRINTER. SINCE ONLY ONE PROGRAM 
CAN USE THESE DEVICES AT A TIME, THE MONITOR SERVES TO DIRECT 
TRAFFIC, SENDING ANY BIT SWITCH ENTRY TO THE APPROPRIATE PROGRAM 
AND OUTPUTTING EACH PROGRAM MESSAGE IN ITS TURN. 


WHAT COMMON PROGRAM FUNCTIONS ARE HANDLED BY THE DIAGNOSTIC MONITOR 


le MESSAGE OUTPUT — COMMUNICATION TO THE CONSOLE PRINTER IS SERIAL 
~ AND MUST BE IN ROTATE AND TILT CODE. ANY MESSAGE TO THE PRINTER 
MUST, THEREFORE, FIRST BE CONVERTED, THEN TRANSFERRED TO THE 
PRINTER A CHARACTER AT A TIME.’ PUTTING THIS FACILITY IN THE 
MONITOR ALLOWS EACH TEST PROGRAM TO OUTPUT ITS MESSAGES BY SIMPLY 
SETTING UP A TABLE WHICH DEFINES THE MESSAGE THEN BRANCHING TO 
THE APPROPRIATE (ERROR OR STATUS) MONITOR LOG ROUTINE. 


2- BIT SWITCH ENTRY-TO SIMPLIFY THE USE OF BIT SWITCHES BY FACH PRM 
GRAM,THE MONITOR ON REQUEST READS THE BIT SWITCHES AND PLACES THE 
READING IN CORE STORAGE IN THE APPROPRIATE PROGRAM. THUS THE PRNO- 
GRAM HAS AT ALL TIMES THE LATEST SWITCH READING. ALSO TO INCREAS 
THE FLEXIBILITY AND THE AMOUNT OF INFORMATION THAT CAN BE CONVEYEF 
BY THE BIT SWITCHES, THE SWITCHES ARE DIVIDED INTO FOUR FUNCTIONS 
THE SWITCH SETTING CORRESPONDING TOG EACH FUNCTION IS SET IN A 
SEPARATE CORE POSITION IN THE PROGRAM. | 


3e PRINT LOAD MESSAGE — THIS MESSAGE IS PRINTED AFTER A PROGRAM IS 
SUCCESSFULLY LOADED. IT IDENTIFIES THE PROGRAM, THE ADDRESS AT 
WHICH IT WAS LOADED AND GIVES THE RELOCATION FACTOR FOR THAT 
PROGRAM. 


4. CONTROL PROGRAM END — WHEN A PROGRAM HAS COMPLETED ONE PASS THE 
MONITOR DETERMINES WHETHER OR NOT IT IS TO BE LOOPED. IF NOT, IT 
PRINTS AN END MESSAGE AND TERMINATES THE PROGRAM. 


Se RESTART —- THE MONITOR WILL REINITIALIZE AND RESTART ANY SPECIFIED 
PROGRAMS OR ALL PROGRAMS. A MESSAGE IS PRINTED IDENTIFYING THE 
PROGRAM RESTARTED. 


6e HALT -—-THE MONITOR WILL HALT EXECUTION OF ANY SPECIFIED PROGRAM OR 
ALL PROGRAMS. A MESSAGE IS PRINTED IDENTIFYING THE PROGRAM 
HALTED. 


7. ERROR CONTROL - HALT ON ERROR, LOOP ON ERROR, AND BYPASS ERROR 
PRINTOUT ARE ALL HANDLED BY THE MONITOR. 


Ae HALT ON ERROR: - WILL HALT AFTER THE ERROR MESSAGE IS PRINTED. 
IF HALT ON ERROR IS ON, BYPASS ERROR PRINTOUT WILL BE IGNOREN 
THE PROGRAM WILL HALT AT A NON INTERRUPTABLE WAIT IN THE 
MONITOR. 


B. LOOP ON ERROR ; | 
$0 LONG AS THE ERROR PERSISTS. 


C. BYPASS ERROR PRINTOUTS ALLOWS THE PROGRAM TO LOOP ON AN FRROR 
CONDITION WITHOUT PRINTING THE, ERROR MESSAGE. 


8. ROUTINE NUMBER LOG - UNDER SWITCH CONTROL THE MONITOR WILL LOG 
THE ROUTINE NUMBER AND ADORESS OF EACH TEST ROUTINE BEFORE THAT 
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ROUTINE IS RUN. DC STRT LOOP PROGRAM ADDRESS 
| OC ~STRT RESTART ADDRESS 
9. PROGRAM STOP — THE CONSOLE PROGRAM STOP PUSHBUTTON IS SUPPORTED. MLSCF DC *K— ENTRY ONE 
BY A MONITOR ROUTINE WHICH WILL STOP ALL PROGRAMS WITHOUT LOSING DC %— & | ENTRY TWO 


ANY INTERRUPTS. THIS ROUTINE ALSO SAVES THE C.P.U. STATUS AND DC /FFFF TERMINATOR 
PROVIDES A RE-ENTRY FROM LOCATION ZERO.w’ THIS FEATURE ALLOWS THS® 
CeE~’ TO MANUALLY CHECK OR MODIFY ANY CORE LOCATION AFTER THE 


STOP, THEN CUNVENTIENTLY RESTART BY PRESSING RESET AND PROGRAM THE MONITOR OBTAINS FROM THIS TABLE THE PROGRAM IDy ROUTINE NUMBER 
START. AND ROUTINE ADDRESS WHEN PRINTING ERROR AND STATUS MESSAGES. IT FINDS 
| THE RESTART ADDRESS HERE ALSO. WHEN BIT SWITCH DATA IS ENTERED FOR A 
10. ADDRESS STOP — THIS ROUTINE USES THE INTERRUPT RUN MODE. IN THIS PROGRAM, THE MONITOR WILL PLACE THE DATA IN SWITCHES 8 THROUGH 15 
MODE AN INTERRUPT OCCURS AFTER EACH MAINLINE INSTRUCTION. THE INTO ONE OF FOUR SWITCH STORAGE WORDS IN THIS TABLE. THE STORAGE WORK 
DESIRED STOP ADDRESS, SET BY THE BIT SWITCHES, IS THEN COMPARED USED WILL DEPEND ON THE SETTING OF SWITCHES O AND L (FUNCTION 
TO THE IAR ADDRESS. THE ROUTINE HALTS ALL PROGRAMS WHEN THESE ARE THE MAIN LINE SEQUENCE CONTROL FIELD (MLSCF) ALSO CONTAINED IN THIS 
EQUAL. TABLE IS THE HEART OF THE MONITOR CONTROL. ALL COMMUNICATION BETWEEN 
; THE TEST PROGRAM AND THE MONITOR SUPERVISOR IS THROUGH THE MLSCF. THE 
11. PROGRAM DELAY - THIS ROUTINE ALSO USES THE INTERRUPT RUN MODE. SUPERVISOR SEQUENTIALLY SCANS THE MLSCF OF EACH TEST PROGRAM. WHEN 
IN THIS MODE IT PROVIDES A MINIMUM DELAY OF 125 USECS BETWEEN AN ADDRESS IS FOUND IN ANY MLSCF THE SUPERVISOR WILL TRANSFER TO THAT 
THE EXECUTION OF EACH MAINLINE INSTRUCTION. THIS DELAY CAN BE ADDRESS. 


INCREASED IN INCREMENTS OF 25 USECS BY BIT SWITCH CONTROL. 
| 501.8 ONCE A TEST PROGRAM HAS OBTAINED CONTROL 
TO THE MONITOR 
52124. WHAT IS THE ADVANTAGE OF HAVING THESE COMMON FUNCTIONS IN A MONITOR 
. TO RETURN CONTROL TO THE MONITOR SUPERVISOR, THE TEST ROUTINE MUST 
EACH PROGRAM 1S SIMPLER AND IS-FORCED TO FOLLOW A STANDARD ORGANIZA- EXECUTE THE FOLLOWING INSTRUCTION. 


TION. EACH PROGRAM IS BY ITSELF SHORTER —- THAT IS OF GREATEST . 
IMPORTANCE WHEN RUNNING IN GVERLAP SINCE [T ALLOWS MORE PROGRAMS TO BSI I START 


BE LOADED IN THE SAME CORE. | | 
HOWEVER, BEFORE TRANSFERRING CONTROL TO THE MONITOR A RETURN TO THE 


- 5e1.5 HOW DOES THE MONITOR CONTROL A PROGRAM | TEST IN THE MLSCF. 
NO TEST ROUTINES ARE RUN UNTIL A REQUEST FOR CONTROL IS MADE TO THE 5e1e9 HOW DOES A TEST PROGRAM PRINT A MESSAGE 
| MONITOR BY THE TEST PROGRAM. THE MONITOR SUPERVISOR ROUTINE WILL THEN | | 
DETERMINE WHEN CONTROL IS TO BE TRANSFERRED, AND WILL TRANSFER CON- ALL MESSAGES ARE PRINTED BY THE MONITOR LOG ROUTINE. COMMUNICATION 
TROL TO THE TEST ROUTINE. AT THE END OF THE ROUTINE OR WHENEVER WAIT WITH THIS ROUTINE IS THROUGH A CALLING SEQUENCE WHICH TRANSFERS TJ 
ING FOR AN INTERRUPT, THE TEST PROGRAM MUST RETURN CONTROL TO THE THE LOG ROUTINE THE NECESSARY MESSAGE DATA. 


MONITOR SUPERVISOR. | | 
TWO TYPES OF MESSAGES ARE PRINTED» STATUS MESSAGES AND ERROR MESSAGES 


5e1-6 HOW DOES A TEST PROGRAM REQUEST CONTROL FROM THE MONITOR © A STATUS MESSAGE IS IDENTIFIED BY AN A AS THE FIRST CHARACTER IN THE 
| MESSAGE AND [S PRINTED IN BLACK. AN ERROR MESSAGE IS IDENTIFIED BY 
CONTROL WILL BE TRANSFERRED TO THE TEST PROGRAM IF AN — AND IS PRINTED IN RED. 
1. AN INTERRUPT IS RECEIVED WHICH IS TO BE SERVICED BY THAT PROGRAM. 5e2%** ROUTINE DESCRIPTIONS 
2. %THE MONITOR SUPERVISOR FINDS AN ADDRESS IN THE MAIN LINE SEQUENCE 5e2e1 THE RELOCATING LOADER 


CONTROL FIELD (MLSCF) FOR THAT PROGRAM. | ; | 
| | THE DIAGNOSTIC MONITOR AND ALL TEST PROGRAMS ARE LOADED BY A RELOCAT- 
THUS» BEFORE A PROGRAM GIVES UP CONTROL TO THE MONITOR, IT MUST PLACE - ING LOADER. TWO VERSIONS OF THIS LOADER ARE AVAILABLE--1442, AND 


IN ITS MLSCF AN ADDRESS TO WHICH THE MONITOR IS TO RETURN, OR IT MUST PAPER TAPE. EACH OF THESE LOADERS IS INITIALLY LOADED IN CORE LOCA- 
INITIATE AN OPERATION WHICH WILL RESULT IN AN INTERRUPT. TIONS 0-/160. THE RESIDENT PROTION IS IN LOCATIONS /40-/160. 
5el.7? WHAT IS THE MAIN LINE SEQUENCE CONTROL FIELD (MLSCF) le FORMATS | 
THE MLSCF IS PART OF THE PROGRAM CONTROL TABLE WHICH IS THE MAJOR | | THESE LOADERS WILL LOAD ABSOLUTE PROGRAMS, RELOCATABLE PROGRAMS, 
INTERFACE BETWEEN THE MONITOR AND THE TEST PROGRAM. EACH PROGRAM OR HEX PATCH CARDS. THE MONITOR AND ALL NONOVERLAP PROGRAMS ARE 
HAS ITS OWN PROGRAM CONTROL TABLE WHICH IS LOCATED AT THE BEGINNING | ASSEMBLED AND LOADED IN ABSOLUTE FORMAT. ANY QVERLAP PROGRAM 
PROGRAM. IT LOOKS LIKE THIS | IS NOT ORG*D. AT 1500 MUST BE ASSEMBLED AND LOADED IN ABSOLUTE. 
* . 2- RELOCATION —- THE RELOCATING LOADER ASSUMES ALL PROGRAMS WHICH ARE 
* PROGRAM CONTROL TABLE | TO BE RELOCATED ARE ASSEMBLED AT A STARTING ADDRESS OF OS5DC (1500 
* DECIMAL). THE FIRST PROGRAM LOADED WILL BE STORED, STARTING FR9M_ 
PID DC /OXXX PROGRAM ID 7 7 THIS ADDRESS. ADDITIONAL PROGRAMS LOADED WILL BE RELOCATED 
RIO DC 0 ROUTINE ID eG STARTING FROM THE FIRST EVEN ADDRESS AFTER THE LAST ADDRESS IN 
RAD DC 0 ROUTINE ADDRS | | ; | THE PREVIOUSLY LOADED PROGRAM. THUS THE RELOCATION FACTOR IS 
SWO DC 0 PROGRAM CONTROL EQUAL TO THE ADDRESS AT WHICH A PROGRAM IS LOADED MINUS O5DC 
SW DC 0 ROUTINE SELECTION . {1500 DECIMAL). THIS FACTOR » TOGETHER WITH THE LOAD ADDRESS AND 
SWw2.~=s OC 0 THE PROGRAM ID, IS PRINTED AFTER EACH PROGRAM IS LOADED. 
SW3 DC 0 | 
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CHECK SUM - ALL DATA LOADED BY THE RELGCATING LOADER IS CHECK 
SUMMED. IF A CHECK SUM ERROR IS DETECTED AN ERROR MESSAGE WILL 
BE PRINTED AND LOADING WILL BE TERMINATED. THIS CHECK SUM TAKES 
INTO CONSIDERATION BOTH THE CORRECTNESS OF THE DATA AND THE 
SEQUENCE IN WHICH THE CARDS ARE LOADED. THUS EXTRA OR MISSING 
CAROS WILL BE DETECTED BY THE CHECK SUM. THE CHECK WILL BE 
BYPASSED ON ANY CARD WHICH HAS A CHECK SUM OF ZERO. THE ADVANCE 
OF THE CARD COUNT WILL NOT BE BYPASSED. THUS,» IF A CARD 

WITHIN A PROGRAM DECK MUST BE MODIFIED, IT WILL STILL LOAD IF 
THE CHECK SUM WORD (BITS 2-9 OF CARD COLUMN 2 AND 12-5 OF CARD 
COLUMN 3) IS MADE EQUAL TO ZERO. IF ADDITIONAL CARDS ARE ADDED 
TO THE DECK, THESE ALSO WILL LOAD IF THEIR CHECK SUM WORD IS 
EQUAL TO ZERO. HOWEVER, SINCE THE CARD COUNT IS ADVANCED: ANY 
CARDS HAVING NON-ZERO CHECK SUMS WHICH FOLLOW CARDS ADDED TO 
THE DECK WILL NOT LOAD. THEREFORE, ANY CARDS ANDED SHOULD BE 
PLACED AT THE END OF THE DECK —- JUST BEFORE THE END CARD AND THE 
CHECK SUM OF THE END CARD CHANGED TO ZERO. TO MAKE CHANGES IN 
PROGRAMS WITHOUT CONCERN FOR CHECK SUM, SEE PROGRAM PATCHING 


(SECTION 3.6). 


OVER CORE CHECK - IF DURING LOADING ALL OF CORE BECOMES FILLED 
BEFORE ALL PROGRAMS ARE LOADED, THE LOADING PROCESS WILL TERM 
INATE AND A MESSAGE WILL BE PRINTED (OVER CORE). 


SUPERVISOR ROUTINE 


l. 


4 e 


THE SUPERVISOR SEQUENTIALLY SCANS THE MLSCF OF EACH PROGRAM - 
INCLUDING THE MONITOR. IF AN MLSCF WORD IS FOUND TQ BE POSITIVE 
AND NON ZERO, THE SUPERVISOR WILL ASSUME THAT THE WORD CONTAINS 
AN ENTRY ADDRESS AND WILL EXECUTE A BRANCH TO THAT ADDRESS. THE 
ADDRESS OF THE MLSCF IS SAVED BY THE SUPERVISOR. THIS ADDRESS 

IS USED BY THE MONITOR TO IDENTIFY THE TEST PROGRAM WHEN THAT 
PROGRAM TRANSFERS BACK TO THE MONITOR WITH A LOG CALL, AN END 
CALL, OR A RETURN TO START. | 


ROUTINE START LOG - WHEN THE PROGRAM RETURNS CONTROL TO THE MON- 
ITOR (BSI I START), THE SUPERVISOR WILL CHECK THE ROUTINE START 
SWITCH (RINSW). THIS SWITCH SHOULD BE SET IN THE TEST PROGRAM 
CONTROL ROUTINE BEFORE STARTING A NEW TEST ROUTINE. IF THIS 
SWITCH IS ON (NON ZERO) AND ROUTINE START LOG HAS BEEN REQUESTED 
(SWITCH 9 FUNCTION 0), THE SUPERVISOR WILL PRINT A MESSAGE 
IOENTIFYING THE PROGRAM, THE ROUTINE NUMBER AND THE ROUTINE START 


RESTART AND HALT —- ARE ALSO FUNCTIONS OF THE SUPERVISOR. THE 
HALT BIT FOR A PROGRAM IS ONE, THE SUPERVISOR WILL BYPASS SCAN- 
NING OF THE MLSCF OF THAT PROGRAM. IF THE MONITOR HALT BIT IS 
A ONE, THE SUPERVISOR WILL SCAN ONLY THE MONITOR MLSCF —- THUS 
STOPPING ALL TEST PROGRAMS. 


EXECUTE PAUSE - THE SUPERVISOR WILL ALSO STOP PROGRAM EXECUTION 
WHEN PRINTING ANY MESSAGE OR WHEN LOADING A PROGRAM. 


INTERRUPT ROUTINE 


1. 


3e 


15NOV66 
419643 


ALL INTERRUPTS ARE HANDLED BY THE MONITOR INTERRUPT ROUTINE. THIS 
ROUTINE SAVES THE STATUS OF THE CPU -EXCEPT INDEX REGISTERS 1 AND 


29 TRANSFERS TO THE TEST PROGRAM INTERRUPT SERVICE ROUTINE, THEN 


RESTORES THE CPU STATUS BEFORE BRANCHING OUT OF INTERRUPT. 


A TRANSFER VECTOR IS USED TO SPECIFY THE ADDRESS OF THE TEST PRO- 
GRAM INTERRUPT ROUTINE. THIS ADDRESS MUST BE SET IN THE TRANSFER 
VECTOR BY THE TEST PROGRAM. | 


INVALID INTERRUPTS ARE HANDLED BY THE INTERRUPT ERROR ROUTINE. AN 
INVALID INTERRUPT IS AN INTERRUPT FOR WHICH AN ADDRESS HAS NOT 
BEEN SET IN THE TRANSFER VECTOR. THE INTERRUPT ERROR ROUTINE WILL 
SET UP AN ERROR MESSAGE CALL AND WILL THEN TRY TO BRANCH OUT OF 
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IF THE BRANCH OUT TURNS OFF THE INTERRUPT, AN 
ERROR MESSAGE WILL BE PRINTED WHICH IDENTIFIES THE INTERRUPT 
LEVEL AND THE ILSW. IF THE INTERRUPT FAILS TO TURN OFF, THF PRO- 
GRAM WILL STOP AT THE INTERRUPT ERROR WAIT. PRESSING IMMEDIATE 
STOP, RESET AND PROGRAM START IN THAT ORDER WILL RESET THE 
INTERRUPT AND ALLOW THE ERROR MESSAGE TO BE PRINTED. 


IF A VALID INTERRUPT WILL NOT RESET, THE PROGRAM WILL LOOP IN THE 
INTERRUPT ROUTINE. TO RECOVER, PRESS IMMEDIATE STOP, RESET AND 
PROGRAM tee ~ IN THAT ORDER. 


SWITCH a 


THE BIT SWITCHES ARE READ IN INTERRUPT WHEN THE INTERRUPT REQUEST 
KEY IS PRESSED. UNLESS EXECUTING THE KEYBOARD TEST, THE POSITION 
OF THE CONSOLE/KEYBOARD SWITCH IS IGNORED. WHEN EXECUTING THE 
KEYBOARD TEST THE BIT SWITCH IS READ ONLY IF THE CONSOLE/KEYBOARD 
SWITCH IS IN CONSOLE POSITION. 


THE BIT SWITCH ROUTINE STORES THE CONTENTS OF SWITCHES 8B THROUGH 
15 IN THE PROGRAM CONTROL TABLE OF THE PROGRAM IDENTIFIED BY 
SWITCHES 4-7. IF SWITCHES 4-7 ARE ALL OFF, THE BIT SWITCH READING 
WILL BE STORED IN THE MONITOR CONTROL TABLE. 


THE PROGRAM IDENTIFICATION USED IN SWITCHES 4-7 IS A BINARY 
NUMBER DETERMINED BY THE ORDER IN WHICH THE PROGRAMS WERE LOADED. 
THE FIRST PROGRAM LOADED IS PROGRAM NO. 1 (SWITCH 7 ONLY), THE 
THIRD IS PROGRAM NO. 3 (SWITCH 6 AND 7), ETC. THUS IF ONLY | 

ONE PROGRAM IS LOADED SWITCH 7 IS ALWAYS USED TO IDENTIFY THAT 


PROGRAM. 


THE HALT SWITCH (SWITCH L5 FUNCTION 0) FOR ALL PROGRAMS IS INTER- 
ROGATED BY THE BIT SWITCH ROUTINE. IF THIS SWITCH IS ON THE 
ROUTINE WILL SET THE HALT BIT FOR THE PROGRAM IDENTIFIED BY 
SWITCHES 4-7. A MESSAGE WILL BE PRINTED SPECIFYING THAT THE 
PROGRAM HAS BEEN HALTED. © 


INVALID SWITCH SETTINGS ARE NOT STORED AND A MESSAGE IS PRINTED 
IDENTIFYING THE SWITCH SETTING AS INVALID. THE SWITCH SETTING [5S 
INVALID IF THERE IS NO PROGRAM IN CORE CORRESPONDING TQ THE 
PROGRAM IDENTIFICATION SET IN SWITCHES 5-7. 


MESSAGE LOG ROUTINE 


le 


THE LOG ROUTINE WILL PRINT EITHER STATUS MESSAGES OR ERROR 
MESSAGE DEPENDING ON THE ENTRY TO THE RGUTINE. ERROR MESSAGES 
ARE DISTINGUISHED FROM STATUS MESSAGES BY AN E IN THE MESSAGE ID 
WHILE THE STATUS MESSAGE CONTAINS AN Aw ALSO THE ERROR MESSAGE 
‘2 PRINTED IN RED, THE STATUS MESSAGE IN BLACK. 


Ze MESSAGE FORMET — THE MESSAGE FORMAT IS THE SAME FOR EITHER STATUS 
OR ERROR MESSAGES. 
THE FIRST THREE WORDS ARE STANDARD MESSAGE IDENTIFICATION 
WORDS WHICH ARE PLACED IN THE MESSAGE BY THE LOG ROUTINE. ° 
APPNN OORR- AAAA. 
OR | 
EPPNN OORR AAAA 
WHERE ~ A OR E IDENTIFIES THE MESSAGE AS EITHER A STATUS OR ERRAR 
MESSAGE RESPECTIVELY. 
PP IS THE LAST TWO DIGITS OF THE PROGRAM ID NUMBER. 
THIS IDENTIFIES THE PROGRAM TO WHICH THE MESSAGE REFERS. 
NN Be THE MESSAGE NUMBER IN THE PROGRAM ZOEN TEESE 
BY PP. 
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RR IS THE NUMBER OF THE ROUTINE IN THE PROGRAM 
IDENTIFIED BY PP WHICH WAS EXECUTING AT THE TIME 
CALL ON LOG WAS MADE. 


AAAA IS THE ADDRESS IN CORE OF THE ROUTINE IDENTIFIED 
BY RR. 


NOTE - FOR MONITOR MESSAGE THE ROUTINE NUMBER AND ADDRESS 
ARE NOT PRINTED. 


AN ALPHA MESSAGE CAN NEXT BE PRINTED. THIS MESSAGE IS USED 
EITHER TO HEAD THE MESSAGE DATA (WHICH WILL BE PRINTED ON THE 
NEXT LINE) OR TO COMMUNICATE MACHINE STATUS AND/OR ERROR 
DESCRIPTION TO THE CE. IF DATA IS TO BE PRINTED FOLLOWING 

THE ALPHA MESSAGE A CARRIAGE RETURN AND TAB WILL BE CODED INT) 
THE MESSAGE FOLLOWING THE ALPHA. 


DATA IS PRINTED IN EITHER NEXIDECIMAL GR DECIMAL. IF NO ALPHA IS 
INCLUDED IN THE MESSAGE,THE DATA WILL BE PRINTED ON THE SAME LINE 
AS THE THREE WORDS OF MESSAGE IDENTIFICATION. IF ALPHA IS INCLUDE 
IN THE MESSAGE, THE ALPHA PHRASES WILL BE PRINTED, THEN THE DATA 
WILL BE PRINTED DIRECTLY BELOW THE ALPHA. 


DECIMAL DATA WILL ALWAYS BE 5 DIGITS WHILE HEX IS 4. IF THE 
DECIMAL DATA IS NEGATIVE, A MINUS (-) WILL BE PRINTED IN FRONT OF 
THE DECIMAL WORD. 


MULTIPLE LINE MESSAGES WILL INCLUDE THE MESSAGE ID ON THE FIRST 
LINE ONLY. 


ERROR CONTROL IS PROVIDED BY THE ERROR LOG ROUTINE. HALT ON ERROR 
BYPASS ERROR PRINTOUT; OR LOOP ON ERROR ARE ALL FUNCTIONS OF THIS 
ROUTINE. 


IF THE LOG ROUTINE IS BUSY, THE LOG BUSY SUBROUTINE WILL SET THE 
ADDRESS OF THE USER LOG CALL IN THE MLSCF OF THE USER PROGRAM. 
THUS THE MONITIR WILL FORCE A LOOP ON THE LOG CALL UNTIL 

THE LOG ROUTINE IS NO LONGER BUSY. 


ROUTINE 


THIS ROUTINE IS ENTERED ON THE COMPLETION OF EACH COMPLETE PASS 
BY A TEST PROGRAM. THE ROUTINE WILL RESTART THE PROGRAM CAUSING 
IT TO LOOP IF THE LOOP PROGRAM SWITCH FOR THE MOPITOR OR FOR 

THE TEST PROGRAM IS ON. 


IF THE PROGRAM IS NOT LOOPED, THE MONITOR WILL PRINT AN END 
MESSAGE WHICH WILL IDENTIFY THE OPERATION OF THAT PROGRAM AS 
TERMINATED. 


HALT ROUTINE 


l. 


THE HALT ROUTINE IS ENTERED BY 
Ae PRESSING THE PROGRAM STOP PUSHBUTTON ON THE 1131 CONSOLE. 


B. ADDRESS STOP WHEN THE IAR ADDRESS IS EQUAL TOD THE ADDRESS 
SET IN THE BIT SWITCHES DURING THE LAST HALT. 


THIS ROUTINE CYCLES THE PROGRAM DOWN, I.Eey ALLOWS ALL INTERRUPTS 
TO BE SERVICED BEFORE STOPPING IN A WAIT INSTRUCTION. TO CON- 
TINUE, PRESS PROGRAM START. 


THE CPU STATUS IS SAVED ANYTIME A HALT OCCURS IN THE HALT ROUTINE 
THUS, AFTER A HALT, THE CE CAN GO MANUALLY TO ANY PLACE IN CORE, 
READ OR MODIFY ANY STORAGE LOCATION, THEN RETURN TX) THIS ROUTINE 
AND CONTINUE. TO SIMPLIFY THIS RESTART PROCEDURE, A BRANCH EXIST 
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AT ADDRESS ZERO WHICH WILL TRANSFER TO THE HALT ROUTINE AFTER A 
HALT HAS OCCURRED. THUS, TO RESTART AFTER A HALT WHEN THE CON- 
TENTS OF IAR HAVE BEEN CHANGED, PRESS RESET, THEN PROGRAM START. 


4. ADDRESS STOP IS ALSO A FUNCTION OF THE HALT ROUTINE. THE FIRST 
INSTRUCTION FOLLOWING THE WAIT IN THE HALT ROUTINE IS AN XIO TO 
READ THE BIT SWITCHES. ANY ADDRESS SET IN THE BIT SWITCHES AT 
THIS TIME WILL BE STORED AS AN ADDRESS STOP ADDRESS. THE ANDRESS 
STOP FEATURE USES THE INTERRUPT RUN MQDE TO PROVIDE AN INTERRUPT 
FOLLOWING EACH MAINLINE INSTRUCTION. THUS TO ENABLE ADORESS STOP 
THE CPU MUST BE PLACED IN THE INTERRUPT RUN MODE. WHEN IN THIS 
MODE ADDRESS STOP WILL CAUSE THE PROGRAM TO HALT ANY TIME THE 
IAR IS EQUAL TO THE SETTING OF THE BIT SWITCHES ON THE LAST START 
FROM THE HALT ROUTINE. SINCE ADDRESS STOP ALSO HALTS IN THIS 
SAME HALT ROUTINE, THE NEXT STOP ADDRESS MUST BE SET IN THE 
SWITCHES FOLLOWING EACH ADDRESS STOP. 


~------------------------------------------- LAST PAGE ------~-------~--------------~------------------ 
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THIS ENGINFFRING CHANGE REFLECTS MAJOR 
CHANGES TO THE NIAGNOSTIC MONITOR. PREVIOUS 
TESTS WHICH RAN WITH THE EARLIER MONT TOR WILL 
NOT RUN WITH THIS MONITOR, 


DIAGNOSTIC MONTTOR i WILL NOT RUN TESTS OF 
ENGINEERING LEVEL PRIOR TO FC 419643 DATED 
NOV 15,1966. 
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Oi iio a 6 ok soko doit dk ok ee do ao ee 


25JUL69 
571053 


O10CT68 
571005 


100CT 67 
42031 7D 


LS JUN6T 
420317 


LOJAN69 
571021 


ADDRESSES MUST BE MAINTAINED FOR 


30000030 


NO. 


30000040 — 


30000050 


30000060 | 


30000070 


30000080 


30000090 
30000100 
30000110 


30000120 | 


30000130 


30000140 
30000150 
30000160 
30900170 
30000180 
30000190 
30000200 
30000210 


30000220 


30000230. 
30000240. 


30000250 


30000260 — 
30000270 


30000280 


30000290 


30000300 
30000310 
30000320 
30000330 


°30000340 


30000350 
30000 360 
30000370 


30000380 


30000390 
30000400 
30000410 
30000420 
30090430 


30000440 © 


30000450 
30000460 


30000470 


30000480 
30000490 
30000500 
30000510 


30000520 


30000530 
30000540 


30000550 . 
30000560 


30000570 


30000580 


30000590 


30000600 


* 
* ADRS LABEL ADRS LABEL ADRS LABEL 
* /044A ILTO /048E ILT4 70414  ASTOP 
* /045B ILTL /03F9 ILTS 70410 AQ5 
* /046C ILT2 /0280 MRSRT 7058) LOAD2 
* /047D0 ILT3 /054F MRBSD 
x . 
FOR OG i io doi ok doi giao kk gfe ek gee ae ake ok oe 
ABS 
ie 10300 
eR RR a Ro EO RR OR ok Ke a eK KE KK 
x es cree ee mee nee A OD SD SEE GD IE cent SED lS DD CO SA SO eo wee ED ce DD EE cee ee 0 ce 
* 1130 DIAGNOSTIC MONITOR 
aac Sada cts sss pa al ir a a nee ae tw OT 
FS ACER RR TORE ROR EK AR RRR REE EE 
* 7 MONITOR RESTART 
Itt i te TTC Cee T TST STP SCS ee ST ete ee ess se Ss ee ee 
RESET AND START WILL FORCE ENTRY TO 
THIS ROUTINE WHICH WILL REINITIALIZE 
THE MONITOR CONTROL AND BRANCH TO 
THE SUPERVISOR. 
ORG 0 | | 
LDX 4 BR FOR RESTART 
BSS 3 SKIP INDEX REGS 
BSC L  MRSRT GO RESTART 
x , ; 
SO RO OI oo ick zai ido dotioigk dgok tok 
* INTERRUPT TRANSFER VECTORS | 
MR a RK KR KK RK KKK EKER EKA EKER EKE 
* 
ORG B 
XFVC BSS” 1 SPACE FOR ILTO 
— p6 LT 
DC ILT2 
DC ILT3 7 | 
BSS. SPACE FOR ILT4 
DC ILT5 ; | 
BSS 6 NOT USED 
. - | 
Se OREO BOAO SRR Bo de RR RE aK RC 
* UTILITY EQUATE TABLE 
FAECES EEE EERE ETE EEE 
+ | 
UTLTY DC MR'BSD MONITOR UTILITY CONTROL 
ILIR DC ASTOP INTERRUPT RUN | 
AQSA DC. AQ5 A AND Q FOR TRACE INT 
DC 70000 NOT USED 
* ‘ 
TET e TT TTT TT TT TTT TTL TT ttt TT tt Tr: 
* INITIALIZE RESTART AND TRANSFER VEC 


30000610 
30000620 
30000630 
30000640 
30000650 


30000660 


30000670 


30000680 


30000690 


PROG ID 


PAGE 


0300-2 


O.O -O- 


18M MAINTENANCE pencnget he PROGRAM FOR THE 1130 SYSTEM 





ies 


eue22 


2191200 
| 


1130 DIAGNOSTIC MONITOR II 


| | DATE 
1 EC NO. 


0018 0 6004 
0019 0 044A 
. OOLA O 0458 
0018 0 046C 
OO1C O 0470 
001D 0 048E. 
0160. 
0160 0 O1CF 
O161 9 0264 
0162 0 02A4 
0163 0 O2F8 
0164 0 0426 
0165 0 0000 
0166 0 0200 
0167 0 O2F5 
0168 0 023E 
0169 0 0000. 
016A 0 0000 
016B 0 0480 
-016C 0 0480 
016D 0 04R0 
O16E 0 0480 
O16F O 0480 
0170 0 0480 
0171 0 0480 
OL72 0 O4B0 - 
0173 0 04B0 
0174 0 04B0 
0175 0 04B0 
0176 0 0480 
0177 0 04B0 
0178 0 0480 
0179 0 04B0 
017A 0 0480 
0178 0 0480 
O17C 0 0480 
0179 0 0480 
OL7E 0 0480 
O17F 0 0480. 
0180 0 0480 
—O18L O 0480 
0182 0 04B0 
0183 9 O04R0 
0184 0 04B0 
0185 0 04B0 
O2JAN66 
415490 


O 


“1 5NOV66 
419643 








OO COO: O0000 


PART NO. 


ORGO LDX 4 
IXFVC DC ILTO 
pc ILT1L 
DC ILT2 
DC ILT3 
DC ILT4 
* 


x ; | » 4 
BOR KO FoR REE EERE ER ERE EEE KERERKEREE E 


* MONITOR EQUATE TABLE 
KER EEE REE ERE EREE EERE EERE RK ERRESELEEKEREEEEEE 


* THIS IS A TABLE OF COMMON LABELS 
* USED BY THE TEST PROGRAMS TO REFER 
* TO DESIRED ADDRESSES IN THE MONITOR. | 
SR sn a a ee 
* . 

ORG 4/160 | 
BEGIN DC BGIN THESE ARE CALL 


LABELS USED BY TEST 


4203170 571005 571021 


PAGE | 


30000700 


30000720 


30000710. 


30000730 


30000740 


30000750 
30000760 
30000770 
30000780 
30000790 
30000800 
30000810 
30000820 
30000830 
30000840 
30000850 


30000860 


30000870 


30000880 
30000890 


30000900 . 


30000910 


30090920 


30000930 


.30000940 


30000950 
30000960 
30000970 


30000980 | 


START DC STRT 
ERROR OC ERRI PROGRAMS TO CALL 
LOG DC LOGI MONITOR ROUTINES. 
END OC MEND a 
x 
RTINSW DC -* ROUTINE START SW 
ERLCK DC MSWO LOCK ON ERROR CONTROL 
LOGBY DC IOBSY 1/0 BUSY SW ADDRS | 
—  ADDRS DC. MXEQ261 | : 77 
ere DC /0000 NOT USED 
| DC /0000 NOT USED 

* 
* 
FE em ne a me a me ae ec ce cere ee we ce ee ce ee ee ee ce cee ee are ce ee ae ae ae ee a eee ee ne ee 
* THE TEST PROGRAM MUST ENTER ITS 
x INTERRUPT ROUTINE ADDRESS IN THE 
i APPROPRIATE PLACE IN THIS TABLE 
x BEFORE EXECUTING ANY X10 COMMAND 
* WHICH WILL RESULT IN AN INTERRUPT. 
as a a as cc a ee ee A ee en ere eet eens 
* ‘ 

DC IERR 15 

ee IERR - 14 

DC IERR 13 

DC IERR 12 

DC IERR 11 

DC IERR 10 

DC IERR 9 

OC IERR 8 

DC IERR 7 

DC - IERR 6 

DC IERR 5 

DC [ERR 4 

DC TERR 3 

DC IERR 2 

DC IERR 1 | | 
ILO))=—sséNE. IERR 0 1442 COL RQST. 
: DC IERR 15 

pc IERR 14 

DC IERR 13 

DC IERR 12 

DC IERR il 

DC TERR (10 

DC IERR 9 

DC. TERR: 8. 

DC IERR 7 

DC IERR & 

NC IFRR 5 
-15JSUN67  LODOCT67 OLOCT6B8 LOJAN69 = 25JUL69 — 
420317 571053 


30000990 


30001000 


30001010 - 


30001020 
30001030 
30001040 


30001050 


30001060 
30001070 
30001080 


- 30001090 


30001100 
30001110 


30001120 © 


30001130 


30001140 


30001150 
30001160 
30001170 


30001180 © 


30001190 
30001200 
30001210 
30001220 


30001230 


30001240 
30001250 
30001260 
30001270 
30001280 
30001290 


30001300 | 
30001310 
30001320 


30001330 
30001340 
30001350 
30001360 
30001370 


PROG I 
PAGE © 


9 | 


i 
1A 


0300-2 - 


LA 


= 2 











IBM MAINTENANCE 


1130 DIAGNOSTIC 


s . . i 


DATE 


0187 


0186 


0188 
0189 
018A 
0188 
O18C 
©0189 
 O18E 
O1L8F 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
O1L97 
0198 
0199 
O1L9A 
919B 
019C 
0190 
O19E 
O19F 
O1AO 
OLAl 
OLA2 
OLA3 
 OLA4 
O1A5 
O1LA6 
OLA7 
O1A8 
O1A9 
~~ O1AA 
O1AB 
OLAC 
Q1AD 
O1LAE 
-OLAF 
01B0 
O1B1 
01BR2 
0183 
01384 
 O1B5 
~O1R6 
O1B7 
O1BB 
O1B9 
O1BA 
01BB 
018C 
O1BD 
O1BE- 


02 JAN6 
415490 


oooococsec roo f2ccocoosocooeooocoooocooecoseoscsooocasaooososoooscoseoo9 coo] | 





PART NO. 2191200 


DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM IBM MAINTENANCE 


a PAGE ; 2 . 

MONITOR IT 1130 DIAGNOSTIC 

04B0 DC IERR 4 — 30001380 

04B0 DC. -IERR ‘oS 30001390 

04B0 DC IERR 2 30001400 

04B0 DC JERR | 1 | ree a 30001410 © 

04B0 IL1. DC IERR 0 (1132 SERVICE RQST 30001420 O1BF O 

O04B0 ~ pe IERR 15 3 | : 30001430 01C0 0 

04B0 DC TERR 14 30001440 91C1 0 

04B0 DC IERR 13 30001450 91C2 0 

04B0 DC IERR 12 30001460 91C€3 0 

04B0 DC IERR ae | 30001470 0104 9 

04B0 DC IERR 10 39001480 01C5 90 

04B0 DC TERR 9 30001490 01C6 9 

0480 DC IERR 8 30001500 O1LC7 O 

04B0 DC IERR 7 30001510 91C8 0 

04B0 DC IFRR | 6 30001520 0109 0 

04B0 NC TFRR 5 30001530 O1LCA O 

04B0 DC IERR 4 30001540 01CB 0 

04B0 DC IERR 3 30001550 Q1cc 9 

04B0 DC IERR 2 30001560 01CN oO 

0480 . DC IERR 1 30001570 O1CE 9O 

04B0 It2 DC IFRR 0. NISC SERVICE RQST 30001580 

04B0 DC IERR 15 30001590 

04B0 DC TERR 14 30001600 

04B0 DC IFRR 13 30001610 

04B0 DC . IERR 12 30001620 

04BR0 DC IERR il 30001630 

04B0 DC IERR 10 30001640 

04B0 DC IERR 9 309001650 

04B0 DC IERR 8 30001660 

04B0 DC IERR 7 30001670 

04B0 DC IERR 6 30001680 

04B0 NC TERR 5 30001690 

04B0 DC IERR 4 30001700 

04B0 DC IERR. 3 30001710 

04B0 DC TERR 2 30001720 

04B0 DC. IERR 1 30001730 

04B0 IL3 DC IERR 0 1627 SERVICE RQST 30001740 

04B0 DC IERR 15 30001750 

04B0 DC IERR | 14 30001760 

04B0 DC IERR 13 30001770 

04B0 DC IERR 12 30001780 

04B0 DC TERR il 30001790 O1LCF O 

04B0 DC IERR 10 30001800 0100 0 

04B0 DC IERR 9 30001810 O01D2 0 

04B0 DC IERR 8 30001820 0103 0 

04B0 DC TERR 7 30001830 : 

04B0 DC IERR 6 30001840 0105 O 

04B0 DC IERR 5 30001850 QO1D7 O 

04B0 DC TERR 4 30001860 0109 0 

04B0 DC TERR 3 30001870 ‘OLDA O 

04B0 DC IERR- 2 1442 OP COMP 30001880 O1DB O 

04C6 DC . MC INT 1 1053 - 30001890 

0480 IL4 DC IERR. oO PAPER TAPE 30001900 OLDC O 

04B0 RQTY DC IERR CON PRINTER REQUEST 30001910 OLDE O 

O4EA ROQKB DC MMRBS—-1 KEYBOARD REQUEST 30001920 OLDF O 

04B0 — — S$VKB DC IERR KB SERVE REQUEST 30001930 O1LE1L O 

04B0 IL5 DC IERR INTERRUPT LEVEL 5 30001940 O1E3 0 
* 30001950 — O1E4 O 
WH HA HR RR RR KE OK 30001960 O1&5 O 
x PROGRAM ID TABLE ate | | ~ 30001970 OLE6 0 
PSST SCE SSSE SSS CLS SS SLL SCLC OSS SOC SSL S ST tt ts t 4 30001980 O1LE7 O 
* : 30001990 O1E8 0 
*x THIS TABLE IS USED BY THE MONITOR | 30002000 OLED O 
* TO. IDENTIFY THE PROGRAM OR PROGRAMS IN- 30002010 
* CORE AND TO PROVIDE AN ADDRESS FOR © 30002020 O1LEB O 
* COMMUNICATION WITH THESE PROGRAMS. 30002030 O1ED O 
xx | . rae — 30002040 O1LEF O 
x AS EACH PROGRAM IS LOADED ITS MLSCF 30002050 © O1FO O 

6 LS5NOV66 15 JUN67 LOOCT67 010CT68 LOJAN69 “25JUL69 PROG ID 0300-2 DATE — O2JAN6 

419643 420317 42031 7D 571021 571053 PAGE | 2 


571005— EC NO. 415490 


ad >» : ) . . -_ -_ ; ao : > a . 
ee Soa: i. ee a a Ne me om Zz , vy Saks , RS act | 


DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


MONI 


0000 
0000 
00900 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
9000 
0000 


TOR ITI 


0000_ 


0000 
0000 
0213 


0000 
1401 
COBA 
D400 


C480 
D400 
D0Q03 
BO2ZE 
D926 


6500 


C100 
D400 
6780 
620F 
C020 


050D 
0511 


O1CF 
O5SOF 


0000 


OSOE 
050D 


1B00. 


DOLD 
1240 


C019 


D600 


OCO0O 
C400 


— 1LOOF 


180F 


6 


O1BF 


0552 
050C 


15NOV66 


419643 


ae 
—_ 
a. 


oO my, 


? \, 
ie 
NN ox 


f 


\ 


NY 


xx ADDRESS IS PLACED IN THIS TABLE AT THE 


x POSITION WHICH CORRESPONDS WITH 

* THE ORDER IN WHICH IT WAS LOADED. 

5 ee ee ee cee me ne ee ene ae ee me a eee cee cae ae cee cane ee ae oe ce ee ae ee ee 
DC *— j . OF 
DC R— 2 2 OE Py) 
DC *- + y » OD. 
DC Km : m:.. “06% 
DC *- % : - OB. 
NC K— XK 2 2 OA ° 
Nc x i - Oo9. 
DC k- 5 » 08 . 
DC KK act OTS 
DC Hm Ps - O68. 
DC *— & a a “O5>% 
DC = s - O04. 
DC e— & - O03. 
DC KK . . 2 02 e 
pc 4-~% 4 o> OL: 0g 

MPIDT OC ML SCF : - oO. 

* 


r 


Be Re a tok kk ke kk ee tk ok dk eK Rok Re ok ok ok KKK 


BEGIN ROUTINE 
Rm ROR ok ok tok ok kok KR dk RRR EE KR RR EK 


x 


* 
* 
* 
* 
* 
* 
* 
x 
* 
#e 
* 
4 
* BSI 
x DC 
* 
BGIN DC 
MDX 
LD 
STO 
x 
LD 
STO 
STO 
A 
STO 
* 
BGIN] LDX 
LD 
STO 
LDX 
LDX 
LD 
SRA 
STO 
SLCA 
LD 
STO 
& 
X10 
LD. 
SLA 
SRA 
15JUNG67 
420317 
o™ 


be 


PROGRAM 


LOADED, 


THIS ROUTINE 1S ENTERED BY ALL 
PRBGRAMS FOLLOWING PROGRAM LOAN. 
THE ROUTINE WILL SET THE MLSCF 
ADDRESS OF THE PROGRAM IN THE — 
PROGRAM ID TABLE, G9 
INITIALIZE THE PROGRAM, 


TYPE 


OUT A MESSAGE IDENTIFYING THE 
AND START THE 
PROGRAM TF LOAD AND GO. 


SO LS cme A SER SD ED CRP CRED CUE TD SOR SAD ED SS AE ED “SE SN AD CED GS TES OD OE SED ATED AE ED MS NED EY GUE NMED VUES GRIND “OLED GREED SEY GED SERS ED 


CALLING SEQUENCE 


BEGIN 


ADDRESS OF PROGRAM CONTROL TABLE | 
ee ea es eee Pada en een eee io ios sa eat aa i ln ie a Sa tao aN abi has eal a ed sera 


ke 
L PGMN,1 
RELF LOAD THE RELOCATION 
L MTABLES FACTOR AND SET IN MSG 
{ BGIN LD ADDR OF PCT 
L MTABLE3 STORE IN MESSAGE 
BGIN16E1 
KO009 CALCULATE MLSCF ADRS 
TEMPB SAVE MLSCF ADDRS 
Ll *-%* XRL#APCT ADDRS 
1 0 LD PID | 
lL. MTABLE2 SET PID IN MESSAGE 
13 PGMN XR3#PRGM NO. 
2 15 | 
K8000 
 XLECT - 
2.0 
TEMPB 
L2 MPIDT-15 STO MLSCF ADDRS | 
L RDBS READ BIT SWS 
tL MTABL | 
15 
15 
- LOOCT67 O10CT68 LOJAN69 25JUL69 
42031 7D 571005 571021 - 571053 
CO) oS i . \ 


ee wat Shes = 


PART NO. 2191200. 


PAGE 


30902060 
30002070 
30002080 
30002090 


— 30002100 
30002110 


30002120 
30002130 


30002140 


30002150 
30002160 


30002170. 
°30002180 


30007190 


30002200 


30002210 
30002220 
30002230 
30002240 
30002250 
30002260 


- 30002270 


30002280 
30002290 
30002300 
30002310 
30002320 


30002330 


30002340 
30002350 


30002360 | 


30002370 
30002380 
30002390 
30002400 
30002410 


30002420 
30002430 


309092440 
30002450 
30902460 


30002470 


30002480 


30002490 


390002500 


‘30002510 
~30002520 


30002530 


30002540 
30002550 


30002560 


30002570 


30002580 
30002590 
30002600 
30002610 
30002620 
30002630 
30002640 
30002650 
30002660 
30002670 
30002680 


30002690 
30002700 
30002710 


30002720 


30002730 


PROG ID 


PAGE 


2A 


~ 0300-2 
2A 


” ae en, , P wee ; ge. a 
‘ : \ / 
- or. | Co , 


Se 


IBM MAINTENANCE 


1130 DIAGNOSTIC 


DATE 
EC NO. 


—O1E4 


 OLFC 


~ 0203 
— 0204 


O1F1 
O1F? 


oO 


N1F3 


OLFS 
O1F6 


o000 


O1LFT 
O1F8 
OLF9 
QOLFA 


oD OD 


Os 


O1FE 


9200 
0290 
0201 
0202 


0705 
0206 
0207 


OSG o Soo 5 


9298 
0208 
0209 


oOo 


020A 
0208 
020C 
020D 
O20F 
020F 
0219 
0211 
O21? 


S2apo000onado 


0213 
0214 
0215. 
0216 
0717 
0218 


es - es eS 


0719 
O21A 
0218 
N21 
0210 
OPLE 
O21F 


OOo oOo 200 2 


O2J5AN6 
415490 


re ee 


DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


MONI 


TOR If 


E814. 


9103 


COLO 
T3FF 
FROD 
DOOC 


622E 
6300 
C806 


4400 


6700 
6078 


0000 
0589 
059F 
0000 
0000 
0000 
BO00 
0080 
OO7F 


N090 
0000 


O4F3 


OLTA 


0009 | 


0000 
0000 
0000 
0090 
0900 
0000 
0090 
0000 
0900 


Q0N00 
0090 
0000 
0000 
0000 
FFFF 


6305 


C318 


D307 


T3FF 


TOFC 
C318 
D300 


6 


LSNOV66 
419643 


* 


MME SO 


TEMPB 


SELCT 


XLECT 
K8B000 
KO080 
KOOTF 
x 


OR 


ST0O- 


THIS SUBROUTINE WILL LOG 


MESSAGE. 

LDX 2 1002E° 
LDX 39 

LOD M4 SO 
BSI bL MLIAG 
LDX L3 ILO 
LOX LO ADR 
BSS E 9O 

DC ADRLD 
DC ALD 
NC *x— & 
DC xK— 
DC *- * 
DC 78000 
DC /00B0 
DC /OO0T7TF 


KO O80 
1 3 


XLFECT 
= ere 

SELCT 

SELCT 


SKIP ITF NOT QVERLAP 
STORE SELECT CONTROL 


THE LOAD 


SFT WORD CONTROL 
SET MSG ID 

LD ALPHA ADDRS 
GO LOG MESSAGE 


LMNAD NEXT PRGM 


CTT Cece Te CeCe CCST TSC CTCL SSS TLCS Se ee Le ess 2 2S ! 
MONITOR CONTROL TABLE 


* 
ra 


ZEROS 
KO909 
& 7 


MP ID 


MSWO 
MSW 


~ MSW2 


MSW3 


tk 
MLSCF. 
TYPT | 


 ERRY 


MMBSY 
IERM 

TERMX 
* 


x 


ae 
INLIZ 


BSS 
DC 
DC 


DC 
DC 
DC 
DC 
DC 
DC 


LOX 
Li) 
STO 


MIX 


MOX 
LD 
STO 


15JUN67 


420317 


F OQ 
0900 


9909. 


0900 
0000 
0000 
ko 
*— 
ek 
Kk 
O000 
0000 


Hm & 
/FEFE 


RG ROR Ra ak Rok tk ck fe dk feo eae eo ake a aC 


FIVE ZFROS USED AS MSG 
PID 


SWITCH FUNCTION 


WN em © 


READ BIT SWS 

TYPE INTERRUPT 

ERROR BUSY 

MONITOR MESSAGE BUSY 
INTERRUPT ERROR MESSAGE 


ROG COO elo dakota i tog doi doi dak dot doi akg dea took 


MONTTOR INITIALIZATION 


we Ke fe a he Be Re ae a ak ae ote ae ie ak RE ae oe ok Xe ke a oe a eo aK Ra ok oe Re RK Re oe 


305 | SET RESTART FROM ZERO 

3 IXFVC-1 AND INTERRUPT TRANSFER 

3 XFVC-1 VFCTOR ADDRS IN LOW CORE 

S-=] : ee Ee 

 .INLIZ61 

3 ORGO 

3 0 

LOOCT67 O10CT68 LOJAN69 25JUL69 
571005 571021 571053 


42031 7D 


C) 


io EC NO. 





415490 


co © 


IBM MAINTENANCE DTAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


Me a, 
( 


Se 


PART NO. 2191200 
PAGE 3 
1130 DIAGNOSTIC MONITOR II 
30002740 
30002750 
390002760 
30902770 
30002780 
30002790 _ 
30002800 
30002810 
30002820 
30002830 
30002840 
30002850 
30002860 
30002870 
30002880 
30002890 
30002900 
30002910 
30902920 
30002930 
30002940 0220 0 COEC 
30002950 9221 0 DOSB 
30002960 0222 0 EOE4 
30002970. 0223 0 7400 027B 
30002980 0225 0 DOE7 
30002990 
30003000 02?6 0 10A0 
30003010 0227 0 D400 0165 
30003020 0229 0 0051 | 
- 30003030 , 
30003040 022A 0 OCOO 0300 
30003050. 922C 0 1002 
39003060 022D 90 4428 O4C4 
30003070 | 
30003080 N22F O 6110 
30003090 9230 0 ConN2 
30003100 0231 0 E8D3 
30003110 0232 0 DOD] 
30003120 
30003130 0733 9 CoDoO 
30003140 02324 0 1140 
30003150 0235 0 FOCF 
30003160 9236 0 DOCD 
30003170 0237 0°C500 O1BE 
30003180 N239 0 N004 
30003190 023A 0 4€02 023D 
30003200 923C 0 70E3 
30003210 : 
30003220 023D 0 6600 0213 
30003230 023F 0 6932 
30003240 . , a 
30003250 0240 0 C2FT | 
30903260 0241.9 4C18 0258 
30003270 | ; 3 
30003280 0243 0 C2FA 
30003290 0244 0 F838 
30003300 0745 0 4804 
30003310 0246 0 1810 
30003320 0247 0 ER35 
30003330 9248 0 18D8 
30003340 0249 0 4010 0254 
30003350 
30003360 024B 0 682F 
30003370 024C 0 2000 
30003380 024D 0 C2FA 
30003390 O24E 0 E025 
30003400 O24F 0 D2FA 
30903410 0250 0 C024 
PROG ID 0300-2 DATE  O2JAN66  15NOV66 
PAGE 


419643 


re 
f 


Moe : 
/ 
7 





ae, 


\ en a9 os me se ’ ia “ ao 
‘ / \ . { \, a 7 \ 
7 a ) C | , oe, ( 
4 a 





Pins 


OO) 


*tok O t Ro oR kok gk kik ak Sk tok ek ok ek Skok eo oe KE 
SUPERVISOR ROUTINE | 


*& 


* 


ttre texte He He H 


BS 


Lf 


STO 


SLT 
STO 


X10 
SLA 
BST 


eg 


LOX. 
LD: 
OR 
STO 
MXYFOL LD 
SLCA 
EAR 
sta 
STO 
BSC 
Mt) X 
x 
MXEQ2 LOX 
STX 
: 
LD 
BSC 


LD 
OR 
BSC 
SRA 
QR 
RTE. 
' BSC 


STX 
LDS 


AND 
STO 


L5JUN67 


STO 


THE ENTRY. 


AOR ok tof tok tok tok qk aR tok ok ak KR a a 


THIS ROUTINE POLLS ALL SELECTED 

PROGRAMS LOOKING FOR AN ENTRY IN THE 
MLSCF TABLE OF EACH PROGRAM, 
FNTRY IS FOUND 


IF AN 


THIS ROUTINE WILL 
BRANCH TO THE ADDRESS SPECIFIED BY 
ONLY THE FIRST NON. ZERO 
ENTRY IN EACH MLSCF IS EXECUTED. 
RETURN FROM ANY PROGRAM THE SUPERVISOR 
WILL POLL ALL OTHER PROGRAMS BEFORE 
FXECUTING ANOTHER ROUTINE -IN . 


UPON 


CALLING SEQUENCE 


I START 
PROS RA ape Pe PRM EE PEN MEE aR ee IF EON NERO ree ET AR eS one 
MSWO 
MS WOX 
KOO7F 
L STRSW~ SKIP IF NOT START 
MSWO 
32 7 
L RTNSW RESET RTN START SW 
STRSW RESET START SW 
LOGT SENSE CONSOLE DSW 
2. CK FOR INTRPT 
MCTINT,Z&. BR IF RESPONSE BIT ON 
esas | | 
SELCT2 =." 5. rag | 
K8000.  —«*OO NOT HALT MONITOR 
XLECT oe 
XLECT 
oO. | 
—K8090 
- XLECT a ee 
Ll MPIDT-16 LD MLSCF ADDRESS 
MXEQ261 
L  MXEQ2,C 
_ MXEQ 
L2 MLSCF XR2#ADDRS OF MLSCF 
1 MXEQTE1 SAVE XRL - 
2-9 LD PID ) 
L MXEQ5,8- BR IF MONITOR 
2-6 NOT MONITOR- LO SO 
MS WOX COMBINE WITH MON .SWO 
E SKIP IF NOT HALT 
16 . | 
MS WOX COMBINE WITH MON SWO 
24 CK START BIT 
MXEQ4,-  - BR_IF NOT START 
STRSW SET START SW 
0 Plog Ht 
2 -6 | 
 KOOTE RESET RESTART 
2-6 
SMSGA SET TO PRINT RESTART MSG 
LOOCT67 OLOCT6B8 10JAN69 25JUL69 
571021 


420317 


42031 7D 


571005 


571053 


PART NO. 


PAGE | 


39003420. 
30003430. 
30003440. 


30003450 
30003460 
30003470 
30003480 


— 30003490 
30003500. 


30003510 
30003520 


30003530 
30003540. 
30003550. 


30003560 


30003570 


30003580 


30003590. 


30003600 


30003610_— 


30003620. 


30003630 
30003640 


30003650 


30003660 
30003670 
30003680 


30003690 


30003700 
30003710 
30003720 


30003730 


30003740 


30003750. | 


30003760 
30003770 
30003780 
30003790 
30003800 
30003810 
30003820 


30003830 


30003840 


30003850 . 


30003860 
30003870 


30003880. 


390038990 
30003900 


30003910. 


30003920 
30003930 


30003940 
30003950 


30003960 


30003970. 
30003980. 


309003990 
30004000 
30004010 


30004020 


30004030 


30004040 — 


30004050 
30004060 


30004070 | 


30004080 


30004090, 


PROG ID. 


PAGE. 


2191200 
3A 


0300-2 
3A 








IBM MAINTENANCE 


1130 DIAGNOSTIC 


DATE 
EC NO. 


~O25F 


- 0264 


0267 


0260 
| 026€ 
0270 


9279 
OP? TA 


~—027C 


0251 6 
0252 0 


0253 0 


0254 0 
0255 0 


0256 0 


0258 
0259 
025A 
025 
0250 


0260. 
O261 
0263 


Sos oS 6:5'6:9 


0265 


0268 
0269 
O26A 
026C 


SoOoooo ooo 6 


0271 0 
0273 0 


0274 
0275 
0276 
0277 
0278 


0278 


oS ooo SoS oGS 


0270 
O27E 


~~ 0280 9 


0282 0 


0284 0 
0285 0 


0287 
0288 
0289 


Oooo 


N2J5AN6 
415490 


DIAGNOSTIC PROGRAM FOR 


MONITOR. TI 


D200 
7201 
1004 


C2FA. 
ESB7 
4004 0271 


C200 


D008 


4C18 0252 — 


FORB 
4C18 0271 


°1810 . 


n200 
4C02 0000 
TOEE : 


0000 
6680 023E 


COAS5 


EAFA 


1009 


7400 0165 
4810 

7003 

4400 O2F8 
0208 — 


6500 0000 
TOBF 


OOTE 


0293. 
0900 


8001 
OSAD 
0000 
0900 
9000 
0001 


~9000 
0002 


C400 0412 


4020 0408 


C092. 


4CAO 04R0 » 


DO6D 


DO6B 


6700 0414 


6  1LS5SNOV66 
419643 


* 


STO 
MXEQ3 MDX 
, MDX 
* 
-MXEQ4 LD 
OR 
BSC 
is | 
~ MXEQ5 LD 
-F STO 
BSC 
EOR 
BSC 
SRA 
STO 
MXEQ6 BSC 
MDX 
x ; 
STRT DOC 
LOX 
LD 
OR 
SLA 
MD Xx 
BSC 
MD X 
BSI 
oc 
* 
a. 
MXEQ7 LDX 
MD X 
x 
KOOTE OC 
SMSGA DC 
| DC 
Dc 
DC 
STPID DC 
STRSW DC 
— KOOOL DC 
MSWOX DC. 
BSS 
‘i | 


Ea 


ie 


THE 


tl 


1130 SYSTEM 


0 
i 
MXEQ5 


—6 
MS WO 


 MXEQT,E 


0 
MXEQ6E1 
MXEQ3,6- 
TERMX 
MXFQ7, &- 


16 
0 


~*,C 
MXEQ3 


x— 


MXEQ2E1 


MS WO 


-6 


9 
RINSW 


MX EQT 
LOGI 


ZEROS 


k— & 
MXEQL 


/OO7E 


— SMSG 


BRANCH TO GQ. 
INTERRUPT TRAP, 


* 
*x 
P 4 
% 
- 
x 
& 
* : 
MRSRT LD 
BSC 
* 
LD 
BSC 
% 
* : 
STO 
STO. 
LDX 
L5JUN67- 
420317 


40000 
789001 
ASTRT 
4/0000 
k— 
k— 
70001 
*— 


2 WARNING 


SET MLSCF ENTRY 


IF NOT MONI TOR- LD SWO 
COMBINE WITH MON SWO 
BR IF HALT SW ON 


LD MLSCF ENTRY 
SET UP FOR EXIT ~ 


_ BR IF ZERO 


BR IF TERMINATOR 


ZERO MLSCF ENTRY 


EXIT TO USER 


SUPERVISOR ENTRY 


COMBINE WITH USER SWO | 
CK RTN START LOG SW 
CK RTN START SW 


BR IF NOT BOTH 
LOG RTN START MSG 


RESET XR1 TO SELECT CNTRL 


CHANGE TO OO7F 


CAN BE USED FOR EVEN K 


START SW 


DON'T REMOVE USED. FOR DIMAL 


oS oick a io odo kik goo 


- MONITOR RESTART 
MRK EK REE REE RK KKK RRR EEK RAE AE KEEE EKER KK 


THIS SUBROUTINE RESTARTS THE MONITOR. IF THE 
RESTART IS FROM PROGRAM HALT THE SUBROUTENE WILL 
IF THE RESTART IFS FROM THE INVALID 
THE SUBROUTINE WILL BRANCH 
INDIRECT ON THE INTERRUPT ENTRY. 


MRSRT AT /0280 


ae, KEEP 
L STPSW RESTART FROM HALT 
L G0,Z IF YES BR TO GO 
TERM “CK FOR RESTART FROM 
I IERR,2 INVALIO INTRPT TRAP 
IOBSY RESET IOBSY } 
ERC RESET ERROR CALL | 
L3 aSTOP Dg 
100CT67  OLOCT68 10JAN69 25JUL69 
420317D 571005 571021 571053 
— ~\ > ON oN 
a , sf 


IF. NONE GF THE. 
_ ABOVE THE SUBROUTINE WILL CONTINUE EXECUTION 
OF ALL PROGRAMS NOT HALTED. 


PART NG. 


PAGE 


30004100 


30004110 


30004120 


30004130. 


30004140 
30004150 
30004160 
30004170 


30004180 
30004190 
~ 30004200 © 
30004210. 


30004220 


—* 30004230 
30004240 
(30004250 | 


30004260 


30004270 


30004280 
30004290 


30004300. 
30004310 


30004320 
30004330 
30004340 


30004350 — 
30004360 
30004370 
30004380 


30004390 
30004400 
30004410 
30004420 


- 30004430 


30004440 
30004450 
30004460 
30004470 


. 30004480 


30004490 
30004500 
30004510 
30004520 
30004530 
30004540 


30004550. 
30004560 | 
(30004570 


30004580 
30004590 
30004600 
30004610 


30004620 © 


30004630 
30004640 
30004650 


30004660 


30004670 
30004680 
30004699 
30004700 
30004710 
30004720 
30004730 
30004740 
30004750 


30004760 


30004770 


PROG ID 


PAGE 


2191200 
4 


0300-2 


[BM MAINTENANCE 


DIAGNOSTIC. PROGRAM FOR THE 


1130 DIAGNOSTIC MONITOR IT 
0288 0 6F00 0015 
028D 0 6700 O4EA 
028F 0 6F00 O1BC 
0291.0 4C00 0219 
0293 0 7400 02F5. 
0295 0 7008 
0296 0 CODD 
0297 0 EC00 027C 
0299 0 DODA 
029A 0 C2FT 
-029B 0 DODE 
029C 0 405B 
029D 0 0275 

029E 0 CLFF 
029F 0 D100 
02A0 0 7000 
02A1 0 COD3 
02A2 0 D200 
02A3 0 7YOCD 
0244 0 0000 | 
02A5 0 6580 023E 
O2A7 0 6600 0214 
O2A9 0 6780 O2A4 
O2AB 0 C048 
O2AC 0 4C20 O2EB 
O2AE 0 6845 
O2AF 0 6B43 
02B0 0 CIFA 
02B1 0 EAF9 
O2R2 0 1881 : 
02B3 0 4C04 0288 
02B5 0 1881 : 
02B6 0 4004 02C1 

DATE O2JAN66 15NOV66 

EC NO. 415490 — 419643 

; Gs eo = . a? 

a ) tee e 


a ee ee a ee ee ee ee ee 
o 
O 


. STX 
LDX 
. STX 
* 2 
BSC 
* 
* 
SMSG MDX 
MDX 
* : 
LD 
OR . 
STO 
LN 
STO 
BSI 
DC 
& 
LD 
STO 
MDX 
* | 
SMSG1 LD 
| STO 
MDX 
* 


L3 ILIR 
L3 MMRBS 
L3 RQKB 


L INLIZ 


Lo agen | 


SMSG1 


KOOTE 


Lt KOO0O01 
_ KOOTE 


STPID 


LOGI 
SMSGA 


4y 
0 
MXEQT 


pod pet 


SMSGA 
20 © 
MXE QT 


1130 SYSTEM - 


INITIALIZE FOR ADRS STOP. 


RESTORE RQKB 


re 


CK ete SW 
BR IF BUSY 


LD PID. 
STO IN MSG . 
PRINT START MSG 


LOAD RESTART ADDRS _ 
SET IN MLSCF | 


SET TO TRY AGAIN IF 


PRINTOUT RTN IS BUSY 


RRR KR A REE ERE KE REE EA EERE ERA ERE AREER 
* 


ERROR LOG ROUTINE 

TRB GR EAR RE RIE REA RARER ARE REE R ERE 
THIS ROUTINE LOGS ERROR MESSAGES AND 
CHECKS SWITCHES FOR BYPASS ERROR LOG, 
HALT ON ERROR AND LOOP ON ERROR. 
AFTER RECEIVING AN ERROR LOG CALL, 


NORMAL PROGRAM POLLING IS. INHIBITED 


UNTIL ERROR MESSAGE IS TYPED. 


0 A AE A OS AD ES AS EP AS SD EN D-DD ENS CE AD EY AY SNS EN SD GEN ED “CE ES SS WY AE SOD SEP NED ETD SED SD SMD END ED come coe AE 


CALLING SEQUENCE 


15JUN67 
420317 


IT ERROR 


ADDRS OF MES SAGE 
LOOP ADDRS - NO LOOP IF ZERO 


MESSAGE FORMAT 
MESSAGE NUMBER 
HEX/DECIMAL SWITCH | 
DATA WORD ID. 
ALPHA ADDRS 1 
ALPHA ADDRS 2 if 
O TO 15 MODIFIERS 


k— x 


Tl MXEQ261 


L2 TYP! 
I3 ERRI 
ERC 


L BUSY,Z 


3 ERC 


3 FRSW 
1 -6 
2 


MSWO-TYPT. 


1 


L  ERRI1, 


l 


LOOCT67 


4203170 


a 


~ 
a 


E 


Lb RSTXE29E 


XRL#MLSCF ADDRS 


-X3#CALL SEQ ADDR 


CK FOR ERROR BUSY. 
BUSY RETURN 

SAVE CALL SEQ ADDR 

AND SET ERC BUSY | 

SET ERSW - 

LD FUNC O SWS | 

OR WITH MON SWS 

CHECK FOR HALT ON ERR 
BR IF HALT ON ERROR © 
CK BYPASS ERR MESS . 
BR IF BYPASS ERR MESS © 


LOJAN69 


O10CT63 1 ~25JUL69 
571005 571021 571053 
oo i rN 
\ ee ae, _ 7 / a 


PART NO. 


PAGE. 


30004780 
30004790 
30004800 


30004810 
30004820 


- 30004830 
30004840 


30004850 
30004860 


30004870. 
30004880 _. 


30004890 


30004900 | 


30004910 


30004920 


30004930 


30004940 


30004950 


30004960 
30004970 . 
30004980 


30004990 


30005000 


30005010 
30005020 


30005030 


30005040 


‘30005050 


30005060 
30005070 
30005080 


30005090 
30005100. 
30005110 


30005120 
30005130 


30005140 | 


30005150 
30005160 
30005170 
30005180 
30005190 
30005200 
30005210 
30005220 
30005230 
30005240 


30005250 


30005260 
30005270 


30005280 


30005290 
30005300 


30005310 


30005320 
30005330 
30005340 


- 30005350 
30005360 


30005370 
30005380 
30005390 


30005400 


30005410 
30005420 
30005430 
30005440 
30005450 


PRONG 1D- 


PAGE 


2191200 
ary. 


0300-2 
ow 


\ 


A, 
f 
Soe / 





OOO 


IBM MAINTENANCE 


NIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1130 DIAGNOSTIC MONITOR TI 


DATE 


EC. NO. 


O2BA 


0201 


0201 


O20D 


8 2 Bad 
O2F3 


0265 
O2EYT 
(N2E9 

O?ZEA 


OZER 
(O2EC. 
N2EE - 


02FO” 


O?B8 0 


O29 


N2RR 
0? BB 
O?BF 


So SoS :5 


0203 
0204 0 


0206 9 
02?°F7 9 
O2CR8 O 


0209 90 
O2CA 0 


O2CC 
Q02CN 
O2CL 
O2CF 


o72oO fo 


oo 


O2N2 


0204 O 
0205 0 
9207 9 


0209 0 


N2DA 0 
O2NB 0 


O20C 


O20NE 
O2EN 


Soe CG S-* * 


Oooo 


02 JANG 
- 415490 - 


oDpD - 


7048 


LOAO 


DOA 
0400 
6780 
6500 
6N00 
CO2F 
4F 18 


1810 
DO2B 
DO2B 


C02D 
4F 28 


C1FA 
FAF9 
1801 


4004 


1000 


4F10 


C301 
4F08 
4F 80 


3002 
JOFE 
TOFS 


1810 
NO1s 
6700 
6F00 
6903 


4090 


6500 
6780 
-6B09 


JOLA 


“T3FE 
6F00 
-4C00 


0000 


6 


0204 
0308 
0000 
O23E 


99001 


0002 


0?D9 
9002 


0002 
0001 


O2E5 
0215 


O271 


0000 
O2F4 


0216 
0220 


L5NOV66 
419643 


OO O O 


* 


“, 
‘ 
\ 


FRRI1L MOX. ELOG GO TO LOG RIN 
eae | 
aaah heen ee ee ge ae ee 
* LOG FINISHED - RESTORE AND RETURN 
x TO USER. 
i cs a oh aes vee a a et sy ee ee ae wa ee ees 
* 
LOGR SLT 32. 
STO INBSY RESET IDBSY 
STO L XLECT RESET SUP SCAN CONTROL 
LOX 13 LOGS5EL SET XR3 TO CALL ADDR 
RSTX LDX LL *-# XLAMLSCE ADRS 
STX Ll MXFQ261 
LO ER SW 
BSC L3 1l,&- RETURN IF NOT ERR 
* 
ERRI2 SRA 16 
STN ER SW RESET ERROR 
STO ERC SWITCHES 
x 
Lo LINE BYPASS SW CK AFTER 1ST 
BSC L3 2,76 LINE OF MESSAGE 
* 
LO 1 -6 LD FUNC O SWS 
oR 2 MSWO-TYPI QR WITH MCN SWS 
SRA 1. CHECK FOR HALT ON ERR 
BSC t HALTs»E 
* & | 
FRRI3 SLA 13 CHECK FOR LOOP 
| BSC L3 2,- ON ERROR 
: . 
LD 3 1 LOOP UNLESS 
BSG L3 296 LOGP ADDRS ZERO 
7 BSC 13 1 LOOP 
& 
HALT WAIT 2 HALT ON ERROR 
MD X HALT 
MDX ERR 13 
iat Si eae Se ean mn era ee ee ee i 
* ERROR BUSY SUBROUTINE 
Fa I A Se a SC Fee el NEAT PRR ee 
* 
ERRIT SRA 1h | 
STO ER SW RESET ERR SW 
LOX L3 ERRIB SET REENTRY 
STX L323 ERBY IN MLSCF 
STX 1 ERRIBEL 
BSC L MXEQ7. GO TO SUPERVISOR 
* . 4 
ERRI8 LOX LI *-* RESTORE XR1 
LOX 13 ERC RESTORE XR3 
STxX 3 ERSW . AND RESET ER SW 
MDX LOG4 GO TO LOG AGAIN 
ed 
* 
(H---- ++ + +--+ -- - -- - - - +--+ 
x Lac BUSY “SUBROUTINE 
hate eee eee ee ee eee re ee ee 
BUSY MDX 3 -2 7 
STX L3 MMBSY STORE BUSY RETURN 
BSC L  MXEQ GN TO: SUPERVISOR, 
Oc a a an tai Scan lac I hs Sas os ie eae ce ate Ces 
* CONSTANTS FOR ERROR AND LOG 
ime re me ee ee ee ae nn a nr rn nnn nnn 
* ee: : 
BSS F 0 
15JUN67 1LODCT67 £OLOCT68 LOJAN69 25JUL69 
(420317. §71005 571021 571053 


4203170 — 


lal Sat Se Suk 5 


PART NO. 


PAGE 


30005460 
30005470 
30005480 
30005490 
30005500 
30005510 
30005520 
30005530 
30005540 
30005550 
30005560 
30005570 
30005580 
30005590 
30005600 
30005610 
30005620 
30005630 
30005640 
30005650 
30005660 
30005670 
30005680 
30005690 
30005700 
30005710 


30005720 | 
30005730 © 


30005740 
30005750 
30005760 
30005770 
30005780 
30005790 
30005800 
30005810 
30005820 
30005830 
30005840 


30005850 


390005860 
30005870 


30005880 


30005890 
30005900 
30005910 
30005920 
30005930 
30005940 
30005950 


- 30005960 
30005970 


30005980 
30005990 
30006000 
30006010 
30006020 
30006030 
30006040 


30006050 
30006060 


30006070 


30006080 


30006090 


30006100 
30006110 
30006120 


309006130 


PROG ID 


PAGE 


OO 


2191200 
5 


0300-2 
5 


= 


Ned 








O00 C 
/ 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1130 DIAGNOSTIC MONITOR I! 


DATE 
EC NO. 


O2FO 
O2F1 
O2F2 
O2F3 
O2F4 
O2F5 
O2F6 
O2F7 


oooocooeo 


N2F8 
02F9 
02FB 
02FD 
(O2FE 
0300 


oOoooce 


0301 
0302 
0303 
0304 


ooo 0 


oO 


0305 
0307 


© 


0308 
0309 
0304 
030C 
030D 
030F 
030F 
(0310 


ovovo0e Toco 


© 


0311 


0313 
0314 
0315 
0316 
0317 


SOS So 


0318 
0319 
O31A 
O31B 
O31C 
O31E 


Ooo108 © 


O? JANG 
415490 


9000 
0000 
0000 
0000 
0000 
0000 
8100 
0000 


0000 
6580 


6780 


COFT 


4020 


DOF 2 


CIFT 
D8ED 
CIES 


-DOED 


.1490 


TOD4 


69B7 
6BO01 
6780 


€300 


1888 


COEL 


1088 


DODF 


6500 


62B2 
Ci10 
D277 
7201 
TOFD 


6229 
CODC 
D2FF 
C115 
1400 
C114 


6 


O23E 
O2F8 


O2ZEB 


O2F5 


0000 


O3DA 


O2F3 


L5NOV65 
419643 


HHH HH He HR He He tt OH Oe 


PIDWS 


ERSW 


ERC 
IOBSY 
CR 
rep 


ons 


DC 


DC 


* 
tot 


| 
em HH He He tH 


00 


%Hnr HH H H 3 
io | 


MID STORAGE 
ROUTINE STORE 
RTN ADDRS STORE 
ERROR SW : 
ERROR CALL SW 
1/0 BUFR BUSY SW 
CARRIER RETURN 


Eietiareewessees ase 


* 


LOG 


ROUTINE 


SC to goto oiGioR aka Ra ot tok tok got tok tk i ik 
THIS ROUTINE LOGS MONITOR AND TEST 


ok 


* 


* 


PROGRAM MESSAGES TO 
TYPEWRITER 
CALLING PROGRAM WHEN LOG 


BSI 
NC 


DC 
DC 
DC 
DC 
DC 


I 


CONTROL IS RETURNED TO 


THE CONSOLE 
THE 
IS COMPLETED. 


CALLING SEQUENCE 


LOG 


ADDRS OF MESSAGE 


MESSAGE FORMAT 
MESSAGE NUMBER 
HEX/DECIMAL SWITCH 
DATA WORD ID 

ALPHA ADDRS 1 
ALPHA ADDRS 2 


0 TO 15 MODIFIERS 


DD 0 Cem ST ey ne ER TE SD eR ee ee RD once oe ER ey DE ED SD ED RED ED ee ED CD ED cae AEE onRED ee 


ELOG 


LOG4 


LOG5 


LOG? 


DC 
LDX 
LDX 


BSC 


STO 


-LDD 


STD 
STO 


MDX 
MDX 


STX 
STX 


LDXx 
LD 


STO 
LOX 


LOX 


LD 


STO 
MDX 


—MOX 


LDX 
LO 


MDX 


Lo 


L5JUN67 
420317 


SRT 


SLT 


STO 


Ll 


pe ND 


1 


NNem Nh 


K— * 
MXEQ261 
LOGI 
IOBSY 
BUSY,Z 
ER SW 


-9 
PIOWS 
-7 
PIDWSE2 


INBSY,s0 
FRRIT 


RSTXE1 
LOG5&1 
Rm~ %& 

0 

8 
PINWS 
8 


 PIDWS 


TABL 


7-78 


16 
MESOE79 
1 

LOGT 


MESOE1 
CR 


=] 
so 2 
~ERSW,0 


20 


LOOCT&7 


~4203L 7D | 


010CT68 
571005 


XRLA#MLSCF ADDRS 
XR34# CALL SEQ ADDRS 
CHECK IF 1/0 

BUFFER BUSY 


RESET ERROR SW 


LOAD AND STORE PID 
AND ROUTINE NUMBER 


‘LD RTN ADORS 


STORE RTN ADDRS 
CHECK 

IF BUSY 
ERROR RIN 


FRROR LOG 
FOR BUSY- 
RETURN TO 
SAVE XR1 


XR3# MESSAGE ADDRS 
FETCH MESSAGE ID 


OR MID WITH PID 
STO TOTAL MESS ID 


XR1# CONVERSION 
TABLE ADDRESS 


LO SPACE 


SET 1/0. BUFFER TO 
SPACES 


XR2#1/0 BUFF ADDRS 


SET CARRIER RETURN IN OUT 


“LD SHRD CODE 
SKIP IF NOT ERROR 


LD SHRD CODE 


25JSUL69 
571053 


LOJAN69 
571021 


PAGE 


30006140 
30006150 


-30006160_ 
30006170 


30006180 
30006190 
30006200 
30006210 
30006220 
30006230 
30006240 
30006250 
30006260 
30006270 
30006280 
30006290 
30006300 


— 30006310 


30006320 


30006330 


30006340 
30006350 
30006360 
30006370 
30006380 


. 30006390 
30006400 
30006410 
- 30006420 


30006430 
30006440 
30006450 


— 30006460 


30006470 
30006480 
30006490 
30006500 


30006510 
30006520 


30006530 
30006540 
30006550 


30006560 


30006570 


30006580 


30006590 
30006600 


30006610 
30006620 
30006630 


30006640 


30006650 


30006660 


30006670 


30006680 


30006690 


30006700 


. 30006710 


30006720 


- 30006730 


30006740 
30006750 
30006760 


30006770 


30006780 
30006790 
30006800 
30006810 


PROG ID 


PAGE 


2191200 
5A 


awe 


0300-2 
_ 5A 


“we 


OOO09000 00 C 


PART NO. 


‘ 
| 
\ 








IBM MAINTENANCE 


1130 DIAGNOSTIC 


MONITOR I! 
031F O 9200 
0320 0 C301 
0321 0 18D0 
0322 0 C302. 
0323 0 D0D3 
0324 0 1001 
0325 0 1801 
0326 0 D918. 
0327 0 4C02 0334 
0329 0 COC6& 
032A O 18D0 
032B 0 4OTA 
032C 0 COC4 
032D 0 4C08 0334 
032F O 18D0 
0330 0 4075 
0331 0 COCO 
0332 0 18D0 
0333 0 4072 
0334 0 C112 
0335 0 D200 
0336 O C303 
0337 0 DO5B 
0338 0 4420 0393 
033A 0 :€304 
033B 0 4420 0393 
033D 0 C055 
033E 0 4C18 0345 
0340 0 C1LIA 
0341 9 7400 03F2 
0343 0 D200 | 
0344 0 7201 
0345 0 7314 
0346 O 6B0B 
0347 0 63F1 
0348 0 C918 | 
0349 0 4€04 0351 
0348 0 C918 
034C O 18C1 
034D 0 D918 
034EF O 7301 
034F 0 70F9 
0350 O 7O0OB 
0351 0 C700 0000 
0353 0 7289 
0354 0 0004 
0355 0 7277 
0356 0 7005 
0357 0 18D0 
0358 0 4C04 0386 
035A 0 4048 
035B 0 TOEF 
035C 0 C117 
035D 0 D200 
035E 0 6700 0028 
0360 0 6B6F 
0361 0 6893 
DATE O2JAN66 L5NOV66 
EC NO. 415490 419643 
gr a, 
_) - 


DIAGNOSTIC PROGRAM. 


L068 LD 


LOG9 


LOG10 
LOG11 


MDX 


LOG12 LD 


MD X 


FOUR OC 


MD X 
MDX 


RTE 
BSC 
BSI 
MDX 


LEND LD 


STO 
LOX 
STX 


STX 


FOR THE 


Wd AQ pe 


NN 


wm Wa 


1130 SYSTEM 


0 


1 
16 
2 ; 
LINE 

: | 
1 

24 
LOG8eC 


PIDWS 
16 

HE X 
PIDWSE1L 
LOG8,& 
16 | 
HE X 
PIDWS&2 
16 | 
HE X 


18 
0. 
3 
AL PHA 


ALPHA,Z 


4 


AL PHA,Z 


ALPHA 


LOG9s&- 


26 
WC ,0 
0 

1 


20 
LOG126&1 
-15 

24 
LOG12,€E 
24 

1 

24 

l 

LOG10O 
LEND 


*-*- 
~/77 


417 
LEND 


“EE: 


DEC yE 
HEX | 
LOGILI 


23 
MESO 


LOGT 
IOBSY 


STO SHIFT RED/BLACK 
IN 1/0 BUFFER 
LD HEX/DEC SW 


LD WORD CONTROL | 
STO MULT LINE CONTROL 
STO WC AND H/D SW 

BR IF NOT 1ST LINE 

LO MSG ID 
CONV AND PUT 


LD RTN ID 
BR IF NO RTN ID 


IN MSG 


CONV AND PUT 
LD RTN ADDRS 


IN MSG 


CONV AND PUT IN MSG 
LD TAB 

STO: TAB IN 1/0 BUFF 
LD FIRST ALPHA ADDR 
SET ALPHA SW 

IF NOT ZERO-GET MESS 
LD SEC ALPHA ADORS 
“TF NOT ZERO-GET MESS 
TEST ALPHA SW 

BR IF NO ALPHA. 


SKIP IF NO DATA WORDS 
STO CR AND TAB IN MSG 


XR3#DATA TABLE ADDRS 

STO DATA TABLE ADDRS 

SET TO CK DATA ID 

LD WC AND H/D SW 

BR IF PRINT DATA 
LD WC AND H/D SW 

SET FOR NEXT BIT 


SET XR3 FOR NEXT BIT 
LOOP UNTIL LAST BIT 


LD NEXT DATA WORD 


THIS WORD SKIPPED 
END IF MSG BUF FULL 
CK HEX/DEC SW. 


CONV HEX IF SW OFF 
RETURN FOR MORE 


SET FORM FEED AND TERM 
SET MESS START ADORS 


SET 1/0 BUSY 


ate TE ED SEE SED RED CUED AGED GERD CED WEED SED WEED SN RD FERN WEED cm UE ARES MEER GED cD CORED ORES SED NED SEED SUED AOD OED ED OE eee ee ee ae ee a ee oe 


TYPE THE MESSAGE- 


L15JUN67 


420317 


LODCT67 
42031 7D 


THE FIRST TYPE 


OLOCT68 LOJAN69  25JUL69 
571005 571021 571053 
aoe | oe a, = : 

Re ie "Hes ge 


PART NO. 


PAGE 


30006820. 


30006830 


30006840 
30006850 


30006860 
30006870 
30006880 


30006890. 


30006900 
30006910 
30006920 
30006930 
30006940 
30006950 
30006960 


30006970 


30006980 
30006990 
30007000 
30007010 
30007020 
30007030 
30007040 
30007050 
30007060 


30007070. 


30007080 
30007090 
30007100 
30007110 
30007120 


30007130 


30007140 
30007150 
30007160 
30007170 
30007180 
30007190 
30007200 


30007210. 


30007220 


30007230. 
30007240 | 


30007250 
30007260 
30007270 


30007280 


30007290 


30007300. 
30007310 
30007320 | 


30007330 
30007340 
30007350 


30007360. 


30007370 
30007380 
30007390 
30007400 
30007410 


30007420. 


30007430 


30007440 © 


30007450 
30007460 
30007470 
30007480 
30007490 


PROG ID 


PAGE 


2191200 


6 


1130 DIAGNOSTIC MONITOR II 


0362 


0363— 


0364 
0366 
0368 
O36A 
036B 
036C 
j O36E 
0370 
0371 
0373 
0374 


0376 
0377 
0379 
O37A 
037B 


037D 
O37F 
O37F 
0381 
0383 


0385 
0387 
0388 
038A 
038C 
038D 


0386 
038F 


— 0390 
0391 


0393 
0394 
0395 


(0396 
0398 
0399 
0398 
039D 
039E 
03A0 


O3Al 


0300-2 ; DATE 
- 6 | EC NO. 


QO 086D 
O 1808 


0 4C04 


0 6700 
0 &FO0O 
0 6302 
0 6869 
0 C480 
0 T4FF 
Q 7005 
0 7402 
0 1008 
0 7401 


0 DO5D 
0 4€18 
0 FO76 
0 1808 
0 4C18 


0 0854 


0 6857. 


0 6700 
0 6FOO 


0 4C€00 


0 0CO0 
0 1004 
0 4CLO 
0 7410 
0 70F2 
OQ 30FA 


0 70DD 


0 TOED 


0 0000 


0 4C€80 


0 0000 
0 D002 
0 7201 


0 C400 
O F116 
0 4C98 
0 C480 
0 D200 
0 7401 
0. 7201 


0 7289 


O02 JAN66 
415490 


0362 
0390 
0O18BB 


03D0 
03D5 


03D5 


03D0 


036C 


02B9 


0385 


0214 
0219 


O4DA 


036C 
03D6 


0390 


0000 


0393 
0397 


0397 — 


15NOV66 
419643 © 


‘ Ga, oe 


Rid 


_ 
a oa 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


COMMAND IS GIVEN THEN THE PROGRAM 


RETURNS TO 


THE SUPFRVISER TO RUN 


OTHER PROGRAMS UNTIL THE TYPE 
COMPLETE INTERRUPT OCCURS. 


THIS IS THE ALPHA SUBROUTINE. 


I 


LOGT 


Ll 


TYPyE 
TYPS 
RQTY/ 

2 

LOGTES 
LOGT | 
LOGTE5,—-1 
TYP2 
LOGTES,2 
8. 


LOGTs1 


LOGT&4 
TY Ply, &- 
TERM 

8 

LOGR, &- 


LOGT&2 
LOGT&6 
TYP4 
TYPI 
INL IZ 


MC DSW 

4 

TYP1ls— 
LOGT&6,16 
TYP3 

—6 


TYP 
TLOOP 


*— * 
TYPS5 


BR IF WORD 


CHECK TYPE BUSY 


LOOP IF BUSY 
SET INTERRUPT 
TRANSFER VECTOR 


STO NEXT WORD 
IS ZERO 
CK FOR TERMINATOR. 


BR IF LAST CHAR 


TYPE 


SET TYPE WAIT CNT 


SET RETURN | 
GO TO SUPERVISOR 


ADV COUNT. 


IF PROGRAM STOPS AT THIS 
WAIT, COLSOLE PRINTER 
BUSY’ DID NOT GO OFF. 


RETURN HERE ON 
- BRANCH BACK 


SS NY SY ce SS a A Se ee Ne ON ce Ne Sonne cen nen “ae A ED aA SD CE ND ce ED ate 


IT SETS 


ONE ALPHA PHRASE INTO THE I/O RUFFER. 
THE ADDRESS OF THE PHRASE IS IN THE 


ACCUMULATOR ON ENTRY. 


THE PHRASE MUST 


CONSIST OF LEFT JUSTIFIED ROTATE AND 
TILT CODE CHARACTERS TERMINATED BY FFFF. 


* 
TyP = XI0 
SRA 
BSC 
LOX 
STX 
LDX 
STX 
TYPL LO 
MDX 
MDX 
MD X 
SLA 
MDX 
«x : 
TYP2 STO 
BSC 
FOR 
SRA 
BSC 
* 
TLOOP XIO 
 STX 
TYP3 LDX 
STX 
BSC 
B 4 
TYP4 xXIO 
SLA 
BSC 
MDX 
MDX 
| WAIT 
x 
* 
MD X 
MDX 
* 
TYP5 DC 
BSC 
ALPHA DC 
STO 
MD X 
* 
ALPH1 LD 
EOR 
BSC 
LD 
. STO 
MDX | 
MDX 
te 
: MDX 
15 JUN67 


420317 


foe 


J 


- 


#-® 


RO ee EN EE NED ED WEED NES ED DARED CES ES ED OED ANS RD RD ES ES ED OEE OD ND ED SNE ee ce at AA SD SE OND 


ALPH1E1 | STO ALPHA PHRASE ADRS 
21 LEAVE SPACE IN MES. 
L *-* LD ALPHA WORD 
122. EOR TERM | 
I ALPHA,&- FINISHED — RETURN 
ALPHLEL LD ALPHA WORD 
20 STO WORD IN MES 
L ALPH1El,1 MOVE TO NEXT WORD 
21 ADV. I/O BUFFER ADDRS 
2 -/77 
100CT67 - O1OCT68  10JAN69 25JUL69 
420317D 571005 571021 | 571053 
ne ves 


an 
. 


ad 


1 
: a. : | ; 
\ \ 
* N 
Sal: — 


PART 
PAGE 


NO. 


30007500 


30007510 
30007520 
30007530 
30007540 
30007550 
30007560 
30007570 
30007580 
30007590 
30007600 
30007610 


30007620 


30007630 
30007640 
30007650 
30007660 
30007670 
30007680 
30007690 
30007700 
30007710 
30007720 
30007730 
30007740 
30007750 
30007760 
390007770 


30007780 | 


30007790 
30007800 
30007810 
30007820 
30007830 
30007840 
30007850 


30007860. 


30007870 
30007880 


30007890 


30007900 
30007910 


30007920 | 


30007930 
30007940 


30007950 © 


30007960 
30007970 


30007980 . 


30007990 
30008000 


30008010 


30008020 
30008030 
30008040 
30008050 
30008060 
30008070 
30008080 
30008090 


30008110 
30008120 


30008140 
30008150 
30008160 
30008170 


-30008100 | 


_ 30008130. 


PROG ID 


PAGE 


2191200 
6A 


0300-2 
6A 


(OO0O.0 00C-: 0000 0 CC Ot 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1139 SYSTEM | 3 PART NO. 2191200 IBM MAINTENANCE DIAGNOSTIC PROGRAM ‘FOR THE 1130 SYSTEM PART NOw 2191200 
| : | PAGE | a ee | ) 3 : oer PAGE | TA 
| 1130 DIAGNOSTIC MONITOR I! . 1130 DIAGNOSTIC MONITOR TI 
| 03A2 0.0005 FIVE DC - DB THIS WORD SKIPPED 30008180 03D6 0 0000 DC Ha K & | TYP DLY CNTR 30008860 
03A3 0 -7277 MDX 2/77 30008190 03D7° 0 000A. TEN ne /OOOA i! 30008870 
0344 O TORT MD X LEND END IF MSG BUF FULL 30008200 core! = 8 * , 30008880 
ne * 30008210 0308 0000 | BSS 0 30008890 
03A5 0 70FO MDX AL PHL GET ANGTRER WORD 30008220 03D8 O 0090 WCNT DC x ‘30008900 
pee - a x 30008230 0309 0 0000 _— DC Nea He ities 8 30008910 
0 Keenan $+ 5 $$ + - 30008240 03DA 0 C400 TABL OC 1/0400 0 TABLEO 30008920 
% HEXADECIMAL CONVERSION SUBROUTINE 30008250 03DB 0 FCOO DC /FCOO 1 Ls 30008930 
hee SS SS Se Sa See ae SSS 30008260 030C 0 D800 NC /D800 2 2 — 30008940 
x 30008270 0300 0 DCO0 DC /NCOO 3 3 30008950 
03A6 0 0000 HEX DC *-% 30008280 QO3DE 0 FOOD DC /F 000 4 4 30008960 
O3A7 O 7201 MDX 21 LEAVE SPACE 30008290 Q3DF O F400 DC /F400 5 5 30008970 
03A8 O COAB LD FOUR. SET CHAR CONVERT 30008300 03EO0 O DOOD DC /D000 6 6 30008980 
O3A9 O DO2E STO WC NT COUNT 30008310. O03F1l O D400 OC /0400 7 7 30008990 
* . 30008320 0362 0 E400 DC E400 8 8 30009000 
O3AA 0 1810 HEX1 SRA 16 CLEAR ACC TO ZERO 30008330 03E3. 0 -EN00 pc /EOOO 9 9 30009010 
O3AB 0 1084 SLT 4 BRING IN NEXT CHAR 30008340 O3F4 O 3EF00 pc /3€00 A 10 30009020 
O3AC 0 NOOL STO HF X261 30008350 0365.0 1A00 DC /1A00 B Ll 30009030 
03AD 0 C500 0000 HEX2 LD Ll *-* GET CHAR CODE 30008360 03E6 O 1E00 DC /1€00 C 12 30009040 
O3AF O D200 STO 2 0 SET IN 1/0 BUFFER 30008370 O3F7 O 3200 DC: 43200 D 13 30009050 
03B0 O 7201 MDX 2 1 ADV 1/0 BUFFER ADORS 30008380 03E8 O 3600 NC 13690 E 14 30009060 
03B1 0 74FF 0308 MDX L WCNT,-1l CHECK IF WORD HAS 39008390 03E9 O 1200 DC 41290 -F 15 30009070 
| 03B3 0 70F6 MDX ~HEX1 BEEN COMPLETLY CNVTD . 30008400 O3EA 0.2100 OC /2100 SPACE 16 30009080 
! * M4 | 30008410 O3ER 9 6200 NC /6200 R 17 30009090 
| 03B4 0 4C€80 03A6 ! BSC 1 HEX RETURN 30008420 O3EC O 4121 DC 14121 TAB 18 30009100 
| * 30008430 93ED O 8400 NEGS DC 4/8400 MINUS |. 19 ~30009110 
tS SSS Se See ea a Se eS eee eee 30008440 O3EE 0 0936 | DC 10936 SFT RED 20 - 30009120 
e DECIMAL CONVERSION SUBROUTINE 30008450 O3FF 0 053E DC /053E SFT BLK 21 30009130 
| a aaa 30008460 O3FO O FFFF TERM DC /FFFF TERM 22 30009140 
| | | sae , 30008470 O03F1 0 O3FF | OC /03FF FORM FD 23 30009150 
| 03B6 O COEB DEC LD FIVE SET CHAR CONVERT 30008480 03F2 0 0000 WC DC Ke WO CNTL 24 30009160 
0387 O D820 STO WONT COUNT 30008490 03F3 0 0000 NC k— & HEX/DEC 25 30009170 
0388 0 C020. LD WCNTEL CHECK IF WORD TO BE 30008500 O3F4 0 8141 OC /8141 CR & TAB 26 30009180 
0389.0 4C10 O3BF BSC L DEC1Ls— CONVERTED IS NEGATIVE 30008510 O3F5 0004 BSS 4 WARNING DON*T REMOVE USED FOR DIMAL 30009190 
* 30008520 RM ee he he Re RR OK 30009200 
03B8B 0 C031 LD NEGS SFT A NEGATIVE SIGN 30008530 * HALT ROUTINE 30009210 
03BC 0 0200 STO 2 0 IN MESSAGE 30008540 eH RRR RR RE RR RRR ER RR RR RE KKE EEE EK 30009220 
03BD 0 10A0 SLT 32 30008550 * THIS ROUTINE IS ENTERED FROM | 30009230 
O3BE 0 SOLA Ss WCNTEL GENERATE 2S COMPLEMT 30008560 * ADDRESS STOP BY PRESSING PROGRAM 30009240 
 & bs 7 30008570 x STOP. THE ROUTINE WILL SAVE THE STATUS 30009250 
O3BF O 7205 DECL MDX Zz) SET TO STO LOW ORDR IST 30008580 x OF THE MACHINE THE ROUTINE WILL | -30009260 
03C0 0 18D0 RTE 16 PUT WORD IN EXTEN 30008590 * RESTORE THIS STATUS WHEN STARTED FROM 30009270 
| = % | | | 30008600 & THE WAIT OR BY NORMAL MONITOR RESTART. 30009280 
03C1 0 1810 DEC2 SRA 16 CLEAR ACC 30008610 * PRESS RESET AND THEN START + 30009290 
03C2 0 A814 an?) TEN CONVERT VALUE 30008620 %—— ——— ——— — —- - - -- - - - - - -- - -- - - - + - - - - - - - - - - 30009300 
0303 0 18D0 RTE 16 BRING IN REMAINDER 30008630 x KEEP ILTS AT /03F9 30009310 
03C4 0 D001 ~§To DEC3&1 STO NXT DIGIT VALUE 30008640 03F9 O 0000 ILTS5 oC — 7 30009320 
03C5 0 C500 0000 DEC3 LO LL *-* GET CHAR CODE 30008650 O3FA O 1000 NOP nae HERE EERE ERR ERE ARK KEE 30009330 
-03C7 0 D200 ~§To 2 0 SET CHAR CODE IN OUT 30008660 O3FB 0 0814 STD AQ5 SAVE AQ. 30009340 
03C8 O T2FF MDX 2-1 PUT AREA 30008670 O3FC O 0815 X10 DS W5-1 SENSE AND RESET. DSW 30009350 
03C9 0 T74FF 03D8 MDX L  WCNT,-1 CHECK IF END OF CONV 30008680 O3FD 0 4CBO 0015 BSC ILIR,—-Z GO SERVICE INTR OR 30009360 
03CB 0 TOF5 | MDX DEC2 | ae 30008690 | * ; GO TO STOP . 30009370 
— x 30008700 : ae , 30009380 
03CC 0 7206 MDX 2 6 FINISHED 30008710 O3FF 0 4€20 0404 BSC STOP,Z 30009390 
03CD.0 CO00 LD * SET ACC NON ZERO 30008720 0401 0 4480 OLBE BSI IL5 30009400 
03CE 0 4C€00 0349 ? BSC L LOGI10 RETURN 30008730 0403 0 7014 | MDX SAQ 30009410 
| | x 30008740 | %—- ee 30009420 
(Kennan ann = - = - = - - + + -- = - +--+ +--+ 30008750 * STOP SUBROUTINE —SAVES STATUS THEN WAIT 30009430 
* LOG ROUTINE CONSTANTS AND STORAGE 30008760 * START BY PRESSING START OR RESET AND 30009440 
%——--—-~~--~—--~---— —----------------------------- 30008770 x START.« 30009450 
| a % 30008780 (Roa + + 30009460 
0300. 0000 | BSS F 0 | 30008790 cs | 30009470 
0300 0 0028 LOGT OC ME SN 0 MESSAGE ADDRS 30008800 0404 0 COFF STOP LD STOP a _ 30009480 
0301.0 OFOO . DC /OFOO HAM: 1053 SENSE IOCC 30008810 0405 0 DOOC STO STPSW SET DELAY CNT 30009490 
0302 0 03D4 DC. LOGT&4 2 CHAR ADDRS 30008820 0406 0 T4&FF 0412 STOP1 MDX STPSWe-1 DELAY TO CYCLE 30009500 
0303 0 0900 oc 4/0900 3 1053 WRITE IOCC- 30008830 0408 0 TOFD MDX STOP1 DOWN INTERRUPTS 30009510 — 
0304 0 0000 OC *-—* 4 CHAR 30008840 0409 0 6808 STX STPSW SET STOP SWITCH 30009520 
03D5 0 0000 | | DC same 5 HALF WORD SW 30008850 040A 0 3001 WALT 1 WAIT 3001 © 30009530 
DATE O2JAN66 ILS5SNOV66  I5JUN67 100CT67 O10CT68 LOJAN69° = 25JUL69 PROG ID 0300-2 DATE O2JAN66 15NOV66 L5JUN67 100CT67 O10CT68 LOJAN69 25JUL69 PROG ID 0300-2 
EC NO} 415490. 419643 420317 = 42031 7D = 5571005 571021 571053 PAGE q EC NO. 415490 419643 420317. 420317D 571005 571021 571053 


PAGE =~. —TA 








TBM MAINTENANCE 


1130 DIAGNOSTIC 


NLTAGNOSTIC PROGRAM FOR THE 1130 SYSTEM. 


MONITOR IY! 


0408 0 1810 

040C 0 DO05 

04ND 0 OBDE 

O40F O 7009 

0410 0000 

0410 0 0000 

0411 0 0000 

0412 0 0000 

0413 0 3F01 

0414 0 COE4 

0415 0 FOOS8 | 
0416 0 4C€18 0404 

0418 O CBFT7 : 

0419 0 4CCO 03F9 - 
O41€ 0000 

O41C 0 O41E 

041M 0 3A00 

N41F O 0000 

O41F 0 COFE 

0420 0 D004 

0421 0 T4FF 0425 

0423 0 TOFD 

9424 0 TOF3 

0425 0 9000 

0426 0 0000 

0427 9 6780 023E 

0429 0 C3FA 

042A 0 FCOO 0200 

Q42C 9 1804 

042N 0 4F84 FFEFE 
- 042F 0 10A0 
0430 0 C3F7 

0431 0 D490 OSOE 

02JAN66 15NOV66 
415490 419643 


C) 
- 


GO SRA 16 | 
STA STPSW RESET STOP SW 
X10 RDBSW READ BIT SWS | 
MD X SAQ RESTORE AQ 
M 
. BSS. 7 0: KEEP AQS AT. /0410- 
AQ5 DC Km & STG FOR INTS AND HALT 
| NC x K ACC AND EXT REGS 
STPSW DC %*— STOP. SW 
DSW5 DC /3FO01 INT 5 SENSE OSW COM 
x KFEP ASTOP AT /0414: 
ASTGP LD 7 ILT5 LD TAR ADDRS 
EOR SADRS COMPARE WITH SWS 
BSC tL STOP,E- RETURN IF NOT EQUAL 
~~ SAQ LON AQ5 RESTORE AQ 
"BOSG 1: ETS a 
xk 
BSS F 0O 
ROBSW DC SADRS 
DC /3 A400 © READ BIT SW {f0CC 
SADRS DC x % 
x 
Ke we ee ce a a ce ee ne me ae ae ae a se ce a a ee 
* DELAY SUBROUTINE -— ENTERED WHEN RUNNING 
* IN INTERRUPT MODE. IT PROVIDES A DELAY 
x BETWEEN EXFCUTION OF EACH MAIN LINE 
*x INSTRUCTION.’ THIS DELAY CAN BE INCREASED 
* BY SETTING A COUNT IN MONITOR FUNCTION 2 
*x SWITCHES. 
SO ae a smo it ne. Sa asyon Sms  h rl S‘l o t!  gh cw 
x | 
DELAY LD - SADRS LD DELAY CQUNT 
STO. DELYC SAVE 
DELY1L MOX L DELYC,-1 DECR DELAY COUNT 
MDX DELY1 LOOP 
MDX SAQ RETURN TO MAINLINE 
DELYC DC Ke % DELAY COUNT 
* 


2 Rk zo i kK dato ido ida ioioi ak aii dogo fe ge 


* MONTTOR END ROUTINE | 
Ol Soho tok gk tok k iototok a tt kok atk kk ato a kkk a ak 


THIS ROUTINE IS ENTERED BY AN END 
* CALL FROM ANY TEST PROGRAM. IT WILL 
* FIRST CHECK TO SFE IF THE MONITOR 
* LOOP PROGRAM SWITCH IS ON. 
fe IF NOT, AN END MESSAGE 
x IS TYPED. If NOT OVERLAP MODE, 
* THE ROUTINE WILL BRANCH TO LOAD TO 
ATTEMPT TO LOAD ANOTHER PROGRAM. 
* IF LONP,THE ROUTINE WILL BRANCH 
* TO THE LOOP ADDRESS GIVEN IN THE 
* PROGRAM CONTROL TABLE. 
aes ss cee ee ep <email iim’ iiss. <i sin a ss i iss ls 
& CALLING SEQUENCE 
* . BST f END | 
Pee ec ew estas ie i a a ca a a eal atin ae 
* 
MEND DC x & 
LOX 13 MXEQ261 X34#MLSCF ADDRS 
Lp 3-6 LO CONTROL SWS 
OR L MSWO OR WITH MON SWS 
SRA 4 CK FOR LOOP PROGRAM 
BSC 13 -29F BR IF LOOP | 
x 
SLT 32 ae 
Lo 3-9 LO PID 
STO L MTARLE2 SET IN MSG 
15JUN67 LOOCT67 O1NCT68 LOJAN69  25JUL69 
420317 4203170 571005 571021 


571053 


~ LOS 


. ) \ —™ a. a “ | > ; a we “S : . = a te % -) | -_ 
I i J f ! 2 | 

rd / é sf 4 - . : . / . : : 

wa ed sem Je = ww ne a ae i, NX ee SA it Sy es A ; \ e; 


PART NO. 2191200 


PAGE 


30009540 


30009550 
30009560 
30009570 
30009580 


30009590. 


30009600 
30009610 
30009620 
30009630 
30009640 
30009650 


30009670 
30009680 
30009690 
30009700 
30009710 
30009720 


30009730 | 


30009740 
30009750 
30009760 
30009770 
30009780 
30009790 
30009800 
30009810 
30009820 
30009830 
30009840 
30009850 
30009860 
30009870 
30009880 
30009890 
30009900 
30009910 
30009920 
30009930 
30009940 
30009950 
30009960 
30009970 


30009980 


30009990 
30010000 


30010010 > 


30010020 
30010030 
30010040 


30010050 
- 30010060 
_ 30010070 


30010080 
30010090 
30010100 


30010110 


30010120 
30010130 


30010140 - 


30010150 
30010160 
30010170 
30010180 
30010190 
30010200 
30010210 
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8 


~ 0300-2 
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IBM MAINTENANCE 


1130 DIAGNOSTIC 


DATE 
EC NO. 


) 


cA 


=~ 


DIAGNOSTIC PROGRAM FOR THE 1130 5S 


oy 


MONITOR II 
0433 0 COLS5 
0434 0 6600 8004 
0436 0 4400 04F3 
0438 0 C400 0500 
043A 0 1801 
043B 0 4€20 O271 
043D 0 C400 0155 
043F 0 .-4C€04 0271 
0441 0 D400 050D 
0443 0 6700 O5DC 
9445 0 6FO0O O15C 
0447 0 .4C00 0581 
0449 0 O5Al 
044A 0 0000 
044B 0 1000 
044C 0 D855 
044D 0 6B09 
O44E 0 2809 
044F 0 085C 
9450 0 630F 
0451 0 4820 
0452. 0 1340 
0453 0 4780 O16B 
0455 0 C84C 
9456 0 6700 0000 
0458 0 2000 
9459 9 4CCO 044A 
045B 0 0000 
045C 0 1000 
045D 0 D846 
045E 0 6B09 
O45F 0 2809 
0460 0 0848 
0461 0 630F 
0462 0 4820 
0463 0 1340 
0464 0 4780 O17B 
0466 0 C83N 
0467 0 6700 0000 
~—0469 N 2000 
046A 0 4CCO 9458 
046C 0 0000 
046D O 1000 
O46F 0 D837 
046F 0 6R809 
0470 0 2809 
O2JAN66 ~~ 1 5NOV66 
415490 419643 
aa. a ™~ 


Ab. : a 


LD 
LOX L 
BSI Lt 
LDL 
SRA 
Bsc OL 
os ame 
BSC OL 

* : 
STO OL 
LOX L 
STX Lt 
BSC oL 

* 

MMESF DC 

* 


MME SF 
2 7/8004 
MLOG 


PGMN 

1 
MXEQT, 
4155 
MXEQT, 


PGMN 
3 /O5DC 
3 NLOC 
LOAD 


AEND 


YSTEM 


“LD END MESSAGE 
SET WD CNTL 
LOG MESSAGE 

CK IF OVER LAP 

z BR IF OVLAP 

E BR IF LD FROM TAPE. 


TF NOT OVLAP 
GO LOAD NEXT PRGM 


MEM RH HE MK RH I RR RK I a ae he ee a 


MONITOR INTERRUPT. ROUTINES 
He He Re Xe He ee He a ee oe Re he ee eh he he a he ae Ke ak ea ea ak KK Ka KK KK 


* 


KEEP ILTO AT /044A 
Pererrrtotrsret TT eet t Tet 
SAVE AQ 

SAVE XR3 

STORE STATUS 

SENSE AND- 

SKIP TF NO ILSW 


FIND BIT IN ILSW 
GO TO USER ROUTINE 
RESTORE AQ 
RFSTORE XR3 

LOAD STATUS 


PART NO. 2191200 
PAGE : 


30010220 
30010230 


30010240 


30010250 


~ 30010260 


30010270 


30010280 


30010290 
30010300 
30010310 
30010320 
30010330 
30010340 
30010350 
30010360 
30010370 
30010380 
30010390 
30010400 
30010410 


30010420 


30010430 
30010440 
30010450 
30010460 
30010470 
30010480 
30010490 
30010500 
30010510 
30010520 


30010530 


30010540 
30010550 
30010560 
30010570 
30010580 
30010590 
30010600 


. 30010610 


INTERRUPT LEVEL ONE 


I a a an ac fa a ae eee a a a Se 


om — 
’ ) L) 
\ P \ 

ey 


* 
ax 
ILTO OC Hm 
NOP 
STD AQO 
STX 3 X3061 
STS SSO. 
X1o IL SW-1 
Lox 3 15 
BSC Z 
SLCA 3 
BST 13 IL0-15 
XSI LDD AQO 
X30 LOX L3 #-# 
SSO LDS ae 
BOSC I ILTO 
x 
*x 
4 
ILT1 OC — 
NOP | 
STD AQ1 
STX 3 X3181 
STS SS1 
X10 ILSW-1 
LOX 315 
BSC Z 
SLCA. 3 | 
BSI 13 IL1-15 
LOD AQ1 
X31 LDX L3 *-* 
SS1 LDS ee 
Bosc I ILTl 
* 
a INTERR 
x 
-ILT2 = 0€ *— 
NOP 7 
STD AQ2 
STX 3 X32E1 
STS —§S2. 
15JUN67  ~=100CT67 
420317 4203179 


- 
AS 


KEEP ILTL AT /0458 — 
SEC a OR ca aI i ok i 
SAVE AQ 

SAVE XR3 

STORE STATUS 

SENSE AND 


SKIP IF NO ILSW 
FIND BIT IN ILSW 
GG TO USER ROUTINE 
RESTORE AQ 
RESTORE XR3 

LOAD STATUS 


SO iia aa at a a a a Sc eee he i a aoa a eas 


UPT LEVEL TwO 
KEEP ILT2 AT /046C 
Re KKK KK RR EKER KEKE REE 
SAVE AQ 
SAVE xXR3 


STORE STATUS 


25 JUL59 
571053 


OLGCT68 
571005 


a 7 y S “ : Py . , 
\ \ i 
Se SS Ls, Sy eee a 2 


lO JAN69 
571021 


30010620 
30010630 
30010640 
30010650 
30010660 
30010670 
30010680 
30010690 
30010700 


_ 30010710 


30010720 


30010730° 


30010740 


30010750 


30010760 
30010770 
30010780 
30010790 
30010800 
30010810 


—30010820 


30010830 
30010840 
30010850 
30010860 
30010870 
30010880 
30010890 


PROG ID 


PAGE 
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BA 


0300-2 


8A 
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( - : | | | loa | a : ys, z pe hike . 
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IBM MAINTENANCE OTAGNOSTIC PROGRA FIR THE LTL30 SYSTFM -. aa | ek, PART NO.w 2191200 | IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM | : PART NO. 2191200 - 
| | ce | Ot pe ee ae es PAGE. 9 ae oz _ ew ss ae on ee -.° 8 4 PAGE OO, 9A 
1130 NIAGNOSTIC “ONTTOR IT. | oo : : ? 3 | | | 1130 DIAGNOSTIC MONITOR IT = a oe che | | Oe ae ae 
0471 9 O83A | . Xto Il Sw-1 SENSE AND a 30010900. | | —.. Q4AB 0 0000 a DE RR ech eae o 30011580 
0472 0 639F |  AOM 3B 1S e | 30010910. — | x . ce <a ae eee | 30011590 
0473 0 4820 SEBS. Ee As SKIP IF NO ILSH 30010920 | - O4AC 9 0455 —  Xscl OC. XS 1 30021600 
— 0474 0 1340  SLCA a FIND BIT IN ILSW | | -39010930 © = | 04AD 0 0300 | IkSw OC 10300 INT 4 SENSE. ILSW . 30011610 
0475 0 4780 018B . a % “BSL Tae Bee 15 60 TO USER ROUTINE 30010940 - . . O4AE 0 0000 | MCIST DC tt CONSOLE INTER STOR: - 3 30011620 
9477 9 CB2F | LON ~ AQ? — RESTORE AQ” - .30010950. |  ~O4AF 0 0000 MCX2 DC. et, oll CON INT RTN XR2 STORE 30011630 
0478 9 6709 0000 X32 LDX = L3. #-% RESTORE XR3 | 30010960. - 7 _* | a * | | 30011640 
047A 0 2000 | $82 LOS En 7 RESTORE STATUS - : -. 30010970 - = | : Hrere ooo Er En olor oor a rete | 30011650 
0478 ) 4CCO 046C ROSC I. ILT?2 | % 4 ~ - 30010980 | | tee oo  * . INTERRUPT ERROR : -. 30011660 
: . o es ae | 30010990 7 | ee 7 HR HK RAR HK EE EAE EEK E REE EERE ERE 30011670 
a oe ae ee ee ee yee SS eas : | 30011000 | | oe | ae | ca 7 a: | i: | | 30011680 
 & ~ INTERRUPT LEVEL THREE . | | 30011010. , Bg fs 04RO 0 0000. IERR OC r= % : | - 30011690° 
_ ede Sasa S ee ee oe ee cae 30011020. 2 a _ 04B1 0:°O8FA , X10 ILSwW-1 SENSE ILSW | 30011700 
| * a KEEP ILT3 AT /047D 30011030 — . f 3 - . 0482 0 7400 0217 MDX L_ TERM,O- IF INTERRUPT WELL NOT 30011710 
0479 0 0000 a. ILT3 DC eK | 39011040 ee | , 04B4 0 30F9 WAIT a TURN OFF-— WAIT HERE 30011720 
O047F OQ 1000 a NOP : Cee EERE EERE EEE EEK KEES 30011050 Sk 7 * | , in a | - 30011730 
O47F 0 D828 . STN — AQ SAVE AQ 30011060. . tees _— 0485 0 DOS5B STO MT ABLE5 STO ILSW be ae . ~ 30011740, 
0439.0 6809. STX 3 X3361 SAVE XR3Z . : 30011070 |. oe 7 04B6 0 COF9 | LD TERR = | -s- 30011750 — 
0431 0 2809 © | STS $$3 | STORE STATUS | 30011080 | —=—Ss O4BT 0 SOF4S S_ XSC1L CALCULATE INTERRUPT 30011760 
0482 9 0829 . XO IL SW-1 SENSE AND os 30011090. 3 . | 0488 O 1804 - SRA G ~ LEVEL | 30011770 
0483 0 630F- LNX 3°15 a wo | - _30011100 | ye 0489 0 0056 STO MTABLE4 © STO INTERRUPT LEVEL 30011780 
0484 9 4820 BSC 2 SKIP IF.NO TtSW ~* 30011110. . | f O4BA 0 6700 04C0 | LOX L3 IERR2 . | _ | _ we 30011790 
0485 9 1340 — SLCA 3 FIND BIT IN ILSW ~ 30011120 | &* a 3 | O4BC 0 6FOO 0217 STX L3 IERM © ; - . | - 30011800 
0486 0 4780 0198 3 BSI 13 1L3-15 GO TO USER ROUTINE 30051130 eo _ | - O4BE 0 4C80 04B0 | BSC I IERR- we oaks 30011810. 
0488 0 €81F : “LOD — AQB RESTORE AQ 30011140 | ; * a | * | i, e | _ 30011820 
9489 9 6700 0000  — X33 LOX 3 *-* RESTORF. XR3 _  G — 30011150 . a 0400 0 6305 TERR2 LOX 3 5 | | SET MSG NO 30011830 
0488 0 2000 © ~ §$3 LOS *-# RESTORE STATUS | 30011160 | 0401 0 6230 LOX = 2/0030 ~~ SET DATA WORD ID 30011840 
048C 9 4CCO 0470. BNSC Y ILT3 - | |  - BOOLLITO 7 7 0402 0 1OAO0 a |  §LT- 1 32, | ; -. 30011850 
on wo - | | — BOOLELBO os “ep te 04C3 0 4038 — ae BSI MERR | LOG MSG. oe 30011860 
(eno -- - - - ++ 3001190 | | : é 4 0464 0 4€00 0271 © . BSC L. .MXEQT GO Fo SUPERVISOR 30011870 — 
Se ee. One INTERRUPT LEVEL FOUR - - 39011200 | or Pt, | oc wi  & | 30011880— 
» ieee tara Sh ata a ira eS tea se ee 30011210 | a i ca : = 2 Prerrrrertrt re ter restr eters ite t rete 7 30011890 | 
i x ets a KEEP ILT4 AT /048E 30011220 eg Sek pT ee ee | | . 7. CONSOLE INTERRUPT ROUTINE | 30011900. 
O48F O 9900. SET: Pe ee: - nes 30011230 | | _ ee a, > ~ HR RARE RRR EERE KEE KE REEEREEREEEKHEE 30011910 
O48F 0 1900° | a NOP > | | ke RR RAKE EK EKEK 30011240 a | = g 7 PB ee ae THES ROUTENE WELL SERVICE THE CONSOLE = = = 30011920 
0490 0 0819 —— = STO AQG SAVE AQ 30011250 | | : ot _ a ey | * INTERRUPT. IF THE INTERRUPT IS DUE TOA. 30011930 
~~ 0491 0 6B08 © —  §TX 3 X3461 SAVE XR3 a 30011260 oe | oO | a 533 * USER X10 IT WILL BRANCH TO THE USER 30011940 
0492 1 2308 — sts S84 - . STORE STATUS ae — . 300181270 | 74 | | ar be e INTERRUPT ROUTINE. = | | 30011950 
04930 0818 | X10 ILSW-l SENSE AND os 30011280 | | a Bot | aa a a ag a SSeS Sse — 30011960 
0494 0 630F : LDX 3 15 ; ) 30011290 | : * | | eet aia | 30011970 
0495 0 1340  — . SLCA 3 | FIND BIT IN ILSW 30011300 | | : . : ~—~O4C6 0 0000 ~  MCINT DC — % - « ‘ | | 30011980 — 
0496 0 4780 OTAB —. - BST 13 IL4-15 GO TO USER BOTENE y 30011310 | | 04C7 0 0812 7 X10 ~ MCOSW SENSE, RESET 30011990 
049R 0 C811 | — ~EDD AQ4 . RESTORE AQ : | : 30011320 | ae 0408.0 DOl!I STO MCOSW. AND STORE DSW sf oe — 30012000 
0499 0 6700 0000 X34 LOX 13 *-% — RESTORE XR3 | 30011330 | 04C9 0 6303 © : LOX 3 3 xt 30012010 
949R 9 2000. . 7 SS4 LDS. | em % RESTORE STATUS 30011340 ” bez fa 0O4CA 0 1340  MCT1 SLCA 3 LOOK FOR SW BIT 7 30012020 
9490 0 4CCO O48E . BOSC fT ILT4- : : | ~ 30011350 a O4CB O F400 0205 > FOR bt K80O00 7 TAKE OUT ZERO BIT — 30012030 
; * : | ’ | —.  . 30011360 | — O4CD 0 DOFO 7 STO. MC IST SAVE REMAINING DSW 30012040 
Heenan n= 3000113 70 gh “= . O4CE O 6REO . | STX 3 MCX2 © SAVE OSW POSITION CNT 30012050 
x KEYBOARD ®& F SPONSE BIT 1. : — 30011380 | are — O4CF 0 CODA _ LOD MC DSW SET DSW IN ACCUM 30012060 
$n a a a a nnn 30011390 ~ .2* A 04D0 0 4F8? 0408 | BSC 13 MCDSWE1,C GO TO SERVICE RIN 30012070 — 
: on | | x | “ | | —- 30011400 “ : ~~ 0402 0 CODB | MCT2 LO MCTIST RETURN - LD.DSW | 30012080 
049& 0 4480 OLBD MKBR BST I SVKB. CO TO KB USER RTN.. ! ~—30011410 7 ; | i, 4 - 0403 0 6780 O4AF oo LOX 1B MEX © RESTORE POSITION CNT 30012090 
0440 9 7031 oe MDX MC 12 . 2 . © 30011420 ne | 04D5 0 4C02 O4CA BSC bE MCT IF NOT O-CONTINUE CK. 30012100 | 
| ape st x — are 30011430 . 0407 9 4C80 04C6 BSC FY MCINT RETURN TO MAINLINE 30012110 
Km | 30011440. yf 7 . , | a x oe ye | et ee a 30012120 | 
ae INTERRUPT CONSTANTS AND STORAGE — 30011450 a: | 2 : 04DA 90000 BSS E— 0O + ® 3 a » @F> | 30012130 
#——----------—----------- --------- + --- = --- = 30011460 | | , ~O4DA 0. 0000 : -MCDSW DC x CONSOLE DSW . ~ or 30012140 
| | a x _ w ery D> . : “sety of 30011470 | | 7 : O4DB O OFO1 | oe /OFO1 a. 30012150 
O04A2 0000 i ~ BSS. E. O | a . ; a 30011480 | a fF O040€ 0 O4F2 "3 : DC MMR | MANUAL REQ -2 | 30012160 
0442 0 0000 — — AQO- DC. *-* | | 30011490 | } | | 04DD 0 049E | 3 DC . MKBR - KB RESPONSE OL - 30012170 
0443.0 9000 | ~—6hOC = *— . mT, a: 30011500 | ar: O4NE O O4DF — DC MTWR TW RESPONSE oe 30012180 
0444 0 0000 © — AQl DC as 2 | | 30014510 ee : oe | : | * . | : Oo an | 30012190 
0445 0 0000 : : DC *— . . "tg . 30011520 | _ : _* #———— —— ++ nr rn 30012200 
04A6 90 0000 ; AQ2 DC K— * . ACCUMULATOR AND | 30011530 _ : | | * CONSOLE PRINTER RESPONSE BIT 0 | 30012210 
O04A7 0 0000 = pC oe EXTENSION REGISTER ~ ~ 30011540 ate = | #----+----------- ---+----- = +--+ — 30082220 
04A8 0 9000 | AQ3 DE — ¥-* ARE STORED HERE 30011550, | ae a2 a: | : L4 | . —  -30012230— 
0449 0 0000 = | DC ee DURING INTERRUPT | | 30011560. : | es ~ O4DF 0 4480 OLBB MTWR BSI EF ROQTY — 60 TO TW USER RIN | 30012240 
0444 0 0000 © AQ4 DC = *-* | a 30011570 | _ - —. O4E1 0 70FO | | MDX MCI2 © : | 30012250 
DATE i i=$O2JAN66 15NOV 66 L5JUN67 LOOCT4AT O10C T68 LOJAN69 = 25JULE69. — PROG TD © 0300-2 7 DATF O2JSAN65 LSNOV65 15JUN67 100CT47 OINCT68 © LOJAN69 = 25JUL69 ~ PROG. ID 0300-2 


EC NO. 415490 419643 420317 420317) 571005 571021 571053_ PAGE | 9 § EC NO. 415490 419643 420317 420317) 571005 571021 571053 PAGE | 9A 











LBM MAINTENANCF 


1130 DTAGNOSTIC 


DATE 
re NO. 


30% 


- 0502 


DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


—— 


Xv 
~ 


MONITOR II 
—04F2 0 1003 | 
0463 0 4C10 O4FF 
O4E5 0 6700 O4EA 
O4E7 0 6FOO OLBC 
0469 0 7001 
O4EA 9 0000 
O4FB 0 4020 
O4EC 0 6FO0 0213 
—O4EF O 70E3_ 
O4EF 0 COEA 
O4FO 0 4480 O1RC 
O4F2 0 7ODF 
04F3 0 0090 
O4F4 0°D815 
04F5 0 6A13 
0O4F6 0 6810. 
 O4F7T 0 °4480 0163 
- 04F9 0 0507 | 
O4FA 0 4C80 04F3 
04FC 0 0000 
- 04FD O 080C | 
~ O4FE 0 GAOA 
‘O4FF 0 6BOT 
0500 0 4480 0162 
i 0 0507 
0503 0 0000 
0504 0 4C80 O4FC 
0506. 0001 
0507 0 0000. 
0508 0 0000. 
- 0509 0 0000 
050A 0 0000 
050B 0 0000 
~050C 0 0000 
050D 0 0000 
- 050E 0 0000 
O50F 0 0000. 
O2JAN66 15NOV66 
415490 © 


419643 


ae 


420317 


571005 . 


ee ee a ee eee eee eee see wane may ee senmee sete 
* MANUAL REQUEST BIT 2 
LR me ee a a a a a en a a a we re ee ae ee ee ee ee 
* 
MMR SLA 3 CK CON/KB SW 
BSC L MMR1y- BR IF KB 
LOX L3 MMRBS~-1 RESTORE ROKB 
STX L3 ROQKB 
| MDX  MMRBS 
* , ; 
: DC coeds ENTRY FROM RQKB | 
“MMRBS BSI MRBS— ee esd 
STX L3 MLSCF SET RD SW RETURN. 
MDX ‘MC 12 | 
* | | Pot 
MMRI LO MC DSW 
BSI I RQKB 
| MDX: MC I2 
* 
etek eee EK RK RRR RARER KK RK KK 
* | MONITOR LOG ROUTINE 
Bok a Ra ie kk oe ke ok a tok ok fete ak ok teak keke odote ak ok i ak ke dete ke ak tok kk ak 
* THIS ROUTINE SETS THE MONITOR MESSAGE 
* ID NUMBER, WORD COUNT AND ALPHA MESSAGE 
* ADDRESS INTO THE MESSAGE TABLE THEN 
* CALLS ON LOG OR ERROR. 
IE ne ne meee cee ee tee nave a a cate wee sn ES st “0 Oe RD RS NA cay we -=RSP GOED i nh Sn tr Wn ne eS Se SU CD Seen Ae 
x 7 CALLING SEQUENCE ° 
* BSI ML OG 
* ACC # ALPHA “ADDRS 1 
* EXT # ALPHA ADDRS 2 
* XR2 # WORD CNT AND MESS ID 
| ne ne an ee 
‘“MLOG DC *— & | | oe ee ee 
| STD MALPH -- STO ALPHA ADDRESSES 
STX 2 MLOG2&2 STO WD CNTL ae | 
-STX 3 MLOG2 STO MSG NO. 
BSI I LOG | | 
' pc MLOG2 MESS ADDRS 
BSC 1 -MLOG 
‘ | ; 
MERR DC -) *-# 
“STD ~~ MALPH “STO ALPHA ADORESSES 
STX §2° MLOG2E2 STO WD CNTL 
STX 3 MLOG2 STO MSG NO. 
BSI I. ERROR ee — 
DC ML OG2 MESS ADDRS 
mle - 0000 a 
a | | | 
J BSC IT. MERR 
Sm ar nr i a ea a es ee we a ee ee ee 
* MONITOR | MESSAGE TABLE 
Me nm a re core ae ee ae a ea ae ee ae ee er oe ee eee ee eee oe cae ee ae ee ee oe eee oe 
: BSS E— 1. Wank fe - 
MLOG2 OC +*—* _ MESSAGE NUMBER © 
OC +--+ HEX/DEC 
) DC *—* WORD CONTROL 
MALPH DC — +-* _ ABPHA ADORS 1 
- OC : *-+* ALPHA ADDRS 20” 
MTABL DC. +--+ BIT SWITCH READINGS 
~ PGMN DC. ++ PROGRAM NUMBER ~ 
oe ++ PID 
oC *-—* STORAGE ADDRS 
15JUN67 100CT67 OLOCT68 10JAN69 25JUL69 
4203170 


~~ ST71021 =“ 71053. 


PART NO. 


PAGE. 


30012260 
30012270 
30012280 
30012290 
30012300 
30012310 
30012320 
30012330 
30012340 


30012350 
30012360 


30012370 
30012380 
30012390 
30012400 
30012410 
30012420 
30012430 
30012440 
30012450 
30012460 
30012470 


30012480. 


30012490 
30012500 


30012510 
-30012520 


30012530 


30012540 


30012550 
30012560 
30012570 
30012580 
30012590 


30012600 
-30012610 
30012620 
‘30012630 


30012640 
30012650 
30012660 
30012670 
30012680 
30012690 
30012700 


—.300127180 
(30012720 


30012730 


30012740. 
30012750 


30012760 


30012770 
30012780 
-30012790 
30012800 
30012810 


30012820 


30012830 


30012840 


30012850 
30012860 _— 
30012870 
30012880 

30012890 | 
30012900 
30012910 
30012920 
30012930 


PROG ID_ 


PAGE 


2191200 
10° 


0300-2 
+10 


IBM MAINTENANCE 


1130 DIAGNOSTIC 


DATE. 


EC NO. 


5 


415490 


Ce 


ae ‘ 
‘ 
\ 
+ 
bare 


TOR I! 


0204 


0000 


0205 


O1BF 
0579 
9519 


0000 


0000 


020F 
0548 
048E 
0014 
0014 
048E 


O55A 
0519 


054F 


MONI 
0510 0 0000 
0511 0 9000 
0512 0 8000 
0513 0 059F 
0514 0 0000 

0515 0004 
0519 0 0000 
051A 0 6300 
051B 0 6F00 
051D 0 0834 
O51E 0 COED 
O51F 0 1004 
0520 0 180C 
0521 0 D001 
0522 0 6700 
0524 0 C400 
0526 0 1B00 
0527 0 630F 
0528 0 1340 
0529 0 C700 
052B 0 6700 
052D 0 4C88 
052F 0 N007 
0530 0 CODB 
0531 0 180F 
0532 0 DOOT 

0533 0 CODB 
0534 0 1008. 
0535 0 1808 
0536 0 6700 
0538 0 73FA. 
0539 0 D700 
053B 0 C3FD 
053C 0 DoDI 
053D .0 C400 

- 053F 0 1008 
0540 0 4C10 
0542 0 C400 
0544 0 D480 
0546 0 6780. 
0548 0 7301 
0549 0 6F00 
054B 0 6700 
054D 0 4C80 
054F 0 0000 
0550 0 4C80 

O2JAN66 


- LSNOV66 | 
419643 © 


X8000 


* 


Km K 
— & 
/8000 
ALD 
40000 


4 WARNING DON'T REMOVE USED FOR DIMAL 


DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM ~ 


INTERRUPT LEVEL 
ILSW/SW 


Set Tet Steer Stee TSS es ee eee eee eee ee ee Tee 
BONTTOR READ BIT SWITCH 


ir 
* 


ROUTINE 


foo oe kok tot tka ko Ro ek tok soko tk ke eo KO 
THIS ROUTINE READS THE BIT SWITCHES IN 
INTERRUPT AND PLACES THE DATA IN SWITCHES 
8-15 IN THE PCT OF THE PROGRAM IDENTIFIED 
BY SWITCHES 4-7. FOLLOWING THE INTERRUPT 
THE SUPERVISER WILL RETURN TO THIS ROUTINE 


+ 


IN MAINLINE TO CHECK THE FUNCTION ZERO 


SWITCHES FOR HALT AND LOAD. 


DC 
LOX 
STX 


X10 


SLA 
SRA 
STO 
LDX 


Lp 


SRA 


LDX 


SLCA 


LD 


MRBS3 


~MRBS4 


-MRBSB 


“MRBSC 


MRBSD 


LOX 
BSC 


STO 


SRA 


STO 


LD 


SLA 
SRA 
-LDX 
MDX 


STO 


STO 


15 JUN67 


420317 


a 


3 0 SET FOR NO MLSCF ENTRY 
L3 XLECT SET SCAN TO START AT MON 
RDBS. READ BIT SWITCHES 
MTABL LOAD BIT. SW 
4 CLEAR ALL BUT PRGM 
12 NUMBER BITS 
REL STO NUM TO BE VERIFIED 
L3 *-* XR3#PROGRAM NUMBER 
L K8000 
30 
3.15 
3 0 ee ee ee 
3 MPIDT-15 LD MLSCF ADDRS 
3 MRBSE . LD FRROR RETURN 
MRBS & BR IF INVALID PGM NO. 
MRBS361 STORE SW ADDRS . 
MTABL LOAD BIT SW 
14, GET. FUNCTION 
MRBS4EL STORE FUNCTION 
MTABL LOAD BIT SW 
8 STRIP OFF 
8.. ALL BUT DATA. | 
L3 *-* X1 #.-MLSCF ADRS 
3-6. ADV TO SW ADDRS 
13 *-* PUT SW DATA IN PROG | 
oe -AT PROPER FUNC LEVEL 
3-3 LD PID 
MT ABLE2 eo PID IN. MSG 
MS W2_ LD ‘MONITOR SW 
‘hl 
1 MRBSC,- BR OUT IF NO UTILITY 
veneer - ig pas a . 
I UTLTy SET UTILITY RETURN. 
13 UTLTY : i oa 
31 “ a6 . —s 
L3 ILT4  — SET BR TO UTILITY 
L3 MRBSS  —- LD NORMAL RETURN 
I MRBS — BR OUT OF INTRPT 
— KEEP MRBSD AT /054F 
od DUMMY RETURN IF 
MRBSD UTILITY NOT IN CORE 
LOOCT67 OLOCT68 1OJAN69 25JUL69 
420317D 571005 571021 — 571053. 
me he a _ 
) oe 7 


PART NO. 


-PAGE 


30012940 
30012950 
30012960 
30012970 
30012980 
30012990 
39013000 
30013010 
30013020 


30013030. 


30013040 
30013050 


- 30013060 


30013070 
30013080 
30013090 


30013100 


30013110 
30013120 
30013130 
30013140 
30013150 
30013160 
30013170 
30013180 


39013190 © 


30013200 
30013210 
30013220 


30013230 


30013240 
30013250 
30013260 


30013270 


30013280 
30013290 
30013300 
30013310 


30013320 


30013330 


30013340 


30013350 
30013360 
30013370 


30013380 
30013390 
- 30013400 


30013410 
30013420 
30013430 


30013440 
30013450 
30013460 
30013470 
30013480 
30013490 


30013500 


30013510 
— 30013520 


30013530 
30013540 


— 30013550 
30013560 


30013570 


-- 30013580 

30013590 . 
30013600 

- 30013610 


PROG ID 


PAGE 


2191200 
“10A 


0300-2 
10A 











- O- ae poo a 
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oe —s, pS at ramen Pa | a aa jor, Pa | Poe eos a eos a 
ue 4 AD GS ES SD. Oe 8 4 4) OD 








ze : = | I | ‘ res 
CO Co Ae) hg ae Pe ae 
IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM “PART NO. 2191200 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR. THE 1130 SYSTEM PART NO. 2191200 
| PAGE | * : PAGE LA 
1130 DIAGNOSTIC MONITOR I! 1130 DIAGNOSTIC MONTTOR TI 7 
2% 30913620 SRG Grog i tok gai g tok i doi tote ak ge ikke cdi ok fe ako ak ok ae a ak a ae a a 30014300 
Wi an a rn a rr ne rrr re 30013630 7 : * | 7 30014310 
x CONSTANTS AND STORAGE FOR 30013640 O58} 90 4€28 O58A LOAD BSG L LOAM, &7 BR TF CONTINUE LOAD 30014320 
* REAN BIT SW ROUTINE | 30013650 0583 0 1810 SRA 14 . | are 30014330 
#-—-------- -- --- — --- - - + - -- - + ---- = ----------- 30013660 9584 0 0409 O050D STO & PGMN RESET PRGM NUMBER 30014340 
7 * . . 30013670 0586 0 6700 O5NC LOX 13 /O5NC veg ts om Dead °30014350 
0552. on00d BSS F 0O . : ore 30013680 0588 0 6FO0O 015C STX L3 NLOC RESFT RELOCATION 30014360 
9552 0 050C RDBS OC MTABL IOCC TO READ BET SWS 30013690 x . 30014370 
0553 0 3A00. DC /3 A900 : a 30013700 0584 0 4400 O2F8 LOANL BST L LOGI GO PRINT CD MSG 30014380 
9554 0 OSBIL MMES1 DC ASWS MESSAGE ADDRESSES 30013710 058C 0 O51L0 . NC MTABLE4 = | _ 30014390 
0555 0 0598 oC ASTVD SWS INVLD 30013720 : % | KFEP LOAD2 AT /0580 30014400 
0556 0 05B6 MMES3 DC AHALT 30013730 - 058) 0 6700 OITA LOAD? LDX L3 ILO REQUIRED BY LOADER 30014410 
0557 0 O5A4 MMES4 DC ACKSM 30013740 O58F 0 6078 LDX LO ADR LOAD NEXT PRGM 30014420 
0558 0 O5A8B MMES7 DC ADVCR . 30013750 * 30014430 
0559 oOOO01 BSS 1 WARNING DON*T REMQVE USED FOR DIMAL 30013760 K----- --- ----- -- -- -- - - - --- - +--+ -- ------- 30014440 
* | : : ~ 30013770 we PRINT LOADER ERROR MESSAGES 30014450 
Kon ~----- -- - -- - - - + - | 30013780 Km ae a a ee 30014460 
. & RETURN HERE AFTER INTERRUPT AND CHECK THE 30013790 | * 30014470 
x SWITCHES FOR HALT AND 1OAD 30.013800 0590 0 6304 CKSUM LOX 3 4 SET MSG NUMBER - 30014480. 
i a a a 30013810 0591 0 COC5 L) MMES4 aa 30014490 
| * 30013820 059? 0 7002 MDX LDERM PRINT CKSUM MSG 30014500 
055A 0 1OAO MRBSS SLT 32 - 30013830 * | - Bs 30014510 
O55B 0 COBO LD MT ABL LD SW ENTRY | . 30013840 0593 0 6303 OVCR todxX 3.3 | SET MSG NUMBER: 30014520 
O55C OF 180E ~ SRA 414 | SET TO LOOK AT FUNC SWS 30013850 0594 0 COC3 LD MMEST 30014530 
055D 0 4€20 0564 BSC LL MRBS6,2 RR UNLESS FUNC 0 | 30013860 0595 0 1899 LDERM SRT 16 30014540 
a * SO - | 30013870 0596 0 6200 -_ LNx 20 | 30014550. 
O55F 9 COAC. LY) MT ABL LD SW ENTRY - 36013880 9597 0 4400 O4FC BST bt MERR GO PRINT MSG . 30014560 
0560 0 100F SLA 15 LONK AT HALT SW 30013890 0599 9 4€00 0220 BSG L MXFQ | 30014570 
0561. 0 4820 BSC | a a “ | 30013900 = | e . : | 30014580 
0562 0 COF3 LD MME S3 PRINT MSG IF HALT — 30013910 KERR RRR ERK ERR EE RR REE REE EK EEE KEE KKK 30014590 
0563 0 18D0 RTE 16 = 30013920 * - MONTTOR ALPHA PHRASES 30014600 
| my * >. 30013930 ICSE AO ACE TOE RE EEE RE SIR ER EEE EH 30014610 © 
0564 0 6301 MRBS6 LDX 31 SET MSG NO. 30013940 - a * | . 30014620 
0565 0 6205 . LOX 2 /0005 SEF WD CNTL 30013950 0598 9 GAI2 ASTVD NAC /9K92 SW. SWS INVLD 30014630 
0566 0 COED LO MMES1 Doh e | 30013960 059€ 90 9A21 ak NC /9A21 S 4 30014640 
0567 0 4400 04F3 BSI tL MLOG. 30013970 0590 0 2276 — AIVD DC. P2276 IN INVLDO 30014650 
. | ; * E | 30013980 O059E 0 B&00 - DE /B600 Vv Be - 30014660 
0569 0 C400 020F iD ©L MSW2 LD MONITOR SW 2 .30013990 OSS9F 0 5E32 ALD DC /5F32 LD Lo 30014670 
0568 0 1890 | SRT |. 16 ; 30014000 O5A0 0 FFFF . DC /FFFF | 30014680. 
056C 0 D400 020F | STO L MSW2 RESET SW2 39014010 OSAL 0 0536 AEND NC 0536. 2° OE. END ~ 30014690 
ee e * . ; | - a 30014020 O5A2 9 17632 DC 47632, ND. 3004700 
O56F 0 1099 SLT 25 30014030 05A3 0 FFFF | DC /FFFF 30014710 
_ on a! 3 ; 7 i 30014040. 05A4 0 LE5A ACKSM DC /LFSA CK CKSUM 30014720 | 
Q56F 0 4€02 0581 BSC E LOAD,C GO. RELOAD 300144050 QO5A5 N 9AB2 — OC FI AB2 SU | 30014730 
) | x | 7 30014060 05A6 0 7200. pc 17200 M — 30014740 
—O571 0 1001 | SLA a oe 7 30014070 O5A7 0 FFFF Ne /FFEF | | 30014750 
0572 0 4€10 0220 7 BSC L  MXEQ,- BR IF NOF. DELAY 30014080 ~—6©O5A8 0 5286 ANVCR DC 452B6. Qy ~ OVR CORE, 30014760 | 
ee og ee ge ae ue | | | 30014090 05A9 0 6221 PC 16221 2 Re « * 30014770 
- 0574 0 6700 O41LF LOX L3 DELAY : 30014100 O5AA 0 1E52 DC ~— JL1E52 ca 30014780 
0576 0 6F00 OOLS STX L3 ILTR. SET FOR DELAY - 300141510 O5AB 0 6236 DC. 16236 RE 30014790 
0578 0 7006 a MDX _MRBSF. | a ~— 30014120 | QO5AC O FFFF aa. > De. /FFFF — - 30014800 
ae ; * 30014130 O5AD O O59A ASTRT DC | /059A =. 38 START 30014810. 
a a a a ad aa 30014140 | OSAF O 9E3E DC /9E3F TA 30014820 - 
* COMF -HERE IF THE PROGRAM IDENTIFIED IN 30014150. -QO5AF 0 629E€ DC /629E- RT . 30014830 | 
x SWITCHES 4-7 1S NOT IN- os PRINT SWITCHES 30014160 | O5BR0 0 FFFF DC. /FRFF 30014840. 
* INVALID MESSAGE. 30014170 05B1 0 9A92 ASWS DC. A9A92 SW —s SWS -. 30014850 
SSS eee Se ee ee ee eee eS ee 30014180 ~—6O5B2 +O 9A21 De — F9A21 | we 30014860 
- | , ee ae 30014190 05B3 0 2156 APIND DC “f2¥56 P 30014870 
0579 0 LOAO MRBSE SLT . 32 cate He te eS 30014200 O5R4 O 2232 DC 42232 IO, 30014880 
OSTA O CODA . LD - MMESLE1 PID NO GOOD 30014210 O5B5 0. FFFF : DC /FEFF | be hat eet 30014890 
057B 0 6201 . - LDX 2 /0001 - .SET WD CNTL 30014220 O5B6 0 263E£ AHALT DOC 4263F HA HALT. 30014900, 
o57C 0 6301 LOX 31 SET MSG NO. eo, 30014230 O587 0 SEQE | DC  J5E9E LT 30014910, 
- 0579 0 4400 O4FC . BSI t MERR | LOG MES —- SWS INVLD 30014240 05B8 0 FFFF DC . J/FFFF re 1 Pm ae . 30014920 
i . * a . ge 30014250 05B9 0 T6B2 ADRLD DC /7T6B2 NU NUM. PID ADRS RELF 30014930, 
O57F 0 4C00 0220 MRBSF BSC L MXFQ. GO TO SUPERVISOR 30014260 05BA O 7221. DC 7221 Mo _—- | 30014940 
: | * _ 30014270 O5RBB 0 2156 pc 1/2156 P 30014950 
Wereretrerttrertte tt trrtctttccs eet. rected 30014280 -OSRC O 2232 DC (412232 ID 30014960 
* LOAD NEXT PROGRAM 30014290 O58D 0 2121 DC 72121 | 30014970. 
DATE | 02 JAN66 15NOV66 LSJUN67 100CT67 010CT68 LOJAN69 25JUL69 PROG ID 0300-2 DATE 02 JAN66 15NQV66 L5SJUN67 LONCT 67 01NCT68 1OJAN69 25JUL69 PROG ID 
EC NO. 415490 419643 420317 571005 © 571021 571053 PAGE pane EC NO. . 415490 419643 420317. 4203170 571005 — §71053 


4203170. | 





571021 





PAGE 
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DLTAGNOSTIC PROGRAM FOR THE 1130 SYSTEM DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
oe | : a eo " | _ PAGE © 22. | | | re fg Ae 7% re PAGE 12A 
1130 DIAGNOSTIC MONITOR TI beat. 1130 DIAGNOSTIC MONITOR If. ey an 
O5SBF 0 3E32 ~~ —iD€ =, YRESZ> 2 AD 30014980 ACKSM 05A4 0557 
OSBF 9 629A — DOC {629K  — RS 30014990 ADDRS 0168 | 
N5CO 0 2162. DC /2162 . RO 30015000 ADRLD 0589 0200 
O5C1 9 365E © an DC 73656 EL. 30015010 AFND O5Al 0449 
05€2 01221 |. pe = 8221 _ oF 30015020 AHALT 0586 0556 
05C3 O FFFF mem JFFEF 30015030 “AIVD 059D : 2 
oye. a a: ee a 7 — 30015040 | ALD O59F 0201 0513 > 7 : 
tk toe dk 2k koko ek Re tok tok dak kk tek ka a i a 30015050 ALPHA 0393 0337 0338 033B 033D 0399 
* | ~ -LOADER/ MONITOR INTERFACE © 30015060. : ALPHL 0396 0394 039B 039£ O03A5 ~ 
RMR RE RH KK RK RE RR ERE CREEK EKER RE K 30015070 AOVCR 905A8 0558 
* | Pe we | 7 | 30015080 APID 05B3 SS 
OLS6: . -: | | ORG | /156 a _ a oe 30015090 AGO O4A2 044C 0455. 
0156 0 4C€00 0219 | BSC t  INLIZ BLANK CD. RET TO MONITOR 30015100 AQl 0444 0450 0466 
0158 0 4C00 0590 |. BSC Ll CKSUM mae tip to 30015110 AQ2 O4A6 O46E 0477 
015A 0 4€00 0593 - BSC L OVER on _ = = 30015120 AQ3 04A8 O47F 0488 
O015C O O5DC - NLOC DC —/50C NEXT AVAILABLE LOCATION. 30015130 AQ4 04AA 0490 0498 ~ 
90159 0 9000. RELF DC /0000 RELOCATION FACTOR 30015140 AQ5 0410 0016 03FB 0418 — 
OL5E 9 95DC ee: °) oe 750C © SET BASE ADDRS 30015150 — AQSA 0016 © -_ 
| _ 8 eo . =. % a 30015160 ASIVD 059B 0555. 
0078 O _LQADR EQU /0078 START LOAD ADDRS . 30015170 ~ASTOP 0414 0015 0289 
9028 0 MESO EQU 10028 MESO # LOADER INPUT AREA 30015180 ASTRT O5AD 0278— | 
o5spc ORG — f50DC | | ue ° 30015190 ~~ ASWS O5B1l 0554 
O5DC 058D <a END ~ LOAD2 30015200 | BEGIN 0160 | 7 
NO STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY a RGIN O1CF 0160 01D5— 
ene a 7 | BGINI] oO1DC 0109 
BUSY  O2EB O2AC O2FE 
CKSUM 0590 0158 
CR ° O2F6& 0319 
DEC QO3R6 0358 
DECI O3BF 0389. 
NEC2 03C1 O3CB. 
DEC3 03C5 903C4 
DELAY O41F 0574 | 
NELYC 0425 6420 0421 
DELYL 0424 0423 — 
Dsw5s 0413 O3FC 
ELOG 0301 0288 
FND  . 0164 , 
FRBY 0215 O2E0 | an 
ERC O2F4 0288 O2AB O2AE 02CB O02FT7 
ERLCK 0166 ©. von 3 eee 
ERRI O2A4 0162 02A9 
ERRIL 0288 0283 
ERRI2 02C6 , 
ERRI3Z O2D1 O2DB 
FRRI7 O2DC 0307 | 
ERRI8 O02E5 O2DE 02E2 
ERROR 0162 0500 7 - | 
ERSW O02F3. O2AF 02C3 02CT7 O2DD 02E9 0300 031C 
FIVE 03A2 0386 | 
FOUR 0354 O3AB 
GO 040B 0282 
HALT 0209 O2CF O2DA 
HEX  . 03A6 032B 0330 0333 035A 0384 
HEX1 O3AA 03B3 
HEX2 QO3AN O3AC ee 
IERM 0217 0284 0482 04BC oe oa: | | 
TFRR 0480 9O16B O16C O16D O16E OL6F 0170 0171 O17T2 0173 O174 0175 0176 0177 
3 0178 0179 017A 917B OLTC O1LTD OLTE OLTF 0180 0181 0182 0183 0184 
0185 0186 0187 0188 0189 O18A OL8R OL8C O18D OLBE O18F 0190 OL9L 
0192 0193 0194 0195 0196 0197 9198 0199. 019A 0198 019C O019N OLIE 
OLOF OLAO O1Al O1A2 01A3 O1A4 O1A5 OLAS OLAT OLAB OLAD OLAA OLAB 
O1LAC OLAN OLAE OLAF O1RBO 0181 0182 01B3 0184 0185 O1B6 0187 0188 
: OLBA O1BB O1BD O1BE 0285 04B6 O4BE - =: 7 
IFRR2 O4CO0 O4BA. | 3 
ILIR 0015 9288 O3FN 0576 | : 
ILSW O4AD O44F 0460 0471 0482 0493 04B1 - 
ILTO 044A 0019 0459 | ‘ 
DATE 0? JAN66 L5NOV66 1I5JUN67 100CT67 0100 T68 LOJAN69 =. 25 JUL69 PROG ID 0300-2 DATE 02 JAN66 15NO0V66 15 JUN67 100CT67 O1NCT68 LOJAN69 25JSUL69 PRONG ID 0300-2 
EC NO. 415490 419643 420317 4203170 671005 571021 571053 PAGE ‘ 12 FC NO. 415490 4196423 420317. 4203170 571005 571021 571053 PAGE 12A 
\ " . » ‘, ‘ ‘ ‘ ‘ : | ; : \ , \ ’ , | _ : - : \ : “ : ; : 
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TBM MAINTENANCE OTAGNOSTIC PROGRAM FOR THE 1129 SYSTFM © ae Paes PART NO. 2191200 | IBM MAINTENANCE AILAGNOSTIC PROGRAM F22 THE 1130 SYSTEM | PART NO. 2191200 
1130 DIAGNOSTIC MONITOR If , . : . 2° ~~ L130 OTAGN!e!STIC MONITOR TT . os 
ILT1 90458 9009 OO1A O46A | . 7 | ; MRRSC 0548 0540 
ILT? 90460 900A-90018 0478: —— . . MERSN O54F 090014 0559 
ILT3 047D -O00B 901C O4BC : | a . MRBSE 9579 O52B 
ILT4 048E O01ND 049C 0542 0549 . . | | : . MRBSF OSTE O578 Ca ; it 
Tt 03F9 O00D 0414 0419 , | : | | | | | MRRS3 0536 052F | “ 
ILO  O17A. O1FC 0453 0580 - : | , 7 of - : MRBS4 0539 0532 7 
TLi = O1SA 0464 | | : MRB8S5 055A 0541 
IL? O194 0475 , | : | MRBS6 0564 055N 
It3 Q1AA 0486 : 5 wakes - | _ 7 : MRSRT O?80 0004 | 
IL4 OBA 0496 7 | 7 | MSWO 0200 0166 0220 02725 0255 0267 O2BL O2CD 042A 
IL5 OLRBF 0401 - _ : | _ MSWOX O?7D 0221 0744 9747 
INtIZ 0219 0156 0210D 0291 0383 | | | . MSWl = Q20E | 
IOBSY O2F5 0167 9287-0293 O2BA O2FN 0305 0361 :- _ | . “Bt. MSW? 020F 053D 0569 055C | 
IXFVEC oO0O19 O21A eee 3 MSW3 0210 | | : 
KON01 O77C 0297 | | eg =. | | 2 : MTABL O50C O1D3 OLD7 O1NDF O1ED 0431 9485 0489 OSLE 0530 0533 053C 0552 O55R 
KNNN9 O209 OLDA | . | | | | ew O55F O58C | 7 ou? 7 . 
KNOTE O274 O24E 0296 0299 | | , MTWR 04DF O4DE | 
KOOTF O207 0222 | - tee | | MXC) 0220 023C O7EE 0572 O57F 0599. 
KOORO 0206 O1F1 | | | : | | 7 | MXFQOL 9233 0273 | os | 
KB8000 0205 O1E4 0231 0235 04CB 0524 | | | | | | 23 | MXFQ2 023D 0168 0239 023A 0265 02A5 0?C1 O2F9 0427 
LDERM 0595 0592 © | a 7 te, | | | MXFQ3 0252 O25A 0263 | » | 
LEND 035C 0350 0356 03A4 | , | 3 | MXEQ4 02754 0249 
LINE O2F7 02C9 0323 : r se. eee | MXEQ5 0258 0241 0253. 
LOAD 0581 0447 O056F © | - . | moos | | | > MXEQ6 0261 0259 oo | : 7 - . ae 
LOADR OO78 O1FE 058F " A | OM % 3 | | MXFQO7 O271 023F 0256 025N 026D 02A0 02A3 02E3 043B 043F 04C4 
LOANL O58A 0581 | oe * “33 | : _ | | | NFGS  § O3EN O3BB a ee oe | | 
LONAD2 O58D O50C © bot its | se 7 7 | | | NLOC O015€ 0445 058 © 
LOG 0163 O4F7 a, # acs : | | | _ 4 a ORGO OO18 O21F 
LOGBY 0167 ae 3 | : ‘ t, & : 4 me = . QOVCR 9593 O15A © | | 
LOGE O2F8 0163 O026E 029C O2FB 058A — | | So . “2g 3 Bos | iz PGMN O50D O1DO OLE1 0438 0441 0584 © 
LOGR O2B9- O37R — - 7 / - PS sa | PINWS O2FO 0392 0304 O030EF 0310 0329 -032C 0331 
LOGT  Q3D0 °022A 0360 0362 036R 036C 036F 0371 0374 0376 037D O37F 038A 03N2 | se oe . _ RPBS 0552 O1FB 051D © | ao 
LOG1O0 0349. 034F O3CE —_ a if Se 8 _ oe tes RDBSW O41C 0400 
LONGI1 034B 0358 rs > Pe | 2% | RELF  O1L5D OFD2 ea 
LOGI2 0351 0346 0349 | , fae * ae - , 3 8a =": Se | ~- ROKB O1LBC O28F O4E7 04F0 
LOG4 0395 O2EA : = 7 a ar ro _ | | a eee ye kwh 7 RQTY O1BR 0368 O4DF 
LNG5 030A 02BD 0309 — 8 a? | a, ere | |  % — RSTX = O2BF- Ss O2B6 0308 
“LOG7 090315 O317 | ; 4 ; — a ae A : i. : << a. RTNSW = 0165 0227 O26A 
LOGS 0334 0327 032DN , : | a a | | 7 SADRS O41E 0415 041C O41F 
LNG9 0345 033E | = er ae | | — : _ yeh ts _ SAQ 0418 0403 O40F 0424 
MALPH OS5SOA O4F4 O4FD 7 a a ee : _ | | 7 ne SELCT 0203 O1F5 O1F6 0230 
MCDSW. O4DA 0385 04C7 04C8 O4CF 0400 O4EF _ = = 3 | | OO | SMSG 0293 0275. 
MCINT 04C6 O1B89 022D 0407 - 3 ~ a ee | | | | SMSGA 0275 0250 029D O2A1 
MCIST  O4AE O4CD 94D2 | a, fae 0 - | a io SMSG1 O2AL 0295 .- - 
MCIL O4CA 04D5. = , - a Bo =  §so - 0458 O44E 
MCI2 0402. O4A0 O4F1 O4EE O4F2 | ks : — 3 ee A es | 0469 O0O45F 
MCX2 O4AF O4CE 0493 - | ; a? i ! a . | 7, SS?  O47A O470° 
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“MLOG . O4F3.. OLFA 0436 O4FA. 0567 a a er | _ fe: : a | STOP] 0496 - 0408 | 
MLOG2 0507, 04F5 O4F6 O4F9 O4FE O4FF 0502 | 25 : |  STPID O27A 0298 | 
MESCF 0213... 01CE.073D O4EC a: 4 ey » 7 — 1. fuer oy: | STPSW 0412 0280 0405 04096 0409 040C 
MMBS¥ 0216;. O2EC - . . | 3 are aoe : | a a —  STRSW 027B 0223 0229 0248 | 
 MMESF 0449 0433 _ _ Sf oe : 3 a | _ae : coe 7 STRT 0264 OL161 | 
—-MMFSO 0200. OLF9. | ae | - | | 3 an SVKB  O1LBD O049E 
MMESL 0554. 0566 057A | | =: a? nd gh ok : ¢ = : TABL O3DA 0311 
MMES3 0556 0562 — , fy 7 7 | : fe ee 7 ae TEMPR 0202 OI1DB OLE8 
MMES4 0557 - 0591). 7 > at ; : pt ae TEN 0307 03C2. 
MMEST...0558.,-0594 2 (2. g..:2 0 Ghh ecole ei ee | : See a TERM 03FO 0379 
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1BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM «PART NO. 2191218 -i’ D IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART KO. 2191218 
ee PAGE 0001 i | | | PAGE OOO1A 
2315 DISK INITIALIZATION = 1 > 2315 DISK INITIALIZATION 
“| 
at | | 
1 THE PROGRAM PERFORMS THE FOLLOWING FUNCTIONS ON THE CE. 2315 DISK PACK. 
b 
~:) Dp le WRITES SECTOR IDENTIFICATION ADDRESS (SID) AND PROPER PATTERNS ON ALL 
TABLE OF CONTENTS CYLINDERS EXCEPT 90 THRU 110 INCLUSIVE. PROPER PATTERNS ARE —— 1313 
| ON SECTORS 0,295 AND 7 AND E5E5 ON SECTORS 19324 AND 6. 
PARAGRAPH PAGE ie | | | 
| 2e READS AND VERIFIES EVERY SECTOR IDENTIFICATION ADDRESS WRITTEN. ANY | 
Te JPURPOSEs 5&6. ones -m er y Se eee eS Se Stele eee ee ee ee ae - MISSING OR ERRONEOUS SECTOR IDENTIFICATION ADDRESS CAUSES THE PROGRAM 
, > 8 TO TERMINATE AND RESTART THE ENTIRE INITIALIZATION PROCESSES AGAIN. 
Ze REQUIREMENTS @ @ @ @ @e t e @ @ e @ e @ @ @ @ iL) @ Ss @ @ @ e @ e . 1A f ; 
ae ac 3. WRITES THE SID, THE CoE. IDENTIFICATION *"CEDC*, THE CYLINDER ERROR 
2e1 PROGRAM REQUIREMENTS | = yy @ 7 TABLE AND THE PROPER SECTOR PATTERN ON CYLINDER 199 SECTORS 3 AND 
2e2 EQUIPMENT REQUIREMENTS SECTOR 7. THE CYLINDER ERROR TABLE CONTAINS ALL THE SECTOR ADDRESSES 
2.3 EQUIPMENT SETUP ee FOR EACH CYLINDER THAT HAS UNREADABLE AREAS. (EITHER AODRESS OR DATA) 
. : 7 — | + | ® WHEN A BAD SECTOR IS FOUND, ALL THE OTHER SECTOR ID°S IN THAT 
Be OPERATING PROCEDUREs ee ee ee ee ee cee sce e cece eo 2 CYLINDER ARE ALSO RECORDED IN THE CYLINDER ERROR TABLE} 
3.1 LOADING PROGRAM 3 | ® 2. REQUIREMENTS 
302 PROGRAM DPERATION 
30201 DISK UNIT SELECTION = FUNCTION 2 a 201*%* PROGRAM REQUIREMENTS | 
3.202 PROGRAM CONTROL — FUNCTION O J  ) : 
30203 PROGRAM SELECTION — FUNCTION 3 1130 DIAGNOSTIC MONITOR II 
3.204 MISCELLANEOUS CONTROL - FUNCTION 3 - | | 
30205 DECK SETUP FOR MULTI-FILE OVERLAP OPERATION 14989 202%e% EQUIPMENT REQUIREMENTS | 
3.3 PROGRAM HALTS | | | a he | | 
30301 NORMAL HALTS le AN 1131 CPU WITH PROGRAM: INPUT FROM CARD OR PAPERTAPE READER. 
3.302 ERRGR HALTS 349 2. <A DISK STORAGE DRIVE AND A 2315 CE DISK PACK. 
364 PROGRAM TERMINATIONS | 3. AT LEAST 2350 AVAILABLE POSITIONS OF CORE STORAGE FOR THIS 
325 RESTART. a . PROGRAM. 
r 
Se PRINTOUTS. « « « Ses ee e eee e ee eoeeee ee 4 2e3%8* EQUIPMENT SETUP : 
bel STATUS MESSAGES >t 8 le TURN POWER ON. 
bo2 ERROR MESSAGES 2. PLACE THE 2315 CE DISK PACK IN THE DISK DRIVE TO BE TESTED. 
4.3 SPECIAL NOTES) mn 3. WAIT LONG ENOUGH FOR THE MACHINE TO BECOME READY. 
: | | 7 s » MACHINE MUST BE READY PRIOR TO EXECUTING PROGRAM. 
Se COMMENTS e® e© e828 @ 8 @ ze e®3e 8 &© @hUhOhC<C OWUCMOhUC~COFTMhCé~™O ee e®eeet © @ 6A ° : : ; : : 
5.1 DISK ADDRESSING SCHEME a 
502 ROUTINES 
be APPENDIX e.«6 8 @© @ @ te e°se ; eee e eoeeoeeeeeewee @ @ JA . +] 
> 1 8 
> 1 ® 
NOTE - - DO NOT RUN THIS PROGRAM IN OVERLAP MODE. 
1, PURPOSE 2 ® 
THE PURPOSE OF THIS PROGRAM IS TO PREPARE THE 2315 CE DISK PACK FOR USE BY | 
THE DISK DIAGNOSTIC TEST PROGRAM. THIS PROGRAM IS RUN NORMALLY AT tie 
INSTALLATION TIME, AND WHEN THE PACK DATA HAS SEEN DESTROYED OR CHANGED. 
IN THIS PROGRAM ALL FILE ADDRESSES AND THE PROPER SECTOR PATTERNS ARE 
WRITTEN. THE EXCEPTIONS ARE CYLINDERS 90-110 INCLUSIVE. tie 
tie 
g ro 
tie | 
\ g | Ss : 
| \ ae | 7 | | | 
DATE  O2JAN66 15JUNE66 15NOV66  15JUN67 a PROG ID 0308-* , DATE O2JAN66 15JUNE66 15NOV66  15JUN67 5 PROG ID 0308-* 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTER PART NO}; 2191218 ® IBM MAINTENANCE DIAGNOSTIC ERDGRAM FOR THE 1230 SYSTER PART NO 2191228 
| ; ie 7 PAGE 0002 FAGE OGO2ZA 
2315 DISK INITIALIZATION ® 2315 DISK INITIALIZATION 
3. OPERATING PROCEDURE . 3.202 PROGRAM CONTROL — FUNCTION @ 
3.148% PROGRAM LOADING 3 le SET SWITCHES 0-7 TO Ol, 
2e SET SWITCHES 8-15 AS DESIRED. 
STANDARD MONITOR LOADING PROCEDURES APPLY a ee ee ee eter a cm en enero 
| D Sw FUNCTION 
THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR _— -~ - ee a re ee 
DETAILS. 8 RESTART 
a ‘ 9 - ROUTINE START MESSAGE 
“le SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 10 LOCK ON FUNCTION 
(26 SET BIT SWITCH 15 OFF - LOAD AND GO - 11 LOOP PROGRAM 
, ON - TO SPECIFY OPTIONS BEFORE RUNNING. < 12 LGOP ON ERROR 
13 BYPASS ERROR PRIXTOUT 
IF HALT AFTER LOADING, SELECT PROGRAM 2 14 HALT ON ERROR 
‘OPTIONS THEN TURN OFF HALT SWITCH OR ’ 15 HALT 
FOLLOW NORMAL RESTART PROCEDURE nec ree 
“(SECTION 3e5)6 : 3. PRESS INT REQ KEY ON CONSOLE. 
| ~ ee 
3. LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 
&. SELECT PROGRAM OPTIONS, IF DESIRED. m 30203 ROUTINE SELECTION — FUNCTION 1 
S2&k2aSRS ~ 
a THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED. 
3.2%%% PROGRAM OPERATION. an | 5 . le TO SET ROUTINE SELECTION 
NOTE=-DO NOT RUN THIS PROGRAM IN OVERLAP MODE. . Pe Ae SET SWITCHES O-7 TO 41- 
7 eS | z 2 Be SET ROUTINE NUMBER IN SWITCHES 12-15. 
3.2.1 DISK UNIT SELECTION — FURCTION 2 
ANY SINGLE DISK DRIVE MAY BE SELECTED AND TESTED BY TURNING ON THE a: = RTN | DESCRIPTION 
PROPER CONSOLE BIT. : - | a ne eee | oo oe 
le TO SELECT DISK . YS 1 ——i(s« NS SEEK =WRITE-READ® » NORMAL ROUTINES] 
Ae SET SWITCHES 0-7 TO 81. - ADDRESSES AND « THE PROGRAM STARTS WITH 
Be SET SWITCHES 12-15 FOR DESIRED DRIVE UNIT. | a - a | TEST PATTERNS e ROUTINE 1, RUNS EACH 
a On ee 2 REVERSE READ* e ROUTINE IN SEQUENCE 
SW DRIVE UNIT | | at _- WALID OISK ADDRESS e ROUTINE 3. 
wets piece ce a 2 | 3 3 - WRITE CE HISTOK , 
ALL OFF MAIN DRIVE 7 | - ... DATA ON CE CYLINDER 
15 FIRST DRIVE = SECTOR 3 AND 7. 
14 «SECOND DRIVE : pA 3 2 4 
13 THIRD DRIVE | | 
12 FOURTH DRIVE . NOTE 
Lae ed a ey ee eee t > § IF A COMPLETE PASS OF THE PROGRAM WITH A NORMAL TERMINATION IS MOT 
4 ig “Week : | | ALLOWED AND IS NOT THE FINAL RUN, THE DISK PACK WILL NOT OPERATE 
2° PRESS INTERRUFT REQUEST KEY~ PROPERLY WITH THE DIAGNOSTIC TEST PROGRAM, IT IS RECOMMENDED THAT 
— | | d ¢ z - 3 THE LGOP ROUTINE FUNCTION NOT BE USED WITH THIS PROGRAM. 
NOTE —- SELECTING A DISK THAT IS NOT ATTACHED TO THE SYSTEM WILL 
NOT CAUSE AN E0802 (NOT RDY) MESSAGE BUT WILL CAUSE AN Ce PRESS INT REQ KEY ON CONSOLE. 
-€0801 (LOST INTERRUPT MESSAGE.) t |? 7 | | | 
= 4 | 2e TO RESET ROUTINE SELECTION SET AS IF SELECTING ROUTINE ZERO. 
3. INITIALIZING MORE THAN ONE DISK PACK PER PROGRAM LOAC WILL REQUIRE : 7 | | | 
SELECTING THE NEW DISK UNIT (SW FNC 2) PRIOR TO RESTARTING THIS t D 
PROGRAM. 
ee z 3 
g | 3 
g D 
¢ 3 
DATE  O2JAN66 1L5JUNE66 15NOV66 15JUN67 | PROG ID 0308- | DATE = G2JANG6 «-ISJUNEG6 = ISNOV6G = LSUUNGT . PROG 1D 0308-« 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191218 e: 3d IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 21291218. 
| PACE —S»«0003 | PAGE 00034 
2315 DISK INITIALIZATION @ { ® 2315 DISK INITIALIZATION = 
r | | g 9 
30204 MICELLANEOUS CONTROL — FUNCTION 3 30302 ERROR HALTS 
le SET SWITCHES 0-7 TO Cle e , 
2- SET SWITCHES 8-15 AS DESIRED. , - ; — , amenmnmoens 
iene : eHALT NO. DESCRIPTION ‘ RESTART ‘ 
Sw FUNCTION o(B REG). * ACTION ‘ 
14 BYPASS RETURNING ARM TO HOME BETWEEN RTNS. | < ‘ | ‘* ° 
15 SEMI—AUTO 1/0 AREA SCAN. DISPLAYS ONE WORD eo 30Fl CHECK SUM ERROR ON FIRST « RELOAD e 
IN THE ACCUMULATOR EACH TIME THE START KEY ¢ od : % CARD OF LOADER ; : 
IS PRESSED AFTER AN E0906 MESSAGE. THE ; ‘ a 
COUNT IS DISPLAYED ON THE FIRST. WAIT. (300A) e 30F2 READER DSW ERROR WHEN e RELOAD m 
SCAN RT EXITS AFTER 1/0 WORD 321 OR FNC 3 g 2 ‘ Eg LOADING LOADER ‘ é 
BIT 15 OFF + CONSOLE INTERRUPT IS PRESSED. i ‘ ‘ | é 
e 30F3 sh CARD 2 OF LOADER DIO NOT e RELOAD a 
(NOTE ccc IS A NON-OVERLAP FUNCTION) gt 8 ‘ : LOAD ey : 
BIT 15 e e , Py ° 
| ° 30F4 . ' CAN NOT CLEAR CORE —- DUE TO o ‘ 
30 PRESS INT REQ KEY GN CONSOLE) 3 3 * a ERROR IN ADDRESSING UPPER ‘ s 
e @ t CORE. eo e 
30205 DECK SETUP FOR MULTI-FILE OVERLAP OPERATION ° “/ | ° | ° 
le REPRODUCE THE PROGRAM DECK FOR EACH FILE z 3 e 30F5 «4: READER CHECK WHEN LOADING ° NPRO THEN PLACE CARDS ° 
2e PUNCH TWO PATCH CARDS FOR EACH PROGRAM AS ; am MONITOR OR TEST PROGRAM eo RUN OUT IN FRONT OF é 
 BOLLOWS—= (START I COL 1) e : e REMAINING DECK AND PRESS. 
I 3 - . a e START. ‘ 
+05DC 03N9 (CARD =1 —— PROG ID PATCH ) ° ° | e ° 
405E1 OGCOX (CARD =2 — FILE SELECT PATCH) t 2 eo 30F6 |. MONITOR DID Not LOAD e RELOAD e@ 
' e he e e 
WHERE + EQUALS A 12 PUNCH ONLY ; e 30F 7 / o. CHECK SUM WHEN LOADING e@ RELOAD ° 
N EQUALS NEW PROG ID NUMBER (0 TO 4) . vy MONITOR ‘ . 
X EQUALS THE FILE SELECT WORD (SEE 3.261-1) zt ° ° | 7 | ‘ | Me ‘ 
FILE 0 EQUALS 0000 eo 30F8 .. READER NOT READY e MAKE READER READY ° 
FILE 1 EQUALS 0001 s e oe . oe ig 
FILE 2 EQUALS 0002 = 8 ° 30F9 . INVALID INTERRUPT WHICH WILL - PRESS RESET AND START © 
FILE 3 EQUALS 0004 | ‘i ‘ NOT RESET . | " 
FILE & EQUALS 0008 | ‘ ‘ oo - . ¥ 
| 3 ee 2 30FA . CONSOLE PRINTER HANG UP - . FIX THE CONSOLE PRINTER « 
3. PLACE THE TWO PATCH CARDS JUST IN FRONT OF THE | | ‘ 2 BUSY WILL NOT GO OFF « OR NOP THIS WAIT ‘ 
LAST CARD OF THE PROGRAM THAT IS TO BE MODIFIED. * ° « | ae 2 
saeeee » ¢ 3 « 3008 . DISPLAY 1/0 AREA WORD « PRESS START FOR NXT WD 
® e e FNC 3 815 OFF. ¢ CNSL 2 
303¢#* PROGRAM HALTS f 2 _ ‘ eo NTRPT ‘ 
3,301 NORM4L HALTS | | . 
ae THIS PROGRAM HAS ONE HANGUP WAIT 7OFF. THIS OCCURS ON AN UNEXPECTED 3 
cHALT NO. ' DESCRIPTION ‘ RESTART a dada 
-2(B REE' 2 ACTION , 
; 210 REG" ae si g ] 30488 PROGRAM TERMINATION 
e 3001 . PROGRAM STOP OR ADDRESS STOP « PRESS START : | | 
. _ | : zs ; IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
e 3002 . HALT ON ERROR a DISPLAY MODE-PRESS START. g ® AN AOBO1 MESSAGE WILL INDICATE PROGRAM TERMINATION. AN AGBED 
i - e RUN MODE — PRESS START « WILL INDICATE A NONSCHEDULED TERMINATION. GENERALLY THE RESULT 
7 7 7 | | = OF TLLEGAL OPERATION PROCEDURES: RECHECK CAREFULLY. 
2 3033 . WAIT FOR DISK UNIT SELECTION - SEL DISK (FNC 2) - gid 
e @ ° _@ ; r ) NOTE 
S2eS2 : a. | | 
¢ | 98 IF THE PROGRAM IS NOT ALLOWED TO MAKE A NORMAL TERMINATION, 
THE DISK PACK WILL NOT BE ACCEPTED BY THE FUNCTION TEST. 
| +eeet 
g 8b 
3-5%e8 RESTART 
a oe le SET SWITCHES 0-7 70 Ole 
2e TURN ON SWITCH 8. 
3 SET DESIRED CONTROL IN SWITCHES 9-14. 
g 8 Se PRESS INTERRUPT REQUEST KEY. 
| eee 
g | i] 
O2JAN66 15JUNE66 15NQV66 15JUN67 | PROG ID 0308—* | DATE O2JAN66 15JUNE66 15NOV66 15JUN67 PROG 1D 0308-9 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTER 
2315 DISK INITIALIZATION 


4- PRINTOUTS 


ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 


APPNN OORR AAAA 
OR 
EPPNN OORR AAAA 


(MESSAGE) 
(MESSAGE) 


WHERE IDENTIFIES STATUS MESSAGES 
IDENTIFIES ERROR MESSAGES 


IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 


om b> 


THIS WILL BE EITHER OO FOR MESSAGES 
ORIGINATED BY MONITOR OR 

08 FOR MESSAGES ORIGINATED BY 

THIS PROGRAM. 


NN IS THE MESSAGE SEQUENCE NUMBER 
RR IS THE ROUTINE NUMBER 
AAAA IS THE ADDRESS OF THE ROUTINE. 
MESSAGE IS ANY VARIABLE INFORMATION | 


4.1*%% STATUS MESSAGES 


AGGO00 se thing NUM FD ADRS RELF LD 
. : XXXX XXXX XXXX AXXX 


THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR)» THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 





a0ool SWS PID. 

} XXXX_ AXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 

BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 

TOGETHER WITH THE PROGRAM ID OF. THE PROGRAM INTO WHICH THE 

CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 

CALLED FOR HALT OF ANY PROGRAM THE WORD HALT WILL FOLLOW THE ~ 

MFSSAGE. : 





A0800 OOOR AAAA 


KOUTINE START MESSAGE - IF SWITCH 95 FUNCTION O, IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE WHE START OF EACH ROUTINE. 
R IS THE NUMBER oF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. 





PASS= SEEKS RESKS 
WRITE SFTER HRDER 
READS SFTER HRDER 


AO8012 OORR AAAA 


COMPLETE PASS OF PROGRAM AND STATISTICAL INFCRMATION. THE 
STATISTICAL INFORMATION IS A TOTAL FOR ALL OF THE PASSES INDICATED 
BY THE PROGRAM PASS COUNTe ALL DATA Is GIVEN IN THE DECIMAL FORM. 





AO803 OORR AAAA SEL FILE 


SELECT DIS’ UNIT PROGRAM 1S TO OPERATE WITH. {SEE 3.2e1-1) 
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DATE O2JAN66 
EC NO. 415490 


SOON 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM at NO. 
| A 
2315 DISK INITIALIZATION 
A0804 OORR AAAA 
THIS MESSAGE IS ALWAYS PRECEEDED BY TWO EWOB MESSAGES. THE TwO 


EWOS8 MESSAGES INDICATE THAT THE WRONG ADDRESS WAS READ TWICE AFTER 
THE INITIAL SEEK. . HOWEVER», REZEROING THE ARM AND RESEEKING THE 
PROPER ADDRESS mas OBTAINED. THE PROGRAM COUNTS THIS AS ONE SEEK 


AOBED OORR AAAA RT =<N/A ( OR ) ARM NOT HOME 

END OF DISK DIAGNOSTIC. AN *AO8ED* FOLLOWING AN *E0803! 
INDICATES THAT THE ACCESS ARM DID NOT GO TO HOME DURING 
INITIALIZATION OF PROGRAM. *AOSED* ALONE MEANS A ROUTINE WAS 
SELECTED WHICH IS NOT AVAILABLE} 





AO8AD OORR AAAA . ADDR RECORDED IN ERR TBL 
| THIS IS THE CYLINDER ERROR TABLE (CET) PRINTOUT. THE ADORESSES HERE 
ARE IN ERROR. ONE BAU SID (SECTOR ID) WILL CAUSE ALL EIGHT ADDRESSES 
~ FOR SAID CYLINDER TO BE INCLUDED IN CET. FOUR LINES SF CET OUTPUT 
EQUAL A BAD PACK. (SEE E0866) ADRO TO ADR7 ARE THE BAD ADDRESSES 
(SECTORS 0-7) OF SAID CYLINDER. SEE COMMENTS. . 
SEEKS 


& 20% ERROR MESSAGES 


THE DSW IS CHECKED. FOR. ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE OSW FOR me 
SPECIFIC PROBLEM AREA. : 


EKEKKAKKARRSERHKKSEKEAE RETAKE KRESS KKHKKSLSSSESSSARERSSERSEHRSELKE 
we ) eu : THE DISK OSW | | en, 


mane & 











SE ce gee cee ee encttn > ga Ete On a PED ON OE WEEP CPE EPO ED EEN OD On PET aNED a ewerenen aD 
* a : * 
| DESCRIPTION 


w 
Seer) 
= 


* 
& 
ANY ERROR * 
OP COMPLETE * 
NOT READY * 
BUSY o, s 
CARRIAGE HOME * 
NOT USED. a 
NOT USED * 
NOT USED | * 
NOT USED en sae 
NOT USED . _ 
NOT. USED * 
NOT USED * 
NOT USED 2 
NOT USED + 
SECTOR HI COUNT. * 
SECTOR LO COUNT * 
x 
* 


co) 
Osoavwnuwnklwnre © 


pms ped put peat fad 
wi &® WAI m= 


* 
& 
% 
* 
* 
* 
% 
3 
* 
* 
* 
* 
& 
* 
& 
* 
& 
* 
s 
% 


SXKKKAKERERESLKSESEKEKHS EERKRSSEKAKSSEESLKKESRESSSESESE SS SAS 
E000) SWS INVLD 
| oo XXXX 


THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 





E0003 OVR CORE 


THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 


DATE  O2JAN66 15JUNE66  15NOV66  15JUN67 | PROG ID 

EC NOs 415490 4154900 419663 420317 : PAGE 

a ™~ a ~ *) ae ee = “ —“ et —_—_ o™ . a | 
} , 

i Cro a wy 9 er 7 
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00044 
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E0004 


E0005 


£0801 


E0802 


€0803 


E0804 


EO8US 


E0806 


DATE 


EC NOe 


OORR 


OORR 


OORR 


OORR 


OORR 


OORR 


O2JAN66 
415490 


CKSUM 


A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 


le A CARD IS MISSING OR IS OUT OF SEQUENCE. = 

2- THERE IS AN EXTRA CARD IN THE DECK. ' 

3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 

5. DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 


WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 





OOON XXXX 


THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSW 

WAS NOT CORRECT. WNW iS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSI. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 





AAAA INST OSW FROM TO READ 


INTERRUPT WAS LOST. PROGRAM AUTOMATICALLY RETRIES TO EXECUTE ROUTINES 


NOTE 
SELECTING A FILE UNIT THAT IS NOT ATTACHED TO THE SYSTEM WILL NOT ~ 
CAUSE AN *E0802* (NOT READY)» RESSAGEs BuT WILL CAUSE an *£0801° 
(LOST INTERRUPT) MESSAGE. 





AAAA INST DSW NOT RDY 





FILE NOT READY, BUSY, OP COMPLT OR ANY ERROR IS ON. 


AAAA INST OSW 


HOME BIT IN DSW FAILED, OR MECHANICAL RESTRICTION IN ACCESS ARM, 
SEEK=1 CYLINDER WAS GIVEN 203 TIMES AND ARM IS NOT AT HOME YET, OR 


-DSW DUES NOT HAVE BIT 4 ON. DSW SHOULD BE O80X. X EQUALS 0 — 3-6 








AAAA INST OSW ADDR RECORDED IN ERR TBL 


DESIxcD ADDRESS IS IN THE TABLE OF BAD ADDRESSES. 


MEXT CYLINDER IS TRIED. 





AAAA INST OSH DSW ERR 
DSW HAS BIT/BITS ON THAT SHOULD NOT BE ON AT THIS TIME. 


‘BRANCH TO 
MONITOR END ROUTINE. . eo ee 





AAAA ‘INST OSW ADDR DATA 


DSW ERROR BIT/BITS ON AFTER A READ OR WRITE. SOFT RD/WR ERROR. 


(NOTE cee SEE FNC 3 (30204) TO SCAN 1/0 AREA) 





0308-9 
0005 


PROG 1D 
PAGE 


15JUN67 
420317 


L5NOV66 
— £19643 


15 JUNE 66 
415490C 
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E0807 


£0808 


£0809 


E0815 


£0820 


£0821 


£0860 


£0861 


E0866 


 paTE 


EC NO. 


PAGE 


INST OSW ADDR DATA 





























OORR AAAA 
HARD READ OR WRITE ERROR. INDICATES TEN SOFT READ/WRITE RETRIES WITH. 
FAILURE STILL PRESENT. DSW INDICATES ERROR BITS. SEE £0806. 

OORR AAAA INST OSW FROM TO READ_ 

ACTUAL ADDRESS READ, AND THE DESIRED ADDRESS DO NOT AGREE~ (READ, 
READ-CHECK FUNCTIONS ONLY). FIRST E0808 WILL CAUSE A RE-READ OF THE. 
DESIRED ADDRESS. SECOND E0808 WicL CAUSE A RE-ZERO OF THE ARM AND 

A RE-SEEK AND A READ OF THE DESIRED ADDRESS. - 8 

OORR AAAA INST. DSW FROM YO READ | 
THIS MESSAGE WILL ALWAYS BE PRECEEDED BY TWO E0808 MESSAGES. THE 
ACTUAL AND THE DESIRED ADDRESSES STILL 00 NOT AGREE. (SEE E0808 
MESSAGE.) THE ACTUAL ADDRESSES OF THE TWO E0808 MESSAGES ARE THE 
SAME. THEREFORE, A SEEK ERROR MOST LIKELY GCCURED. HOWEVER, THERE 
IS STILL A POSSIBILITY OF A READ, WRITE, OR DISK PACK. RECGROED DATA 
ERROR OR ERRORS. 

OORR AAA INST DSW FROM TO READ 
THIS MESSAGE WILL ALWAYS BE PRECEEDED BY Two £0808 MESSAGES. THE: 
ACTUAL AND THE DESIRED ADDRESSES STILL DO NOT AGREE. (SEE E0808 — 
MESSAGE.) THE ACTUAL ADDRESS OF THE TWO £0808 MESSAGES ARE NOT THE 
SAME. THEREFORE, A READ ERROR MOST LIKELY OCCURED. HOWEVER, THERE 
IS STILL A POSSIBILITY OF A SEEK, WRITE, OR DISK PACK ‘RECORDED ae 
ERROR OR ERRORS. : 

OORR AAAA — INST DSW FROM TO READ_ 

WRONG ADDRESS READ, DESIRED AND ACTUAL ADDRESS 00 wot. AGREE. THIS 
1S A SECTOR ERROR. . 

OGRR AAAA INST DSW FROM TO READ 
READ SUBROUTINE ERROR RETURN. DSW, ADDRESS» OR DATA MAY BE IN ERROR. 
CHECK PRINTOUTS CAREFULLY. 

OORR AAAA | “INST DSW FROM TO READ 
WRITE ERROR RETURN. THIS OCCURS IN ROUTINE NO. Ol, WHICH 
PLACES THE PROPER PATTERN ON THE DISK. 

OORR AAAA INST DSW FROM TO READ 
READ ERROR RETURN. THIS OCCURS IN ROUTINE NO. Ol, WHICH 
VERIFIES THE PROPER PATTERN ON THE DISK. | 

CORR AAAA INITL BAD PACK | 

-, FOUR OR MORE CYLINDERS HAVE BAD SECTORS. THIS PACK 1S THEREFORE BAD, 
ACCORDING TO THE DESIGN SPECIFICATIONS. DOES NOT CONTAIN 200 GOOD 
CYLINDERS. | ) : 

O2JAN66. 15JUNE66 1SNOV66 15JUN67 PROG ID 
415490 415490C | PAGE 


419643 420317 


PART NO. 





2191218 
‘00054 


0308-2 


 .O005A 
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E0675 GORR AAAA 


£0877 OORR 


UNUSED ADDRESS. 


EOSCE OORR 


4.3000 


NOTE 


NOTE Ce. . 


DATE... 
EC NO. 


. O2JAN66 
415490 


PART NO. 
PAGE 


2191218 
06006. 


sNITIAL IZATION 


INST DSW FROM TO READ 


TRIED TWICE TO SEEK CE CYLINDER BY REZEROING ARM. 
PROGRAM BRANCHED TO MONITOR ENDe 


FAILED TWICE. 





AAAA CE CYL BAD 

THIS MESSAGE INDICATES THAT THE DESIGNATED 

*CE® CYLINDER (199) ADDRESS 0638 IS BAN. iT WILL BE NECESSARY TO | / 
PATCH THE PROGRAM. CHANGE ADDRESS (0638) TO SOME OTHER 

SUGGESTED ALTERNATE ADDRESS IS 0630 (CYLINDER 198). 

REFER TO LISTING FOR THE CORE ADDRESS OF THE DISK ADDRESS CONSTANT. 

PATCH THAT CORE ADDRESS WITH '0630'. CORE ADDRESS IS FOUND IN 

LISTING AT LABEL *DCT*® MINUS 40- ‘OCT* IS FOUND IN CROSS REFERENCE 

LIST AT ‘THE END OF THE LISTING. 





AAAA INST DSW FROM TO READ 

ERROR IN WRITING CE DISK SECTORS 3 AND 7. THESE SECTORS CONTAIN 
SECTOR ID, "CEDC* ID WORD, NUMBER OF ERROR SECTORS, CYLINDER ADDRESS 
ERROR TABLE, AND THE PROPER PATTERN. 





SPECIAL NOTES 
Ae HARD WRITE (OR READ) ERRORS - A SOLID FAILURE TO 


WRITE ON THE DISK. 
IF THE TEST PROGRAt DETECTS THAT IT CANNOT WRITE 
ON THE DISKse IT WILL REPEAT THE OPERATION NINE 
TIMES. IF ALL TEN ATTEMPTS TO WRITE END IN A 
. conan THE PROBLEM IS DEFINED AS A "HARD WRITE(OR READ) 
~ ERROR.* 


8. SOFT WRITE (OR READ) ERROR = AN | INTERMITTANT FAILURE 
TO WRITE ON THE DISK. 
IF THE TEST PROGRAM DETECTS THAT IT CANNOT WRITE | 
ON THE DISKe IT WILL REPEAT THE OPERATION UP TO NINE TIMES. 
_ IF GNE OF THE TRIALS IS SUCCESSFUL», THE PROBLEM 
IS CALLED A *SOFT WRITE (OR READ) ERROR.* 


“DISK ADDRESSES ARE GIVEN IN DECIMAL FORM IN ALL MESSAGES. I.E. 
— . FROM, TO, READ ALL APPEAR IN THE FORM "CCCS* WHERE "CCC* IS THE 
CYLINDER VALUE IN DECIMAL AND *S* IS THE SECTOR VALUE an DECIMAL. 
_SECTOR *S* IS ACTUALLY SECTORS AND HEAD. 


- ADDR, 


~ 


PROG ID 
PAGE. 


15 JUNE66 


ate, 0308—-* — 
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15NOV66 
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15JUN67 | 
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5. COMMENTS 
5.1¢#*# DISK ADDRESSING SCHEME 
THE FOLLOWING IS THE FORMAT FOR THE DISK ADDRESSING SCHEME —— 


HEX WOON N Nn ON 
BITS 0123 4567 +.%89101) 12131415 
cope xxxx xccc cecc cecHsS § 
CYL. POS CNT 106 0000 0 | 
~ READ 263 1000. 0 
DOWN 842 68 & 2 i 
C = CYLINDER H = HEAD S = SECTOR X = NOT USED 


THE LOWEST CYLINDER ADDRESS IN HEX = 0000 

THE HIGHEST CYLIMDER ADDRESS IN HEX = 0657. | 

THE ADDRESSES ARE CYLINDER O, HEAD Oy SECTOR O TO CYLINDER 202, 
HEAD 1, SECTOR 3. — : 


THE ABOVE ADDRESSING FORMAT IS USED FOR ALL THE SECTOR IDENTIFICATION 
WORDS (CALLED SID). IT APPEARS ON THE DISK AND AS THE FIRST 

WORD OF DATA TO BE READ OR WRITTEN TO.OR FROM CORE. IT IS THE 
SECOND WORD OF THE FIELD ADDRESSED BY THE IOCC. (THE FIRST WORD. OF 
SAID FIELD IS THE WORD COUNT) , 


A. TO CONVERT HEX DISK ADDRESS WORD TO DECIMAL... PERFORM THE 


FOLLOWING USING SECTION *B* BELOW — 
1. FIND CORRESPONDING Cove FOR EACH N IN THE ADDRESS. 
2. ADD THE C.V.'S TOGETHER. | 
Be CoV TOTAL IS THE ACTUAL CYLINDER NUMBER IN DECIMAL. 
4. FIND CORRESPONDING SN. FOR UNITS N OF HEX ADDRESS. | 


Se SeNe IS THE ACTUAL eer ee ee = SECTOR NUMBER. 


EXAMPLE —— 
CONVERT 03BD TO DEC IMAL CYLINDER AND SECTOR NUMBERS. S82 


tlt pane FROM TABLE 








0380. CoVe SeNe 
eo 8&® @ : 
eee © © @ ee. 1 ob ae 
e @ 
eoereeecn ee 22 
@ 
 _— eee eevee 96 | 
CYLINDER 119: §& ~~ SECTOR 
DATE  O2JAN66: 15JUNE66 15NOV66 15.UN67 PROG 1D 
EC NO. 415490  415490C 


419643 420317 | PAGE 
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2315 DISK INITIALIZATION | 2315 DISK INITIALIZATION ‘ 
® 7 t : D 
® | te 
Be HEX TO DEC ADDRESS CONVERSION THE OISK SUPERVISOR ROUTINES ARE THE INTERFACE BETWEEN THE DIAGNOSTIC 
eo * MONITOR AND THE TEST ROUTIRES.e THESE ROUTINES DO THE BASIC TESTING, 
@ CKEKHKCKAKSL SERS STRSTR SLASKSKSKSTEKSEKKERESLESKLKECERT SEK SERESHEKERALESSEKRSEKESARACHESESE SESS ° ® CHECKING AND CONTROLLING FOR THE USING ROUTINES WHICH MAY INCLUDE OTHER 
* % SUPERVISOR ROUTINES AS WELL AS TEST ROUTINES. THEREFORE, THE ERROR 
* DISK ADDRESS C.Ve = CYLINDER VALUE s 2 MESSAGES OF SUPERVISOR ROUTINES POINT TO BASIC OR GENERAL PROBLEMS AND 
® s WORD IN HEX s , 6 SHOULD NOT BE DISREGARDED OR NOTICED CASUALLY. IN SHORT, ALL ERROR 
* Se-Ne = SECTOR NUMBER * | MESSAGES SHOULD BE CAREFULLY ANALYZED TO SEE HOW THEY RELATE TC EACH OTHER. 
* oe ONNN * aS : | 
e@ * ZERO NOT USED. ee ee tw NNN = HEX ADDRESS FROM # > | 8 NOTE 
® | e 26 000 TO 657 % 
s @ @ @ @ e e @ e e 2 @ td ® @e e e@ e e.|;|6.8 @ 2 e ~ s o : AN UNSCHEPULEO INTERRUPT WILL CAUSE A 
8 © — ® PROGRAM HANG CONDITION. SEE THE INTERRUPT 
. ‘ | ROUTINE. 
* ° e e s as 
@ KEKEEKKKESKSKASES SETS KKSESCCKSEKSSERSTKESKTKEKSE SLES STH SAKSESKEKEKSKKECSRSEKESSRKERLESRSSKKEL ERS ; ® AGAIN IT MUST BE SAID, "ALL ERROR MESSAGES MUST BE ANALYZED TO FIND THEIR 
* * * * | ASSOCIATION WITH EACH OTHER. * 
| * nN * N * N * m1 
® * _ CoVe * : CoV. * reo ee ee * ® 
x é * e ® a & 
2 0 = 00 * oO s rt) * Oo = O ¢ Oo s = 6 ; APPENDIX 
@ * * l= 2 * 1 = 0 + } * 9 / 
* 1 = 32 we 2s & tt 22" 0 + 2 * i NOTE 
2 s 3 ss 6 * 3 s QO + 3 s . ROUTINES ARE OT DESIGNED TO LOOP IN THE INITIALIZATION PROGRAM. 
8 * 2 = 64 * 4 = 8 * & = 0 + & * 9 j | 
* s\ 5 = 10 = 5 s O & 5 s ROUTINE O1 WRITE SECTOR IDENTIFICATION ON CYLINDERS 000 (0000) THRU 089 | 
* 3 96 * 6 = 12 * 6&6 s QO + 6 * _ (02C8) AND 111 (0378) THRU 202 (0650) WRITES ALTERNATE WORST CASE PATTERNS 
| . * 7 = 14 * 7 s= 0 + 7 * 3 > ON ALL CYLINDERS AND USES 2 SECTORS TO LOG ALL CYLINDERS THAT ARE BAD. THE 
* & s 128 * 8 = 16 _ 6 2s |] + 0 s ; CYLINDER ERROR TABLE (C.E-Te)IS LOCATED ON SECTOR ID 0638 AND O063F. 
* * 9 = 18 * 9 = 1 + 1 * : 
8 * 5 ss 160 *. A s 20 * As | + 2 2 : ? ROUTINE O2 VERIFIES CORRECT ADDRESSES ON ALL CYLINDERS (EXCEPT 90 = 110 
* s B s 22 * 8 « } + 3 & INCLUSIVE). THIS IS A REVERSE READ. STARTS AT CYLINDER 202 AND READS TO 
* 6 s 192 * C = 24 * C « } + 4 = _§ HOME ADDRESS 0000 (HEX). 
$ * * D = 26 * D = 2) «¢« § s B : NOTE 
s s E # 28 _* E = 1} + 6 s 
* * F 2 30 * F ss } + 7 x a ANY ERROR TYPEOUTS DURING ROUTINE 2 WILL CAUSE THE INITIALIZATION 
8 * 7 * Ps :  ] PROGRAM TO BE RESTARTED. THES® TYPEQUTS COULD INDICATE IMPROPER SEEK 
CRKKEEKES EERE EREESSSESREKRECSRACKES SSE SAKKESKEKSK ESSER SR ERKS KESKSESSERERSERSKSES SESS : AND WRITING OF THE SECTOR ADDRESS+ THEREFORE TO ENSURE PROPER : 
P - INITIALIZATION THE PROGRAM IS AUTOMATICALLY RESTARTED. IF ERROR 
é : : 8 MESSAGES WITH ROUTINE 2 DESIGNATED KEEP REOCCURRING, THiS INDICATES 
5.2%%% ROUTINES , IMPROPER SEEK INCREMENTING FROM CYLINDER WU TO 202. INVESTIGATE SEEK 
| | . ERRORS BEFORE TRYING TO INITIALIZE THE PACK. 
¢ IT IS THE INTENT OF THIS SECTION TO DESCRIBE THE FUNCTIONS OF EACH TEST ® 
ROUTINE AND THE DISK SUPERVISOR ROUTINES. THE FOLLOWING ARE THE IMPORTANT ROUTINE 03 WRITE THE CE SECTORS WHICH CONTAIN THE CYLINDER ERROR TABLE 
DISK SUPERVISOR ROUTINES— = = DATA. THE CE SECTORS ARE IDENTIFIED BY THE WORD * CEDC * FOLLOWING THE 
8 | . ; 2 SECTOR I1De THE SECTOR PATTERNS ARE —— 1313 ON SECTORS 052,55, AND 7 AND 
PROGRAM LISTING LABEL FUNCTION E5E5 ON SECTORS ly3s%e AND 6e THE CeEoTe IS PRINTED AT THE END OF THE 
DCARM RETURN ARM TO HOME 7 PROGRAM IF THERE ARE ENTRIES IN ITe | , 
e DEXEO SETUP AND EXECUTE THE IOCC. . 8 
DCABP BYPASS CYLINDERS 90 THRU 110. NOTE 
DOCROY FILE READY, NOT BUSY AND NO ERRORS. a “ ; 
| DCOSW SENSE DSW AND SAVE IT. ~ 8 IF AN ERROR OCCURS DURING THIS ROUTINE IT INDICATES IMPROPER CE 
DCRTN ROUTINE NUMBER AND PROGRAP. CONTROL ROUTINE. DATA SECTOR», AN ALTERNATE SHOULD BE SELECTED VIA PATCH CARDS. 
DCSK SEEK SUBROUTINE. a i IF PATCH 1S USED, PACK SHOULD INDICATE SAME. THE 2310 PROGRAM 
|} DCWR WRITE SUBROUTINE. ae | MUST BE PATCHED THE SAME AS THE 2515 PROGRAM IF THE 2310 PROGRAM 
DCRD READ SUBROUTINE}. IS TO BE RUN. SEE DM DOCUMENTATION FOR PATCH DETAILS. 
COTRT COMMON DATA TRANSFER ROUTINE. al 
8 NTRPT INTERRUPT ROUTINE. ~ | ®P 
, START MONITOR CONTROL RETURN. | j 
END MONITOK END ENTRY. | | Pan 
@ i a 
8 a ® 
@ . . 8 
8s t a 
; DATE O2JAN66 I5JUNE66 1L5N0VS6 15JUN67 ~ PROG ID 0308-s 
g DATE O2JAN66 15JUNE66 I15NOV66 15JUN67 PROG ID 0308-% tT ? EC NOw 415490 4415490C 419643 420317 PAGE - O007A 
EC NOw 415490 415490C 419643 420317 PAGE o007 
8 | t 5 
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0000 


0160 
0161 
0162 
0163 
0164 


0155 
0166 
0167 


Ol7A 
o1eA 
019A 
O1AA 
O1BA 
O1CA 
O1DA 
OLEA 


os0C 
O050D 
O5DE 
OSOF 
O5E0 
O5E1 
O5E2 
OSE3 
O5E4 
OSE5 
O5E6 
OSE7 
O5E8 


COCOK KO OOC0O0C0CO 


DATE 
EC NO. 


038 
000 
0000 
9000 


0000 


FFEF 
0000 
0671 
O5EC 
0000 
0000 
0600 
FFFF 


O2JAN66 


415490 


SCRECL ACESS SKSSESSAESLESSATSHESE SSE SHEER ES SEKSHESESHERE 


& 
* 
* 
* 
x 
+ 
& 
™ 
* 
* 
* 
* 


* 
Bee 
* 
Fee 
* 
BEG 
STA 
ERR 
LOG 
END 
* 
Bee 
* 
Bee 
* 
RTN 
ERL 
LOG 
» 
See 
* 
Fee 
* 
ILO 
It1 
IL2 
IL3 
IL4 
ROT 
ROK 
SVK 
* 
ee 
= 
Ree 
ro 
PID 
RID 
RAD 
Swo 
SW 
SW2 
SW3 


MLS 
LIV 
MLN 
TER 
x 
Fee 
* 
Fee 
* 


OlJ 
415 


ORG *+1500 


THIS ENGINEERING CHANGE REFLECTS MAJOR 
CHANGES TO THE DIAGNOSTIC MONITOR. PREVIOUS 


TESTS WILL NOT RUN WITH DIAGNOSTIC MONJTCR II. 


THIS TEST WILL NOT RUN WITH PREVIOUS MOMITORS. 


TESTS PRIOR TO EC 419643, DATED NOV 15, 1966 
WILL NOT OPERATE PROPERLY WITH DIAGNOSTIC 
MONITOR Ile | , | 


SSEKKKKCKSEKRSKSKCKK SS SESE KKSCSLSEKCEKCKRKKKKLE KKK KKKEKKE EH 


* 


COSHH CSE SES SSE SCCCEESEELE SEES eCccoreCeose® 
EQUATE TABLE — ENTRY x 
Coe ooerecececececsrcecoecererercccccocconooek® 
m 
IN EQU 4160 BEGIA RT 
RT EOUW 4161 MONITOR RT 
OR EQU 4162 ERROR-PRINT RT 
EQU 4163 STATUS- PRINT RT 
EQU 1164 MON: TOR END RT 
x 
Coeoreeccescccosceccosrocesecococooccocesece® 
EQUATE TABLE — CONTROL * 
COCCHCE SOE SOSE OSES LES LEL OE SEeDECCSESESeceee® 
* 
SW E£OU 4105 RT START SWITCH 
CK EOU 4166 LOCK ON ERROR CTRL 
BY EQU 4167 1/0 TW SUSY SWITCH | 
* 


SCOSSHSEEHSESOESEEOSSESEOSOOSEHELELSECLESEe% 


EQUATE TABLE - XFER VECT * 


COSCSHOSES OSHS SSESEESOSEHOSEEESESCCEZ.OES&ECOOS 
. * 
EQU LTA INTERRUPT LEVcL O 
EQU 418A INTERRUPT LEVEL 1 
EQU 4194 INTERRUPT LEVEL 2 
EQU JAA INTERRUPT LEVEL 3 
EQU JiBA INTERRUPT LEVEL 4 
Y EQU JiCA CNSL PRNTR REQUEST 
B EOU JiDA KEYBOARD REQUEST 
B EOU LEA KB SERVICE REQUEST 
* 
COO Ce SESE SOC ESCSOSS SE ESECCSLECOCCCeeooee® 
PROGRAM CONTROL TABLE * 
COSCO oSSESHOSASESHESESSEOSEOCOCESESCOCSOSSECSESSECe® 
x 
DC 0368 PROGRAM ID 
OC 0 ROUTINE ID 
OC - 0 ROUTINE ADDRESS 
DC 8) PROG CTRL FLD 
DC Oo ROUT CTRL FLD 
DC JFFFF FILE CTRL FIELD 
DC 0 OPEN CTRL FLD 
OC OCTL2 LOOP NO RESET 
DC INITL INITL/RESTART ADDRS' PM 
CF DC 0 INITL-LOG BUSY PM 
DC 8) LOST INTERRUPT ADDR PM 
OC O MAIN LINE ENTRY PM 
4 OC SFFFF TERMINATOR 
* 


Yr rrerererererererrerrerereerreeererery ey YY i 
INITIALIZATION ROUTINE * 


POSSE ECOSCES Eo ESeECE SELES OOSOC&CCSESeERCCCOCSE* 


* 


15JUN67 
420317 


1SNOV66 
419643 


UL66 
£90C 


PART NO. 2191216 


PAGE | 


30800030 
30800040 
30800050 
30800060 
30800070 
30800080 
30800090 
30800100 
30300110 
30800120 
30800130 
30800140 
36800150 
30800160 
30800170 
30800180 
30800190 
30800200 
30800210 
30800220 
30800230 
30800240 


30g00250 | 
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O5E9 00 44800160 


OSEB 


OSEC 
OSEE 
O5EF 
O5FO 


O5F2 
O5F4 
OSF5 
OSF6 
O5SF7 
O5F9 
O5F5 


OSFD 
OSFF 
0600 
0601 
0602 
0604 
0605 
0606 


0607 
0609 
O60A 
060C 
060D 


O6OF 
0610 
0611 
0612 
0613 
0614 


(0615 


0616 
0617 
0618 
0619 
O61A 
0618 
O61C 
061D 


DATE 


1 


ol 


Ci 


01 


01 
01 
00 


pas 


coooco0o$c$co 
pune 


ooo°coe 
thet 


oocooo0oo0o0o0ocncooooco 


EC NO. 


o50C 


67000940 
COFz 
FOFS 
4C200607 


66000AC0 
4328 
A003 
3033 
650005EC 
6DOCO5E7 


44800161 


67000940 
C300 


319 


CODF 
F4000655 
4820 
TOE6 
TO6A 


67000940 
10A0 
C40005E1 
E3SF1l 
04000655 


4820 
7001 
700C 
4804 
7014 
1801 
4804 
7018 
1801 
4804 
7022 
1801 
4804 
1029 
7000 


O2JAN66 


415490 


STEKESCKSRKRSKSSSRSEKSESKSKLKKLKSSKKSKKLKSS SSE KSS 


EXEOD BSI I BEGIN. BR FOR INIT . * 
| DC PID © ~~ DISK 10 ADDR © me 
SSKKESLKKAKSKSEKKLEKKSKKKLSECL SEK KKKCKKSSREKKHKRKTSKS 
* +. 
Reoccccccccccccccccsccccccececesescccecscscco® 
* ~ RESTART ROUTINE * 
Reccccccccccccsscccccscccccvccovcocccscccscce® 
ra 
- * 
ere ee a er ee ee ee a tO 
* INITIALIZATION RT x 
Orr TT TrTeTTTTTT TTT 
* * 
INITL LOX L3 DCT SET X3 CTRL ADDR 
LD SW2 GET FILE CTRL WORD 
EOR TERM CHECK FOR ENTRY 
BSC L  FILEXs2Z BR TO PROCEED 
Zz 
LDX L2 SELDU GET ALPHA PHRASE 
BSI 3 FORMO=-DCT BR TO MSAG FORM O 
DC 4A003 -- MSAG = -= 
WAIT X /33 WAIT FOR SWITCHES 
LOX L121 INITL GET ENTRY ADDR 
STX Lil MLN - SET IT IN MLSCF 
BSI I START RETURN TO MONITOR 
* : * 
Prd walalas erase ab Sa Sale Saw we wwe he ase eee cue weee™ 
* , RESTART LOOP CTRL RT * 
Keoccceceeceeceeesesecsesesesececoseccecveesecsee® 
* 
RLPGM LDX Lt3 OCT SET X3 CTRL ADDR 
LD. 3 0 RESET A REG 
STO 3 25 RESET RT CTRL 
LO SW2 GET SW2 DATA 
EOR tL HLDSK TEST WITH LAST DATA 
BSC 2 SKIP IF EWUAL 
MDX INITL BR TO INITIALIZATION 
MDX DCTL2 BR TO LOOP CONTROL 
* x 
Cocco eeeeeSeSSSOSSSSSSOSSSOHOSEESLSSEEOSESOOSE 
@ FILE SEL + SETUP TR * 
Bow 6060606 686660006 065000 6 00606066 ECOSOC EO 
* 
FILEX LOX L3 DCT SET X3 CTRL ADDR 
SLT 32 CLEAR A + Q REG 
LD Lt SWw2 GET FILE SEL DATA 
AND 3 -15 PASS ONLY GOOD BITS 
STO LCL ALDSK SAVE IT IN SEL TBL 
i 
BSC z TEST FOR MAIN FILE 
MDX *+)} SKIP NOT MAIN FILE 
MDX FILEO BR TO MAIN FILE SUR 
BSC. - #E SKIP FOR NXT TEST 
MDX FILE] BR TO FILE SETUP RT 
SRA 1 SHIFT FOR NXT TEST 
BSC E SKIP FOR NXT TEST 
MDX FILE2 BR TO FILE SETUP RT 
SRA 1 SHIFT FOR NXT TEST 
BSC bs 5. SKIP FOR NXT TEST 
MDX FILES BR TO FILE SETUP RT 
SRA 1 SHIFT FOR NXT TEST 
BSC E SKIP FOR NXT TEST 
MDX FILES BR TO FILE SETUP RT 
MDX FILEO BR MAIN FILE Q. CTRL 
x ™* 
* FILE O SEL RT * 
& x 
| 
O1JUL66 1S5NOV66 1SJUN67 
415490C 419643 420317 


SE 


SE 


MC 
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2315 DISK INITIALIZATION ) 2315 DISK INITIALIZATION 
‘) ) 

—Q61E 01 €4000650 FILEO LD & HFST GET AREA CODE 30801390 & SERS *% PSEUDO REQ/REL DEVICE *#* 30802070 
0620 01 D40006DD STO bt OVA SAVE IT 30801400 s. * | 30802080 
0622 0 0305 sTo 35 SAVE 1T - 30801410 ) 0661 0 0000 RELDY DC 0 ENTRY / EXIT _.30802090 
0623 O01 660006DE LOX L2 NTRPT GET NTRPT ADDR 30801420 7 0662 01 74020661 MOX LE RELDVe2 ADV EXIT ADDR - 30802100 
0625 00 6E00019A STX L2 IL2 SET ADDR IN MON TBL 30801430 0664 01 4C800661 BSC IT RELDV BR TO USER 30802110 
0627 0 702E MDX SACTL BR TO SETUP 30801440 7 i a * | | : 30802120 

* et es | * 30801450 es é 30802130 

% FILE 1 SEL RT e 30801460 0666 0 0000 REQDV DC 0 ENTRY / EXIT 30802140 

| - | * 30801470 0667 01 74040666 MDX L REQDVs4 ADV EXIT ADDR 30802150 
0628 O1 €400065} FILE, LD Lt MFST+2 GET AREA CODE. ot 30801480 0669 01 +C800666 BSC I. REQDV BR TO USER 30802160 
062A 01 D400060D ~$TO L OVA SAVE IT 30801490 € | ae 30802170 

062C 0 0305 . $70 35 SAVE IT 30801500 ) e | | w - 30802180 
062D 01  660006DE LOX L2 NTRPT | GET NTRPYT ADDR . ~ 30801510 Feccccccvccssceccecreoccesecoercesceccesoeeee : 30802190 

 062F OC 6£€000199 STX L2 It2-2 SET ADDR IN MON TBL 30801520 & MAINLINE PROGRAM CTRL & 30802200 
0631 0. T7024 . MDX SACTL | : BR To SETUP 30801530 ) i Tocoesccccvovesevccccsececcccsececvccccccece® 30802210 
7 : ce te - | " 30801540 a : : . eo ey ece’ 

%* ‘FILE 2 SEL RT * 30801550 0668 0 6116 DCTRL LDX 1 22 _ SET CLEAR LOOP XTNT SE 30802230 

Soe 4 ee * _ * 30801560 ) 066C 0 1010 SLA 16 CLR ACCUM } . 30802240 
0632 01 C4000652 ‘FILE2 LD LL MFST+2 ‘GET AREA CODE - 30801570 066D 01 05000945 OCTL1 STO Li DCT+5 RESET DCT FIELD. 30802250 
0634 01 D40006DD STO L OVA, SAVE IT 30801580  O66F O TLFF. MDX 1 =21 DEC LOOP CTRL _ 30802260 
0636 0 0305 STO. 35 | SAVE IT 30801590 ) (0670 0. 7OFC . MDX DCTL1 BR LOOP 30802270 
0637 01 660006NE LOX 2 NTRPT GET NTRPT ADDR 30801600 at eee | a ee ee os 30802280 
0639 00 6€000198 STX L2 IL2-2. - SET ADDR IN MON TBL 30801610 , 0671, 01 67000940 DCTL2 LOX L3 OCT _.$€T X3 ADDR CTRL SE | 30802290 
063B 0 701A MDX SACTL BR 4 SETUP | 38801620 , ee eae % , | : 30802300 
: fe | ae 30801630 0673 0 C300 LD = («3 «O CLR A REG 30802310 
m a FILE)3 SEL RT =—s_ | 30801640 0674 01 04000842 STO tL ODCARM—-1 | CLEAR CTRL CTR. - 30802320. 

8 ot a aa : 30801650 : 0676 0 030A STO 3 10 - SET PRESENT ADOR 30802330 

- 063C 01 €4000653 FILES LD L ‘MFST+3  - GET/AREA CODE 30801660 0677 0 C3FB8 LO 3-8 GET SCI OF ONE 30802340 
-063E 01 D40006DD STO L OVA ‘SAVE IT 30801670 0678 O 0308 STO 312 ‘SET DESIRED ADOR . 30802350 
0640 0 0305 - STO 35 SAVE IT 30801680 } | : te | | eer or 30802360 
-0641 01 660006DE LOX 2 NTRPT GET NTRPT ADDR ' 30801690 0679 0 43AE BSI 3 -82 BR TO SEEK SuB RT sc 30802370 
0643 00 6£000197 “STX L2 IL2-3 SET ADDR IN MON TBL 30801700 2 | — % ; r Ban cette . 30802380 
0645 0 7010 MDX SACTL BR TO SETUP 30801710 ) 067A 0 4380. | BSI 3. -128 DCARM RT Sc 30802390 

7  & | | | % 30801720 - | ae eo | | 2 20802400 
# FILE 4 SEL RT a 30801730 | 067B 01 C40005E0 OCTL3 LD t Swi GET FNC SW 1 INFO 30802410 
| a — % 30801740 ) 067D 01 4C200698 BSC Lk OCTL5sZ2 BR IF RT NUM PRESENT. 30802420 
0646 01 C4000654 FILES LDL MFST+4 GET AREA CODE - 30801750 aS, ~ a , | 30802430 
0648 01 D40006DD STO L OVA SAVE IT = | - 30801760 : | O67F 01 74010959 MDX & OCT+25,1 ADD ONE TO RT NUMBER 30802440 
064A 0 D305 STO 03 5S SAVE IT 30801770 : ) | - ie 4 30802450 
064B 01 660006DE LDX L2 NTRPT GET NTRPT ADDR 30801780 0681 01 66800959 DCTL4 LOX 12 DCT+25 — GET RT NUMBER 30802460 
064D 00 6£000196 STX Lt2 IL2-4 SET ADDR IN MON TBL - 30801790 ; 0683 O1 6£00050D STX t2 RID | SET RT NUM IN MLSCF 30802470 
064F 0 7006 : MOX * SACTL BR TO SETUP - 30801800 ) 0685 02 C6000698 LD =o L2.:s«DDSA=2 GET ROUTINE ADDR 30802480 
* 7 ‘<a 7 ee. 30801810 0687 O1 D40005DE STO -L RAD SET ADDR IN MLSCF 30802490 
EE eR ee ET OF A EMS - 30801820 0689 00 D4000165 STG L RTNSW SET RT NOe PRNT ADDR 30802500 
a SW2 FILE SELECT TBL - 30801830 ) 048B OL 04000693 -$TO Lt OCTL6-1 SET RT PIVOT ADOR - 30802510 | 
Meceescccccccscccvcccccscsccccccscsccsccscce® 30801840 —068D OL 66000694 LOX L2 DCTL6 GET ENTRY. ADDR 30802520 
* OS 30801850 O68F 01 GEO005ES STX 2 MLSCF SET ADDR IN CTRL FLD | 30802530 
0650 0 2000 MFST DC ~ £2000 PRTY 1 CSL O ILSW O 30801860 } 0691 00 44800161 BSI I START BR TO MONITOR xm 30802540 
9651 0 8800 pe --£8800 2 1 1 ' 30801870 :. eam = | | | eae. ay 30802550 
6652 0 9000 OC /9000 3 1 2 30801880 | 0693 0 0000 DC 0 RT PIVOT ADDR HOLDER - 30802560 
0653 0 980C DC 79800 4 L- 3 30801890 0694 01 67000940 DCTL6 LOX L3 DCT SET X3 CTRL ADDR SE 30802570 
0654 0 A000 DC 74000 5 1 4 30801900 0696 01 4£800693 BSC I OCTL6=-1 BR TO RT ENTRY 30802580 
0255 0 0000 HLDSK OC | tf) : SW2 HOLD DATA WD 30801910 ae i & 208 | 30802590 
% : | | | 30801920 0698 0 E3FD . DCTLS5 AND 3 =3 PASS MAX RT CNT 30802600 
a SET IL AREA CODE CTRLS 3080193 0699 0 D319 STO 3 25 SET RT NUMBER IN DCT 30802610 
: A SS ee age Oe 30801940 oo 069A 0 70E6 MDX DCTL4 BR TO CONTINUE 30892620 
0056 0 C327 SACTL Lo 3 39 GET SENSE RESET 30801950 1 3 ie i _* 30802630 
0657 0 EBO5 QR 3 5 OR IN Aele 30801960 Rececosseceseccscosccscecevcesveesccnseccece® 30802640 
0658 0 0388 STO 3 69 SAVE IT 30801970 & DISK DIAG START ADCR * 30802650 
0659 0 €326 LD 3 38 ; GET SENSE. INST 30801980 ' ) | Resasesicdseweetas oes saies sie teseC ee ssipecsee ese” 30802660 
0654 0 EB05 OR 35 OR IN A.Ce 30801990 € | | 30802670 
0658 0 0380 STO. 3 -~67 SAVE IT 30802000 4 0698 1 O068D | Dc DC EOD. | NO RT-RETURN TO MON 30802680 
OO * a 30802010 ) | 069C 1 OC73 DDSA DC FOLAA ~~ ‘DISK TEST = 1. 30802690 
065C 01. €50005FD - LOX LL RLPGM | GET RESTRT ADDR 30802020 | 0690 1 OCC7 Oc FO2AA DISK TEST = 2 30802700 
065E 01 6DO005E4 STK LL MLSCF~1 0 SET_IN PGM CTL TBL 30802030 a 069E 1 OCF2 DC FO3AA | DISK TEST = 3 30802710 
. ; * | en Bai 30802040 YG 069F 1 O06BD DC OCEOD NO RT-RETURN TQ MON 30802720 
0660 0 700A MDX DCTRL BR TO START EXEQ PGM 30802050 06A0 1 O68BD . | OC DCEOD “NG RT-RETURN TO MON . 30802730 
eee : a a 2 30802060 | _ | | PP oaet _ | Lt seog ae 30802740 
| eS 
DATE O2yA%66 O1JUL66 15NOV66 15JUN67 PROG 1D 0308-3 . DATE U2JAN66 O1JUL66 15NOV66 15JUN67_ PROG 1D 0308-3 
EC NO. ~ 415490 415490C 419643 420317 PAGE 2 : EC NOe . 415490 415490C 419643 420317 PAGE 2a 
| ok “ene ne | | wir 
1 
7 { 7 . Z es 
oh _ as “pone ae aa 3 ooo eo ane ro wore a re ‘a ae f Sy ry, oes 
poe PP AOA TS SS OF OO Ce Sa ae aE ee ee 
Soa” ene NU? ed caer Nea A a NS Se — Se ae : : 





O © 
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2315 DISK INITIALIZATION 2315 DISK INITIALIZATION 
) 

Vo ccccccececeeesevesesececceesessceccsccecece® 30802750 FP eccccccec cece eeeseeeesseeceseseescoeseoceoseose® 30803430 
* TEST RETURN CONTROL * 30802760 2 ; * * 30803440 
Roccceseececsecesesessevessececsesvecsessecesee® 30802770 060D 8) 2000 DVA DC 42000 DISK AREA CODE ID 30803450 
* * 30802780 : * : 30803460 
OoAl 01 C40005E2 DCRTIN LD tL  SW3 GET Sw FNC 3 DATA SE 30802790 Z O6DE 0 0000 NTRPT DC ) | 30803470 
06A3 0 1801 SRA 1 SHIFT TO TEST BIT 14 30802800 O6DF 0) 67000940 LOX L3 OCT SET X3 CTRL ADDR SE 30803480 
O6A4 01 4&CO406A7 BSC L OCNHMeE BR IF 814 IS A ONE 30802810 * 30803499 
06A6 0 4380 BSI 3 -128 BR TO DCARM RT SC 30802820 O6E1 O OBBA x1Io 3 -70 SENSE RESET OSW 30803500 
O6A7 01 C40005E0 DCNHM LD L SWl_ GET SW FNC 1 DATA 30802830 O6E2 0 0308 STO 3 8 SAVE IT IN TBL 30803510 
O6A9 01 4€200698 BSC L OCTL5eZ BR IF RT NUM PRESENT 30802840 * 30803520 
* 30802850 O6E3 0 C310 LD 3 29 GET RETURN ADDR 30803530 
O6AB O C319 LD 3 25 GET ROUTINE 1D NUM 30802860 O6E4 01 D40005E7 STO Ct MLN SET IT IN MLSCF 30803540 
O6AC O =3FD EOR 3-3 TEST FOR LAST RT 30802870 O6E6 01 4C1B06FO BSC L NTRERe+t=- BR TO ERR RT IF ZERO 30803550 
O6AD 01 4C20067B BSC L DCTL3eZ BR TO CONTINUE TESTS. 30802880 * 30803560 
* 30802890 O6E8 O 1010 NTRST SLA 16 CLR ACCUM 30803570 
O6AF 01 74010958 MDX L ODOCT+2491 ADD TO PROG PASS CNT 30802900 O0O6E9 O D306 STO 3 6 CLR FUNCTION 30803580 
06B1 0 1000 NOP 8) SAFTY NOP 30802910 O6EA O D318 STO 3 27 CLR LST NTKPT CTR 30803590 
* 30802920 O6EB O D310 STO 3 29 CLR NTRUPT ADOR DCT 30803600 
% 30802930 O6EC 01 D40005E6 STO t LIV CLR LST NTRPT RT XFR 30803610 
0682 0 1010 SLA 16 CLR ACC 30802940 * | 30803620 
0683 0 0319 STO 3 25 CLR RT ID NUMBER 30802950 O6EE 01 4CB006DE NTRXT BSC I NTRPT EXIT TO MONITOR Sx 30803630 
* 30802960 *. 30803640 
O6BS 0 4377 BSI 3 FORMS-DCT BR TO MSAG FORM 5 MC 30802970 O6FO O TOFF NTRER MDX NTRER NO ML MLSCF ADDR PH 30803650 
0685 0 A001 OC /A001 —~ MSAG = -- 30802980 : # * 30803660 
x , 30802990 Fecccccceccccecccccccesesesecvececoccseosevecce™ 30803670 
O6B6 00 44800164 OCRND BSI I END BR TO MONITOR END RT PX 30803000 LOCK ON FNC CHECK RT m 30803680 
* : 30803010 ee err ee?) Tr eT er ee ee ee ee ee TC CY us 30803690 
0688 01 66000A7D DCANH LDX L2 ARMNH GET MSAG REMARK 30803020 * % 30803700 
O6BA O01 6EQO09EA STX L2 ALPHA SET IN TWOPA 30803030 O6F1 0 0000 ‘ LCKAF DC 0 ENTRY ADDR SE 30803710 
O68C 0 7002 MDX DCEOD+2 BR TO MSAG XFER 30803040 O6F2 01 668006F1 / LDX 12 LCKAF GET LOOP ADDR. 30803720 
O68D O1 66000A78 DCEOD LDX tL2 NORTN GET REMARK ADDR 30803050 ! * 30803730 
O6BF 0 4328 BSI 3 FORMO-OCT BR TO MSAG FORM O “MC 30803060 O6F4 01 C40005DF LD tL Swo GET FNC O 30803740 
06CO O AOED DC /AOED — MSAG ® -—=- 30803070 O6F6 OO ECO00166 OR L ERLCK OR IN MONITOR CTRL 30803750 
06Cl O TOF4 MDX DOCRND BR TO END PROGRAM 30803080 O6F8 O 1805 SRA 5 - SHIFT FOR BIT 10 30803760 
* * 30803090 O6F9 01 4COO06FB BSC L * BR TO NSI 30803770 
PeccccccccccccesccccscscccesecseccesccocsseeXk 30803100 O6FB O01 740106F1 MDX t LCKAF>1 | ADD FOR RETURN ADDR 30803780 
* LOST INTERRUPT RT * 30803110 O6FD 01 4C8006F1 BSC I- LCKAF RETURN TO USER ~ §X 30803790 
Keccccccccccccccceecesccescscccsscccsocecoce® 30803120 * & 30803800 
* * 30803130 Soc ceseSSSSSSSOSSHSSHSHEESHHSEESOSSCELESOEEOO* 30803810 
06C2 01 67000940 DLNRT LOX L3 DCT SET X3 CTRL ADOR SE 30803140 * READ WRITE ADDR CK RT % 30803820 
06cC4 O C318 LD 327 GET TIMER CNT 30803150 Toccccceccceseseeseeecesessecsccescsevscocsssoscoo® 30803830 
06C5 0 83FF A 3 -] ADD ¢1 TG CNT 30803160 * : mm 30803840 
06C6 O D318 STO 3 27 SAVE NEW CNT 30803170 O6FF 0 0000 RWACK DC 0 ENTRY 30803850 
0O6C7? O F31C EOR 3 28 TEST FOR LIMIT 30803180 0700 01 C400008D LD tL CYLEX GET CYL ERR CAT SE 30803860 
06C8 0 4820 BSC Z Qe EQ TO LIMIT 30803190 0702 01 4C18070D BSC L RWCKX9+—- BR OUT IF ZERO 30803870 
06C9 O TOCA MDX DLNR1 NO, PROCEED 30803200 0704 O01 65800D8D LOx I1 CYLEX GET tOooOP COUNT 30803880 
% : 30803210 0706 01 C5000DA1L RWCKA LD L1 CYLET-1 GET LAST ADDR 30803890 
O6CA O OBBA x10 3 -70 SENSE DSW 30803220 0708 O F308 EOR 3 117 TEST AGAINST DESTRED 30803900 
O6CB O D308 STO 3 8 SET DSW IN DCT 36803230 0709 01 4C18070F BSC L RWCKT¢+— BR IF EQ —— BAD ADDR 30803910 
O6cCC O 4339 BSI 3 FORM2-OCT BR TO MSAG FORM 2 MC 30803240 070B O TIFF MDX 1-1 | DEC CTRL 30803920 
O6CD O €E001 OC /€001 —~- MSAG = -— | 30803250 070C OQ TOF9 MDX RWCKA Loop 30803930 
O6CE O 0000 OC 0 NO ERROR LOOP ADDR 30803260 * 30803940 
* 30803270 O70D 01 4C8006FF RWCKX BSC I RWACK RETURN TO USER SX 30803950 
O6CF O 1010 SLA 16 CLEAR ACCUM 30803280 . * 30803960 
0600 9 0318 STO 3 27 CLEAR LOST NTRPT CTR 30803290 O7OF O1 66000A6B. RWCKT LDX. L2 ARIET GET ALPHA STQTEMENT 30803970 
0601 0 438E 6SI 3-114 RELEASE RT SC 30803300 O711 01 6EQOOSEB | STX L2 REMRK SET IT IN TWOPA 30803980 
O6D2 0 4386 BS] 3 -l22 BR TO RE-ZERO ARM SC 30803310 0713 O01 74040974 MDX tt FORM143-e4 ADD TO FRINT CTRL 30803990 
0603 0 T7O0AD MDX DCTL4 BR TO RE-TRY ROUTINE SX 30803320 0715 0 C30B LD 3 11 GET DESIRED ADDR 30804000 
x 30803330 0716 0 4399 _. BSI 3 -103 BR TO CONVERT IT SC 30804010 
06D4 0 C310 OLNR1 LD 3 29 GET NXT MLN ENTRY 30803340 0717 O01 D4&0009EE STO LL MSG+2 SET ADDR IN TWOPA 30804020 
06D5 O01 4(.1806DB BSC -L ODLAND,+—- BR O —- NTRPT OCCURED 30803350 0719 0 4331 BSI 3 FORM1-DCT BR.TO MSAG FORM 1 MC 30804030 
O6D7 01 670006C2 LOx C3 OLNRT GET LST NTRPT RT ADR 30803360 O71A O E004 DC /E004 “~~ MSAG = -- 30804040 
O6D9 O1 6FOOO5ES6 STX L3BLIV SET IT IN MLSCFE 30803370 071B QO 90000 DC. 0 NO ERR LOOP ADDR 30804050 
06DB 00 44800161 CLAND BSI ‘I START BR TO MONITOR XM 30803380 O71C O1 74&FCO974 MDX LE FORM143e-4 SET PRNT CTL TO STO 30804060 
* 3 . 30803390 * . ' 30804070 
a & 30802400 O71E 0 C319 LD 3 25 GET RT EXEQ NUMBER 30804080 
Reccccccccccsecceseccsccsccccsecsceoscosscoe® 30803410 O71F O- F3FD . EOR 3-3. TEST FOR RT 3 30804090 
* : DISK INTERRUPT ROUTINE * 30803420 0720 01 4C18072F BSC L RWRT39+4- BR TO SET RT 3 RETRN SX 30804100 

DATE O2JAN66 O1JUL66 15NOV66 15JUN67 PROG ID 0308-3 DATE O2JAN66 O1JUL66 15NOV66  15JUN67 PROG ID 0308-3 
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2315 DISK INITIALIZATION 


0722 
0723 
0724 
0725 
0727 
9728 
0729 
O72 
072C 
072D 


~~ 


eooooocoee 


© 
pos 


O72F 
0731 
0733 
0734 
0735 


o ooooo 
fut te 


0736 


0737 
0738 


0739 
O73A 
0738 


073C 
0730 
O73E 
O73F 
0740 
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0743 
0745 


0746 
0748 


0749 
0748 
074C 
074D 
O74E - 
OT4F 
0750 
0751. 


0753 
0754 


Omo ooco00eocono 80 900 8S 80e¢6oo 900 0 © 


0756 0 
0757 0 
0758 0 


DATE 


EC NO. 


C308 
1803 
1003 
4C1806Al 
93F8 
EBF9— 


D308 


65800CF1 
T1F9 
64000CD7 


66000A9C 
6EQOO9EA 


(4328 


£077 
0000 


4396 


7004 
40C6 


1010 
D3E0 


—O3DE 


C323 
D306 
D3D0F 
C308 
D4000AC6 


406D 


74010951 
1900 


44000705 
7002 


740108ER 
C315 
83DE 
D315 
C3is 
83E0 
D314 


&40006F 1 
0737 
4CB8008EB 


7001, 


40A7 
1010 


-~ 


O2ZJAN66 
415490 


* a 
LO 312 GET CURRENT ADDR 
SRA 3 SHIFT RIGHT HD-SECT 
SLA 3 “SHIFT LEFT HD-SECT 
BSC Lt ODCRTN»+— END RT BR IF ZERO 
s 3-8 DEC DISK ADDR BY 1 
OR 3-7 SET HI SECT ADDR 
STO 311 SET IN DESIRED ADDR 
LDX I1 FO2XB GET CURRENT CTRL CNT 
MDX 1-7 | DEC FOR ONE TOT CYL 
LDX L FO2AC+5 BR TO CONTINUE RT 2. SX 
* 7 
RWRT3 LDX L2 CECAB GET MSAG REMARK 
STX L2 ALPHA SET IN TWOPA _ | 
BSI 3 FORMO-DCT .BR TO MSAG FORM O MC 
OC /E07T7 -- MSAC = -- 
DC 0 NO ERR LOGP ADDR - 
* | . a 
BSI 3 -106 BR TO MONITGR END Px 
=m , 4 ky 
& bf 
ee ee re roe a ee ee ee re ee eee 
* DISK WRITE ROUTINE * 
Teccccccccccecsccesccesesesssesvcscccesccocet 
* | oy ee 
DCWR HDX DCW10 BR / NOP SWITCH © SE 
* °.; — 
BSI RWACK RD/WR ADDR CK RT SC 
& es . 
am SLA 16 CLR A REG 
STO 3-32 - RESET SFT ERR CNTR 
STO 3 ~34 RESET HRD ERR CNTR 
3 7 
DCW10 LD 3 35 GET WRITE FUNCTION 
STO 36 SET IT IN OCT 
STO 3 =-33 MEM FNC HOLDER 
LO 311, GET DESIRED ADDR. 
| STO t OCDA+i SET IT IN 1/0 ADDR 
s Oe 
BSI COTRT CMN DATA XFER RT SC 
MDX t OCT+1791 ADD TO TOTAL WR CTR 
NOP oO SAFTY NOP | 
m . 7 
BSI t CDTSN BR TO CK DSW WORD Sc 
MDX ~OCWEL | WRITE ERR BR RETURN 
t 4 can , 
MDX L DWRel ADD TO EXIT RTN OK 
OCWEL LD =_- 33 21 GET TOT HRD WR ERRS 
A 3 -34 ADD NEW HRD ERRS_ 
STO 3 221 SAVE NEW TOTAL 
LO 3 29 GET TOT SFT WR ERRS 
A. 3 32 ADD NEW SFT ERRS 
STO 3.20 SAVE NEW TOTAL 
* P 
BSI t LCKAF BR TO LOOP ANY FNC SC 
DC DCWR LOOP ADDR | 
OCwWBB BSC I OWR EXIT TO CALL. RT Sx 
™ .  & 
Pocccccccccccccccesceecceceecececccvcececceet 
ee DISK REAO ROUTINE % 
Toccccvccesececescsccssesvocessovsecvcccsecese® 
* _ | : 3, | * 
DCRD MDX DCR1O BR / NOP SWITCH ~ SE 
= . é 
BSI  . RWACK. RD/WR ADDR CK RT SC 
x 
DCR10 SLA 16. CLR A REG 
O1JUL66 15NOV66 15JUN67 
4154900 = 419643 420317 
aa) _ a aaa aa ie. ‘a _ 
So or Rew) \ ey ae DD < ) 
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30804370 
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30804390 
30804400 
30804410 
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30804540 
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30804620 
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30804650. 
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30804670 


30804680 


320804690 . 


30804700 


30804710 
30804720 


20804730 


30804740, 


30804750 
30804760 
30804770 
30804780 
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0758 
075C 


0760 
0763. 
0766 
0769 


0768 
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0759. 
O75A | 


075D 
O75E 
O75F . 


pms 


0762 


jd 


0765 


jue 


0768 


O76A 


puns 


076D 
O76E 
O76F 


que 


0771 
0772 


fant 


0774 
O775 
O776 


p= 


0778 
Q779 
O77A 


KOO 000 CO CCO0 C0 Co © cooecnDCCCOCO 


0778 
Oo77C 
077D 
O77F 
0780 


0781 
0782 
0783 
0784 
0785 
0786 
0787 


0788 
0789 


0788 
078C 
078D 
O78E. 


O78F 
0790 
0791 


0792. 
0793 
0794 
0795 


ooo 8 @0o 989090095 80 c9OoO0 SCroo ecoce 


DATE 


EC NO. 


D3EB 


D3E0 


D3DE 
C324 
D306 
D30F 
C31A 


40300765 


1010 | 
D4000AC6 


404A 


74010952 


1000 


406F 


1034 


C4000AC6 
D30C 
F30B | 
4C18079A 


C3EB 
4C 100785 


C023 
F023 
“4C200781 


4339 
E009. 
0756 


1010 | 
D3EO 
7401095 
1000 
T024 


4339 
E015 
0756 
TOFS 


4339 
E008 
0000 


C3EB 
4C 200793 


C30C 
DOOB 
C3CcD 
D3EB 


C3E0 
B3FF. 
D3E0 
70C9 
C30C 


D004 
4386 


92JAN66 
415490 | 


2315 DISK INITIALIZATION 


. §TO - 


STO 
STO 


OCRiI2 LD 


sto 
STO 
LD 
BSC 
SLA 
STO 

as 

DCR16 6SI 

x | 


MDX 
NOP 


BSI 
MOX 


Lo 

STO 
EOR 
BSC 


LO 
BSC 


LD 
EOR 


BSC 


BSI 
dC 
DC 


SLA 
STO 
DCR1I9 MDX 
NOP 
MDX 


BCR20 BSI 
: DC 
DC 
MDX 


DCR2) BSI 


OC 
DC 


LD 
LO 
STO 
DCR22 LD 
| STO 
LO 
A 
STO 
MDX 
Sto 
BSI 


DCR23 LO 


O1JUL66 


' 4154690C 


BSC. 


3-<212°°. RESET RD-SK SW 1 
3-32 RESET SFT ERR CNIR 
3 =34 RESET HRD ERR CNTR 
3 36 GET READ FUNCTION 
36. SET IT IN DCT 
3-33 MEM FNC HOLDER: 
3 26. GET RD / RD-CK MOD 
 DCR16eZ2—- BR BY ADDR CLR IF + 
‘16 CLR ACC Sere 3 
O¢DA+2 CLR READ 1/0 ADDR 
CDTRT - CMM DATA XFER RT _— SC 
DCT+#18e1 ADD TO TOTAL RD CTR 
0 SAFTY NOP | 
COTSN BR TO CK DSW + OPCMP SC 
DCREL - READ ERR BR RETURN 
DCDA+1 © GET ACTUAL ADOR 
3 12 SET ADDR IN DCT 
3h. CK ACTUAL EQ. DESIRED 
DCRGAr+- BR IF ADDR IS OK 
3-21 GET SW 7 
DCR2ly— BR _IF NOT 3RD_ RE-RD 
DCREL GET FIRST E008 AAR 
DCRE2 COMP 2ND E008 AAR 
DCR2002 BR IF E008 RDS UNEQ 
3 FORM2-DCI BR TO MSAG FORM 2 ~~ MC 
7€009 wm -MSAG ee 
DCRD ERROR LOOP ADDR 
16 CER A REG 
(3 =32 RESET SFT ERR CNTR 
DCT+1991 ADD + 1 TO RESK CNT 
Oo. SAFTY NOP 
DCREL RD ERR BR RETURN 
3 FORM2-DCT BR TO MSAG FORM 2. ° MC 
7E015 —- MSAG & == | 
DCRD ERROR LOOP ADDR 
DCR19 RD ERR BR RETURN 
3 FORM2-DCT BR TO MSAG FORM 2 ~~ MC 
/E008 a MSAG = =< 
o. (NO ERROR LOOP ADDR 
3 -21 GET SW l ae 
DCR23eZ BR IF 2ND E008 PASS 
312 GET 1ST AAR OF E008 
DCRE1 SAVE IT 
3-51. GET 4000 HEX 
3-21 SET SW 1 + OR - 
3 -32 GET SFT RD TEMP CNT 
3-1 ADD ONE TO ERROR CNT 
3 -32 SAVE NEW COUNT 
pCR12 BR TO RE-READ ADDR 
3 12 GET 2ND AAR OF E008 
DCRE2 SAVE IT | 
3 -122 BR TO RE-ZERO ARM + SC 
: RE-SEEK DESIRED ADR 
1SNOV66 1 5SJUN67 
419643 420317 
ae ote ™~, y rad a 4 “ on as 
- 4 a Go Mea Kw 
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) ‘ ) . s Se 
ae | 
IBM MAINTENANCE DIAGNOSTIC FROGRAM FOR THE 1130 SYSTEM PART NO. 2191216 oo -) IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NOW 2191216 
PAGE — § PAGE 5A 
| i 
2315 DISK INITIALIZATION | da.) 2315 OISK INITIALIZATION 
: ae | 2) ). 
0796 0 C3BF LO 3 -65 GET 8000 HEX 30805470 } * 308061 50 
0797 0 TOF6 MDX DCR22+1 BR TO SET Sw l 30805480 ee a 07D2 01 67000940 COTNR LDX L3 DCT SET X3 CTRL ADDR SE 30806160 
in 30805490 ) pod 07D4 0 C300 Lo 3 6 GET ZERO XTNT 30806170 
0798 0 0000 OCRE1 DC 0 E008 AAR 1 30805500 : 07D5 O D307 $TO 3.7 CLR MODIFIER 30806180 
0799 0 0000 OCRE2 DOC 0 EOOS AAR 2 30805510 * 30806190 
* : 30805520 ) ) O7D6 0 438E BSI 3 ~114 RELEASE RT sc 30806200 
O79A 0 C3EB OCRGA LD 3 -21 GET SwWl . 30805530 * 3080621C 
0798 01 4C1007A0 BSC t& ODCROKe> #£=‘BR IF RD ADDR OK 30805540 “ . O7D7 01 4C800780 BSC I CDTRT EXIT TO CALL RT. SX 30806220 
0790 0 C3E0 LD 3 = 32 GET SFT RD ERR TEMP 30805559 ) ) * . * 308062 30 
O79E 0 93FE S 3-2 COUNT + CORRECT IT 30805560 * eae * CHECK DSW RO/WR ** * 30806240 
O79F 0 O3E0 - STO 3 -32 SAVE CORRECTED CNT 30805570 | | * | * 30806250 | 
O7AO 01 740108E8 DCROK MDX L ODRD»2 ADD TO EXIT RT OK 30805580 ) 07D9 0 0000 COTSN DC f) ENTRY : | 30806260 
O7A2 0 C30C to 3 12 GET ACTUAL DISK ADDR 30805590 O7DA 0 C308 LD 3 8 GET OSW IN OCT SE 30806270 
O7A3 0 D30A STO 3.10 SET IT IN DCT PRESNT — 30805600 — O70B 0 €E3C5 AND 3 ~-59 PASS TEST BITS | 30806280 
~O7A4 O 0309 STO 39 SET IT IN LAST GOQD. 30805610 ) o7oc Q F3CO EGR 3-5} “TEST ALL FOR OK 30806290 
O7A5 0 C317 DCREL LO. 3 23 GET TOT HRD RO ERRS 30805620 O7DD 01 4C1807F9 BSC tL CDTGXet+— BR ZERO ALL OK 30806300 
O7A6 0 83DE. A 3 34 ADD NEW HRD ERRS. 30805630 ' & : : ; 30806310 
OTA? O D317 STO 3 23 SAVE NEW TOTAL. 30805640 ) O7DF 01 C4&000AC6 LO tL OCDA+). GET ACTUAL ADDR 30806320- 
O7A8 0 C316 LO 3 22 GET TOT SFT RD ERR 30805650 O7ElL 0 030C sto 3 12 SET IT IN TBL 30806330 
—. O79 O 8B3E0 A 3 -32 ADD NEW SFT ERRS 30805660 * | 30806340 | 
OTAA 0 0316 | $TO 3 22 SAVE NEW TOTAL 30805670. ) O7E2 O 4367 BSI 3 FORM4-DCT BR TO MSAG FORM 4 MC 30806350 
_ | * és . i | 30805680. O7E3 0 €006 > DC /€006 -~ MSAG = -= | : 30806360 
- OTAB 01 440006F1. BSI t LCKAF BR TO LOOP ANY FNC sc 30805690 f -O7E4 0 0000 Oc 0 | NO ERR LOOP ADDR 30806370 
- OTAD 1 O756 DC DCRD LOOP ADDR | ae 30805700 ) ) : . * . at 30806380 
 QO7AE 01 4C8008E8 $$$ OCRBB BSC I. ORD EXIT TO CALY RT i SX 30805710, ‘O7E5 01 C40005E2 LD L SW3 GET SW FNC THREE © 30806390 
bt : on | : = BPeocececscecceececsesesesceeseeseseseos eccccce® 30805720 es O7ET 0 4804 - ‘BSC . E SKIP IF 15 NOT ON 30806400 
< . COMMON RD / WR ROUTINE * 30805730 ) ) O7E8 0 7014 MD» DSPLA 8R TO DISPLAY IOA RT 30806410 
ars: Becccccccccccccccccccccceccccccessodecceccon® 30805740 . * - oe . 30806420 
OG ie Te. a : * ey | : * 30805750 3 O7E9 01 74010920 COTLK MDX L vVJCT-3201 ADD TO SFT ERR HOLOR 30806430 
0780 0. 0000  CDTRT D oO. ENTRY 309805760 ) ) Z * | | | 30806440 
0781 0 1010 SLA 16 CLR ACC / — SE 30805770 So * Ke - 30806450 
0782 0 O30E | $TO 3 14 CLR RETRY’ CTR - 30805780 © O7EB 0 1000 NOP 0 SAFTY NOP 30806460 
| can a ae | 30805790 : O7EC 0 C30E LD 3 14 GET ERR TRY CTR 30806470 
0783 0 43868 — CDT8C BSI 3 -120 ~~ DCRDY RT ——6$e 30805800 O7ED 0 . B3FF A 3s =i ADD TO TRY. CTR - 30806480 
ee ae Ce a > - , 30805810 | O7EE 0 D30E STO 3 (14 SAVE CTR TOTAL 30806490 | 
- 0784 0 C300 ~~ LO 313, GET WORD COUNT 30805820 } | O7EF O F3F6 EOR 3 -10 - TEST FOR TENTH TRY 30806500 
0785 01 O4000A STO t OCDA SET IT IN 170 FLD 30805830 | O7FO 01 4€C200783 BSC L CDTBCeZ LOOP TO RETRY AU;O 30806510 . 
0757 0 C3DF . td 3-33, GET MEM HLD FNC 30805840 \ * aes: , | 30806520 
_ 0788 0 0306 | $TO 3 6 SET IT IN OCT FNC wWO 30805850 1) O7F2 01 T7401091E MOX L DCT=-3491 ADD TO HRO ERR HOLOR 30806530 
0789 0 C30B ~£b 3.11 GET DESIRED ADDR 30805860 O7F4 0 1000 NOP - 0 SAFTY NOP 30806540 
 O7TBA O 1000 — SLA 13 CLR CYL NUMBER . 30805870 | 7 . % | oe 30806550 
-.07BB 0. 180N SRA 13 CLR CYL NUMBER 30805880 Y O7F5 0 4367 BSI 3 FORM4-DCT BR TO MSAG FORM 4& MC 30806560 
O7BC O EBILA OR . 3 26 RO/RD CK MODIFIER 30805890 OTF6 0 E007 OC —  fEOOT —-— MSAG = -=- ; 30806570 
' .078D GO D307 sto 37 SET ADJ MOD IN DCT 30805900 ‘ O7F7 1 O7B1 oC CDTRT+1 ERR LOOP ADDR 30806580 
O7BE 0 C301 LD 31 GET 1/0 ADDR 30805910 ds: | * ‘ 30806590 
O7BF 0 D304  $To 3 4 ‘SET IT IN OCT 30805920 O7F8 O 7002 MDX COTGX+2 EXIT TO ERR ADDR — §X 30806600 
ae a oa | & , 30805930 — * ‘ | | | 30806610 
07CO 0 4392 COTRC BSI 3 -110 ‘DCOSW RT sc 30805940 ; re ea) O7F9 01 74010709 CDTGX MDX L CDTSNel ADD TO EXIT CTRL. 30806620 
ne * | - 30805950 i OT7FB 01 4C8007D9 BSC 1: CODTSN EXIT S600D 1/0 OP SX 30806630 
O7C1 0 E3C5 AND 3-59 | TEST BITS 30805960 . O7FD O 6900 ; DSPLA STX 1 DSPX1+1 SAVE Xl CONTENTS (30806640 
O7C2 O1 4C1 -- (CE BSC tL CDTSEr:+— BR ZERO TO CONTINUE 30805970 ) | O7FE 00 6500FEBF LDX Lil -321 SET X1 CONTROL COUNT 30806650 
an 7 | - 7 : 30805980 . | ade 30806660. 
O7C4 01 46000A8C LDX L2 DSWER GET ALPHA PHRASE 30805990 0800 O01 C&0005E2 DSPLP LOD tL SwW3 GET SW FNC 3 DATA 30806670. 
O7C6 O11 SEOOCIEB STX Lé REMRK SET IT IN TROPA 30806000 ) 0802 0 4804 BSC E SKIP IF BIT 15 OFF 30806680 - 
o7ls 0 4331 BSI 3 FORM1-DCT BR TO MSAG FORM 1 MC 20806010 0803 0 7001 MDX *+) GO TO DISPLAY LOGIC 30806690 
O7C9 0 E005 DC 4€E0O05 -- MSAG = <-- 30806020 0804 0 7005 . MDX DS PX] BR TO RESET Xl 30806700 
O7CA 1 O7CO : OC CDTRC ERR LOOP ADDR 30806030 ) : * | | 30806710 
a * oe i. 30806040 0805 01 C5000C06 LO L1 OCDA+321 GET 1/0 AREA WORD 30806720 
O7CB O OBBA x10 3 ~70 SENSE RESET OSW 30806050 7 0807 0 30DA DC /30DA WATT TO LOOK AT IT 30806730 
o7CC 0 D308 _ STO 063 8 SET DSW IN OCT 30806060 3) re ae * jg 30806740 
O7CD 0 4396 7 BSI 3.-106 BR TO MONITOR END RT SX 30806070 * 30806750 
| * 30806080 : 080s O 7101 MDX 1 i DEC X1 FOR NXT WORD 30806760 
O7TCE O C387. COTSE LO 3-73 GET RETURN ADDR 30806090 ) 0809 0 T70F6 MDX DSPLP | DISPLAY LOOP 30806770 
O7CF O 0310 $TO 3 29 SET 1T IN,.DCT 30806100 = * 7 : 30896780 
: * | 30806110 me | 080A 00 65000000 DSPX1 LDX L1 0 RESTORE Xl 30806790 
O7D0 0 4382 BSI 3-126 BR TO EXEQ RT sc 30806120 ) . oso0c O 7ODC MDX CDTLK BR OUT TO CONTINUE 30806800 
| & ae , 4 | 30806130 * | 3) 4 * 30806810 
o7Di1 0 439C BSI 3 -100 MONITOR START RT XM 30806140 *y Perey yrerrrerreerrrrerrerrerreerrreerrrrerrrrreiry Ty ho 30806820. 
DATE O2JAN66 O1JUL66 15NOV66 LSJUN6T PROG ID 0308-3 . DATE O2J5AN66 O1JUL66 15NOV66 15JUN6T7. PROG ID 0308-3 
EC NO. 415490. 415490C 419643 420317 PAGE 2 2 EC NO. 415490 415490C 419643 420317 PAGE SA 
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C IBM MAINT?ZNANCE OIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM. 
C2315 DISK INITIALIZATION © 
) - . 
| | . DISK SEEK ROUTINE a 
: ne  RMewccccccccccceccocceeccceseescceovcccescoeset 
t 0) ~ oo ) * 
080D 0 4388 OCSK BSI °3 -120 — DCRDY RT. ve 
0B80E 0 C300 Lo 3 oO - CLR ACC | 
O80F 0 D302 , STO 32 CLR SEEK INCREMENT 
- | | 
0810 0 C30A Lo = 3 110 GET PRESENT ADDR © 
0811 0 EBF9 OR 3-7 SET HD-SECT TO MAX 
0812 0 9308 S$ 32 _ SUB DESIRED ADDR 
0813 0 1883 | SRT. 3 CLR HEAD-SECTOR BITS 
0814 01 4C9808EE BSC I DSKy+- BR OUT IF DIFF ZERO 
| fee | + sobs 7 2 
0816 01 4C€100820 | BSC L DSK10s- Qe. DIRECTION NEG 
0818 0 F3C2. EOR 3 ~62 YES- EOR 70 GEN PLUS 
0819 0 83FF A 3-1 ADD ONE TO CORRECT 
081A 0 0304 sTO. 34 SAVE DIFF - INCR 
081B 0 0302 sto 32 SAVE DIFF - INCR 
- 081C 0 C321 LD = 33-33 GET SK IN FUNCTICN 
-081D © 0306 STO 36 SET IT IN DCT 
O81E 0 030F STO 3 -33 _ SET MEM FNC HLOR 
O81F 0 . 7004 MDX  .. DSK20 BR TO CONT 
i ; 2. ie e 2 * . 
Bag O85 0820 0 0304 DSK10 STO. 34. SAVE DIFF - INCK 
| 0821. 0 -D302 STO 3.2. SAV= DIFF — INCR 
——  . 0822 0 C322 LD 3 34 GET SK OUT FUNCTION 
Fh 9823.0. 0306 $70 3 6 SET IT IN DCT 
: - : —_ . : * - . , | 7 F 
es 08240 C388 ~  DSK20 LD 3-72 GET RETURN ADDR - SK 
’ ee 0825 0 DOBA. | sto CDTRT _ SET IN COT CMN RTRN 
one 0826 0 7099 ‘MDY COTRC BR TO SET 1/0 EXEQ 
Pa i, ae to 8% 32% os.) er 
es ee 0827 01 74010950  ODSK30 MDX Lt DCT+l6,1 ADD TO SEEK OPCMP CT 
ito a 0829 0 1000 | } NOP 8 SAFTY NOP | 
rh Py * | 
“Oo. 082A 0 C308 - LD 311 _ GET DESIRED ADDR 
| -. 082B 0 030A $70. 3.10 SET IT IN PRESENT 
CG -. OB2C 01 440006F2 BSI tL LCKAF BR TO LOOP ANY FNC 
ue ae O82—E 1 O80D oc DCSK LOOP ADDR 
Ss O82F 01 4C8008EE BSC. I DSK EXIT TO CALL RT 
GC. 7 * _ 7 | Pore x 
Wn 660640 66666 6 60606666 666 6660686606 600680060" 
- .* = koa CHANNEL BUSY ROUTINE % 
O. Weccccccccvccccccescccsccceccccccccccceoeese® 
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a Si | . “ 7 | | 
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- 083F O D30B $10 3h ‘SET ADDR 
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tee et * i . 
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2 ey a a 
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Se eae Per are ree eee PET 
ARM TO HOME ROUTINE * 
Keowee cere SeeOOSO SOS esses eeeseesovesesesecser 
% | | | oes | % 
: DC - ty) OCARM SEFK CNT | 
OCARM LD ; 3 -1 GET CYL INCR 
| — $T0/ 34 PUT IN INCREMENT 
* 1 . ; 
- DARM. LO 3 34 GET SEEK -—~OUT--OP 
STO 36.  S$éT IT IN DCT 
LD | 3 -74 | GET RETURN ADDR 
STO 329. SET IT IN DCT 
BSI 3 -120 DCRDY RT. 
* ; 
| BSI 3 -110 ' DCDSW RT 
SLA 4 SHIFT FOR BS | 
BSC L DARTH,Z+ #£=BR IF ARM AT HOME | 
* ; ; = 
LO OCARM-1 GET SEEK CNT 
A Ze] - ADD +1 TO CNT 
STO DCARK~1 SAVE NEW CNT 
EOR 3-25 -  — TEST WITH 204 
BSC tt DARMXoZ BR IF NOT EQ 204 
STO L REMRK RESET REMRK WD TWOPA 
BSI 3 FOKMI-DCT BR TO MSAG FORM 1 
DC /E003 -- MSAG = -- 
_ oc 0 NO ERR LOOP ADDR 
‘ ce io 
BSI 3-91 BR TO END PROG 
DARMX BSI 3 -126 DEXEQ RT 
. | bran ee 
BSI 3-109 MONITOR START RT 
x 7 « 
DARTN LOX £3 DCT SET X3 CTRL ADDR 
BSI 3 -114 RELEASE RT 
MDX DARM LooP. 
end ) | a 
DARTH SLT 32 CLEAR A AND Q 
STO 39 CLR LAST ADOR 
STD 310 CLR DESIRED + PRESNT 
STO 3.12 CLR ACTUAL. ADDR 
STO 3 29 CLR NTRPT RTRN ADOR 
70 DCARM-1 RESET SEEK CNTR 
LOX £1 3000 SET DELAY XTNT 
BSI . 3 -112 DELAY RT - 20 MS 
BSC I ARM EXIT TO CALL RT 
ww * 
SCO Heererecerosoreorcroocscoceosscoccrccscocooccoe® | 
7 COMMON EXEQUTE 1/0 RT * 
CSOHCOCHECHSSOHSHECHESHOOSOCSSSCEESEOSESOSESOCECOSZEOO0F 
| . i | = 
EXEQ BSI 3 -118 REQUEST DEVICE 
x 
eH **  ** MAIN LINE MUST RELEASE* 
: * 
to 3-72 GET NTRPT TIMR ADOR 
7 STO L LIV SET IN MLSCF TBL 
to 35 GET AREA CODE 
oR 36 SET IN FUNCTION 
OR 3 7 SET. IN MODIFIER | 
SRT 16 PUT X10 IN O REG 
OLJUL66 15NOV66 15JUN67 
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ae 
STD DEXIO SET IOCC WORD 
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| xz0 DEXIO 90 1/0 COMMAND 
, BSC I EXQ EXIT. RETURN 
& 
DERIOL E> E 2 OCC wORD 
x 
Bids pecere dicts uoiees Saceecaheascaaeenusese 
® | ss ADDR BYPASS CK RT * 
EreSreee ese ee eter anes ear ee gees ester == 
s 
DCABP LO 31 GET DESIRED ADDR 
 § 3 -20 SUB CYL 90. 
. BSC L OCBPReZ+ BR IF LESS THAN 
+ 3 a 
| od 3 11. GET DESIRED ADDR 
Ss 3-22 _ SUB CYL 110 
BSC OL DCBPR»2- = BR_-IF GREATER THAN 
MDX SKADJ BR TO GET CYL ¢/-_ 
ee. | | 
DCBPR BSC I ABP. EXIT TO CALL RT 
= | * 
So cceeesesiecbnvcnsecdescdcesesseseescsesecc® 
2 Bhs RE-ZERO TO RE-SEEK RT * 
Pocccccccccccccccccccccccccoccesoccccocccoce® 
s * 
_ DRESK LD 23 ott fey GET DESIRED ADDR 
$70 3-36 © SAVE IT 
MDX -& ODCT#19,2 ADD TO SEEK ERR CNT 
ae NOP 1) SAFTY NOP | 
oe ro a 
BSI 3-128 OCARM RT 
7. oe et . 
| t 0 3-36 +  £G6ET SAVED ADDR 
a $70 311 + + °& &« # £«2SET IT IN OCT 
= . Pe 
* | | | | 
us BSI 3-82 DCSK RT 
a | 
: BSC I RSK EXIT TO CALL RT 
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5 s 
: oceoy BSI 3-210 OCOSW RT 
180C SRA 12. SHIFT FOR 80-83 
aconoace | ba a BSC I RDY»9+— EXIT 
soit? ad 7 
- LDX 12 NTRDY GET ALPHA PHRASE 
G6EOOOSES. STX t2 REMRK. SET IT IN TWOPA 
4331 BSI 3 FORM1-DCT 8R TO MSAG FORM 1 
£002 pC 3——S £002 —- MSAG = — 
- 000 oo oO NO ERR LOOP ADDR 
TOF4 _ ox OCRDY BR TO PRINT AGAIN 
; s We s 
: Meccccccccccccccccccseccsccccccccccscccoocoe™ 
* CHANNEL REQUEST RT a 
£ ss plG ew Saw sceee Sees e dese See bese teceuecees® 
3 % 
44000666 CHNRO BSI L REQDV CHANNEL REQUEST RT 
0831 OC ~ CHNBZ BUSY RT ADDR 
0000 -CHNSA DC 0 DDEF ADDR 
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SC . 
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DC DVA DEVICE REF ADDR 
DC TERM ADDR OF/FFFF 
BSC I REQ EXIT TO CALL RT 
* : 
~ . _ ¥ * 
Kocccccccccececccceeeeececeeecesescceceooooee® 
* FILL I/O AREA RT n 
PPT rrrrrrrereererrrerereereerreeerrreerrreere et 
me Bd 
DFILL LDX L1 -320 SET PASS CTRL 
STO Ll DCDA+322 RESET IOA WITH ACC 
MDx 211 DEC CTRL 
— MDX DFILL+2 Loop 
| BSC 1 FLX EXIT | 
* ; ee 
dcsdds acted acetunsesstesesuaess ssaeudeacs 
* CHANNEL RELEASES RT * 
ot URPete oes eee t etree tee estr antes 
* 
CHNRL BSI t RELDV CHANNEL RELEASE RT 
CHNRA DC fy) DDEF ADDR 
DC - TERM ADDR OF /FFFF 
i BSC IT REL ERIT TO CALL RT 
* s 
hecesecdececesecoewssesss Se eee re 
* DISK DELAY ROUTINE — = * 
Beccveccccccccccccecvcece eeecesccccccsocecesce™® 
* | / "s 
DCOLA MDX 1 -1 J} DEC NDX CNT 
MDX *=2 / LOOP IF NOT ZERO. 
- -D 3 -64 GET ADDR GF RETURN 
$TO L MLN SET ADDR IN MLSCF 
BSI 3 -100 BR TO MON START 
DLABB LDX L3 OCT SET x3 CTRL ADDR 
BSC -I DLA EXIT TO CALL RT 
* ee % 
a i csdatesectadeuenssesesteahanseiscnesaenes 
* READ DSW ROUTINE © * 
Fecccccccccccccccccccccccccccccccccccccsocse® 
& . 
DCOSW X10 3 -68 READ DSW® 
STO 38 SAVE DSW | 
BSC I DSW — RETURN TGO-CALL RT 
= * 
Focccccecesscseecesececocececeeenecscosscosse® 
* X3 - COMMON XFER TABLE # 
Feccccccccccccccccccccccccccccccccscccccccee® 
* ; : . . 
BSS E | a ; = 
ARM DC oe -128 
MDX DC ARM 
Exo DC # O -126 
- MDX DEXEQ 
* 
ABP. DC 0 (124 
MDX . DCABP , 
= 
RSK OC 0 -122 
MDX DRESK 
~ ; 
RDY oc 0 -120 
. MDX DCRDY 
i | 
REQ OC oO 118 
MDX CHNRQ : 
* : 
FLx OC o | -116 
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2315. DISK INITIALIZATION = | ee | | ) 2315 DISK INITIALIZATION 
Cc. aa _ | yu) he. & 7 pee Fi 
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pe fs. | ? s 7 | | ; | 30809560 | ; 0909 0 0700 | oc _ 40700 -55 30810240 
Cs 98CE 0 0000 REL OC . 0 | we DG 30809570 | -) ) 090A 0 7000 DC /7000 54 30810250 
| | O8CF O 700C MOX CHNRL | SC 30809580 0908 0 6400 . oc #£400 ~53 30810260 — 
< | ou | - | 30809590 : 090C 0 4800 oc 44800 52 30810270 — 
: ‘08D0 0 0000 . DLA DC en) | i “ -112 30809600 ) 090D 0 4000 ~~. ~ oc . 44000 -51 30810280 _ 
'08D1 0 70E0 MDX DCOLA SC 30809610 O90E 0 0000 0c 40000 | -50 30810290 — 
oe +. te 30809620 | . OS90F 0 0657 oc ‘10657 MAX DISK ADDR ~49 30810300 — 
0802 0 o000 OSw OC ot” -110 30809630 0910 0 1313 .. DC 41313 PATTERN ONE ~48 30810310 
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yi ee * | | Pee | 30809800 , 0921 0 0000 oc ) DLA XTNT HLDR -31. 30810480 | 
 08E2 0 0000 -REST OC 0 —— an ae 94 30809810" — , ) 0922 0 0378 DC 40378 | 30 30870490 
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08E8 6 0000. ORD DC oO | : | oe, -88 30809870 ) 0928 0 OO0Ccs | OC 200 324 30810550 
. OBED O01 4C000T756 Bsc t OCRD . SC 30809880 ~ | 0929 0 0000 ~~. DC o | 23 30810560 
ve eS ee | | 30809890 | 092A 0 0377 | | DC 10377 -22 30810570 | 
Ce _ (08€68 GO 0000 DWR DC 0 Soe | -65 30809900 : 092B 0 0000. - DC 's) “21 30810580 
ss O8EC 01 4C000737 - BSC Lt OCW ..” ee Sc 30809910 092C._0-02D0 »- oC. /02D0 a Q 30810590 
| : * ? Peg | 30809920 | 092D 0 0018 ~ oC 24 _ | ~19 30810600 — 
CS ‘O8EE 0 0000 DSK OC . o | at, 82 30809930 ar O92E O 0017 | — be 23 br a -18 — 30810610 — 
: O8EF 01 4C00080D — BSC t OCSK © : | sc 30809940 092F O OO1F | ~6oe 31 -17 30810620 
sicee SRM eee . * 7 a 30809950 0930 0 0010 OC. 16 -16 30810630" 
(i - O6F1 © 0000 EMF 0C o | -79 - 30809960 7 oe 0931 0 OO0F oC 15 “15 30810640 
a. O8F2 01 4C8008F1 BSC I EMF a SC 30809970 : 0932 0 OOOE oS oC . 14 14% 30810650 
OO * : oa * 30809980 | 0933 0 OOOD . DC 13 -13 30810660 
> . a Re she @ nO errr Tyr rrr rer Trrrrrrrrrrrrerrerrrrrrrrrry yt in 30809990 , a) : 0934.0 OO00Cc DOC . 12 ~12 30810670 | 
ar ery : | X3 - COMMON XTNT REF TBL ® 30810000 © 0935 0 0008 . . oC. ll ~ S41 30810680 
- ioe a : : Foccccccccccccccccesccccscecoevcscccccesscee® 30810010 : 2 0936 0 OO0A % DC | 10 ; : -i0 30810690 
a ee bg . re | * 30810020 ) 0937 0 0009 oc 9 ae 30810700 
Oars 1/060. oe DCTRL -76 30810030 | 0938 0 0008 , DC 8 -8 =: 30810710 
O8FS ¥. 067. ue oc. OCTL2 -75 30810940 -0939 0 oOO0O7 ~ . DC 7 77 30810720 
oeFe 4 085C | -OC -DARTN. -74 30810050 093A 0 0006 DC 6 “6 30810730 | 
O8F7T 1 0702 | OC CDTNR -73 30810060 0938 0 0005 cc 5 =o 30810740 
OBFR ‘1 0827 | oc OSK30 —=-72 30810070 | 093C 0 0004 | oc 4 —4 30810750 — 
O8FO9 1 06C2 oC DLNRT -71 30810080 : 093D:0. 0003 DC _ 3 =3 30810760 — 
O8FA.O 0000 | oc 40000 -70 _ 30810090. 093E 0 90002 ~~ |. oC 2 -2. 30810770 
O8FB O 0701 . oc 40701 -69 © 30810100 — O093F 0 0001 : — -0C a | | a oe 30810780 
osFc O 0000. © oc 40000 68 30810110 _ a 7 * | a se 30810790 - 
O8FD O 0700 . OC 40709 -67 30810120 : Keseccccccecescvesececcccoccceeccoscsocoocco® 30810800 | 
O8FE 0 0658. 7 oc ««©=——sC« 40658 66 30810130 © , * X3 - DISK CTRL. TABLE * 30810810 _ 
OB8FF OQ 8sGc00 — DC 48000 65 30810140. e ) ‘ , FPeccccccccccesecccccccscccocsccccenccocesoes® 30810820 
0900 1. 0888. — OC DLABB . 64 30810150 | a x. } * 30810830 — 
a — 0901 0 0100 oe 70100 -63 30810160 po 0940 0 0000 DCT oC /0000 ZERO CONSTANT 0 30810840 ~—s} 
ee 0902 0 -FFFF . ot /FFFF -62 30810170 — to 0941 1. OACS DC DCDA READ DATA AREA FLD 1 _ 30810850, 
0903 0 FFFC oC /FFEC -61 30810180 0942 0 0000 oc... O 8 SEEK. INCR CALC HLD 2 30810860 > 
Zon, 4 0904 0 FOFF oc - SFOFF -60 30810190 0943 0 90000: | DC 0 SK - WR ~ RD SWCTL 3 30810870 
fe 0905 0 FTFC pc JFTEC -59 30810200 : 0944 0 0000 . DC O 1/0 AREA / CYL INC 4 30810680 ~~, 
0906 0 ESE5 DC JES5E5 PATTERN ZERO ~58 30810210 0945 0 0000 DC t) AREA CODE 5 30810890 
_ 0907-0 CEDC 0c /CEDC — —57. 30810220 ; 0946 0 0000 DC 0 FUNCTION 6 30810900 
DATE -° O2JAN66 OLJUL66 + #I5NOV66 1SJUN67 PROG ID) 03083 : . D. TE O2Z2JAN66 O1JUL66 15NOV66 1SJUN67 PROG ID 0308-3 
EC NO. 415490 415490C 419643 420317 PAGE . Bea : EC NO. 415490  415490C - 419643 420317 PAGE i BA 
{ = > 
\. : 
a gaa. an “ ae — ae a i" — ox ~ i & Loe Bs | . L weed oem Reet S : As oo 7 . 
| | J \ | 7 : ) -) ma a ve ik ie ‘ \ io y “= \ oe x a Se oo ow ™S fe ss ae a 
“ aS _ & N \ : / A BS : j j ) | : 
» Sie _) ae eee blue _. oer =) oe. SS % eee. \ \ SA io ee) aes oe rn ae Meh ae o.8 \ Ne — S. - =. — 
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PART NO. 2191216 


18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191216 .) ) 18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
| | PAGE 9 . . PAGE 9A 
2315 DISK INITIALIZATION ) 2315 DISK INITIALIZATION | 
: ; ) e 
-0947 0 0000 oc 0 MODIFIER 7 30810910 0982 0 DO06B STO MSG+2 SET ADOR IN TWOPA 30811590 
0948 QO 0000 DC 0 LAST DSW READ 8 30810920 0983 0 C308 LO 3 11 GET DFSIRED ADDR 30811600 
0949 0 0000 oc 0 LAST GOOD CYt READ 9 30810930 ) 0984 0 4399 BSI 3 -103 BR TO DSK CNVRT RT SC 30811610 
094A 0 0000 Oc 0O PRESENT CYL 10 30810940 0985 0 0069 STO MSG+3 SET IN TWOPA 30811620 
094B 0 0000 oc 0 DESIRED CYt HDDR 11 30810950 0986 QO C30C LO 3 12 GET ACTUAL ADDR - 30811630 | 
094C 0 0000 DC '¢] ACTUAL ADDR READ 12 30810960 ) 0987 0 4399 BSI 3 -103 BR TO DSK CNVRT RT SC 30811640 
094D 0 0000 oc 8] CURRENT WORD CNT 13 30810970 0988 0 D067 STO MSG+4 ~ SET IN TWOPA 30811659 
094E 0 0000 OC 0 RO-wWR ERR TRY CTR 14 30810980 0989 01 66000A58 LOX L2 FRERD. GET ALPHA ADDR 2 30811660 | 
O94F 0 0000 DC 0 SEEK ERR TRY CTR 15 30810990 ) -0988 0 6A5F STX 2 REMRK SET IN TWOPA 30811670 
0950 0 0000 DC 8) TOTAL SEEKS 16 30811000 O98C 01 66COOA4SC TWFRM LDX L2 INDSW GET ALPHA ADDR 1 30811680 
0951 0 0000 DC ¢] TOTAL WRITES 17 30811010 O98E O 6A58 STX 2 ALPHA: SET IN TWOPA 30811690 
0952 0 0000 oc 0] TOTAL READS 18 30811020 ) O98F O C308 ! LO 3 8 GET OSW 30811700 
0953 0 0000 OC 0 TOTAL SEEK ERRORS 19 30811030 ‘ 0990 0 DO5C STO MSG+1 SET IT IN TWOPA 30811710 
0954 0 0000 DC 0 TOT SET WR ERRORS 20 30811040 0991 01 C4000879 LD L DEXIO+1 GET INST 30811720 — 
0955 0 0000 DC 0 TOT HRD WR ERRORS 21 3081 3050 ) 0993 0 7038 MDX MCALL~-1 -BR TO SET IN MSAG SX 30811730 
0956 0 0000 OC 0 TOT SFT RD ERKORS 2. 30811060 * ; . : 30811740 - 
0957 0 0000 OC 0 TOT HRD RD ERRORS 23 30811070. . 0994 0 0000 FORMS OC. 0 ENTRY ADDR SE 30811750. 
0958 0 0000 OC 0 TOT FROG PASSES 24 30811080 ) 0995 01 65800994 LOx 131 FORM3 SAVE ENTRY FOR RTRN 30811760 
0959 0 0000 DC 0 ROUTINE EXEQ NUM 25 30811090 0997 0 623F LDX 2 63 GET PRINT CONTROL 30811770 
095A 0 0000 DC 0 RD-RDCK MODE CODE 26 30811100 0998 0 6A50 STX 2 OPCW SET IT IN TWOPA 30811780 
0958 0 0000 DC 0 . LOST TIME DLA CTR 27 30811110 ) 0999 0 6208 LOX 2 8 GET HEX-DEC CONTROL 30811790 
095C 0 OFFF OC /OFFF LOST TIME DLA XNT 28 30811120 099A 0 6A4D STX 2 HOSW SET IT IN TWOPA 30811800 
0950 0 0000 OC 0 NTRUPT RTRN ADDR 29 30611130 - 099B 0 C30C LD 3 12 GET ACTUAL ADDR 30811810 
O95E 0 0000 DC 0 WO NUM OF PAT ERR 30 30811140 ) 099C O 4399 BSI 3-103. : BR TO CNVRT RT SC 30811820 
O95F;0 0000 OC 0 DESIRED PATTERN 31 30811150 099D 0 0050 STG MSG+2 SET IN TWOPA | 30811830. 
0960 0 0o000 DC 0 ACTUAL PATTERN 32 30811160 : O99E 0 C3I1E to °# 3 30. GET wD = IN REC 30811840 
0961 0. 0400 DC 40400 DISK SEEK -—-IN-- 33 30811170 ) : O99F 0 DOGF STG MSG+3 SET IN TWOPA 30811850 
0962 0 0404 DC 10404 DISK SEEK --OUT-~ 34 30811180 O9A0 QO C31F LD 3 31 GET DESIRED PATTERN 30811860 
0963 0 0500 DC 40500 DISK WRITE DATA 35 30811190 : . O9Al 0 DO4E STO MSG44 SET IT IN TWOPA 308118760 
0964 0 0600 OC 0600 DISK READ DATA 36 30811200 : ) 09A2 0 C320 LO =—s(-33s 332 GET ACTUAL PATTERN 30811860 
0965 0 0680 DC 40680 DISK READ CHECK 37 30811210 ; 09A3 0 D049 STO MSG+5 SET IT IN TWOPA 30811890 
0966 0 0700. DC 40700 DISK SENSE NORSET 38 30811220 i er O9A4 01 66000A60 LOX L2 AWEAX GET ALPHA 2 ADDR : 30811900. 
0967 OG O701 OC 40701 DISK SENSE RESET 39 30811230 } -) O9A6 0 TO0E4 — MDX TWFRM—1 BR TO FINISH SETUP SX 30811910 ~ 
| # | & 30811240 io“ a te : 3 30811920 
Keo ccceeesceseesesesesevsceeseesesccsssssescsesese® 30811250 : | OSAT7 0 0000 FORMG DC : 0 ‘ ENTRY ADDR SE 30811930 
* X3 = MSAG REF TBL * 30811260 ) O9A8 O01 658009A tDX I1 FORMS SAVE ENTRY FOR RTRN 30811940 . 
Frccccccccccccccccccccccccccccscecccccccecee® 30811270 ; O9AA 0 6200 ‘LDX 2 0 , SET X2 To ZERO 30811950 
| 30811280 09AB 0 6A3C STX 2 HDSW CLEAR HEX-DEC CTRL 30811960 - 
* * 30811290 » O9AC O 620F LDX 2 15 GET PRINT CONTROL 30811970 | 
Pecccccveccccccvccseccecccecevesseccvccecoccee® 30811300 O9AD 0 6A35 STX 2 DPCW SET IT IN TWOPA 30811980. 
* . SETUP MSAG FORMAT RTNS * 30811310 O9AE O C30C LD 3 12 GET ACTUAL ADDR READ 30811990 
Becccccccccccccccccccecccccesseccccceeccesoe® 30811320 { ) O9AF O 4399 BSI 3 -103 BR TO ADOR CNVRT RT Sc 30812000 
* * 30811330 © 0980 0 DO03D STO MSG+2 SET IT IN TWOPA 30812010 
0968 0 0000 FORMO DC 0 ENTRY ADDR | SE 30811340 09B1 01 C4000AC7 LD Lt OCDA+2 GET FIRST DATA wD 30812020 
0969 01 65800968 LDX 11 FORMO SAVE ENTRY FOR RTRN 30811350 : 09B3 0 0038 STO MSG+3 SET IT IN TWOPA 30812030 
0968 0 G6ATF STX 2 REMRK SET PHRASE IN TWOPA 30811360 O09B% QO1 66000A52 LDX L2 ADATA GET ALPHA 2 ADDR . 30812040 
096C 0 6200 LOxX 20 GET PRINT CONTROL 30811370 0986 0 70D4 MDX TWERM=-1 BR TO FINISH SETUP SX 30812050 
096D 0 G6ATA STX. 2 HDSW . CLEAR HEX—DEC CTRL 30811380 ; . * oe 30812060 
O96E 0 GATA STX | 2 DPCW SET IT IN TWOPA 30811390 09B7 O 0000 FORMS DC 0 ENTRY ADDR SE | 30812070 _ | 
O96F 0 GATA STX 2 ALPHA CLEAR ALPHA ADDR 1 30811400 2 0988 O1 65800987 LOx I1 FORMS SAVE ENTRY FOR RTRN © 30812080. 
0970 0 705C MDX MCALL BR TO MSG CTRL RT 30811410 \ } O9BA 0 6200 LDXx 20 SET X2 TO ZERO 30812090 
* | 30811420 09BB 0 6A2F STX 2 REMRK SET IT IN TWOPA 30812100 
0971 0 e090 > FORM] OC a) ENTRY ADDR SE 30811430 O9BC 0 6207 LDX 27 GET CTRL XTNT 30812110 - 
0972 01 65800971 | LOX 11 FORM SAVE ENTRY FRO &TRN 30811440 ' ) O9BD 0 6A2A STX 2 HDSW SET HEX-DEC CTRL 30812120 
0974 0 6203 LOx 2 3 GET PRINT CONTROL 30811450 O9BE 0 642A STX 2 DPCW SET PRINT CTRL 30812130 
0975 0 6AT73 STX 2 DPCW SET IT IN TWOPA 30811460 O9BF O C3CB LD 3 -53 _ GET-BR INST 30812140 
0976 0 6200 LDX 20 SET X2 TO ZERO 30811470 ) OS9co O 90050 . $To CTLOG SET IT IN STATUS CTL 30812150 
0977 0 6A70 STX 2 HDSW CLEAR HEX-DEC CTRL 30811480 09C1 01 66000A20 LDX L2 TWMLP GET MULTILINE XFER 30812160: 
0978 0 7013 MDX TWFERM BR TO FINISH SETUP 30811490 ; 09C3 0 6AGE STX 2 CTLOG+1 STATUS LOOP CTRL 30812170 
a a. * 30811500 ) ) 09C4 01 66000AA2 LDX t2 STATI GET ALPHA ADDR 30812180 — 
0979 © 0000 FORM2 DC ) ENTRY ADDR SE 30811510 09C6 0 6A23 STX 2 ALPHA SET IT IN TWOPA 30812196 
O97A 01 65800979 LDX 31 FORM2 SAVE ENTRY FOR RTRN 30811520 : ; 09C7 0 C313 LD 319 GET RESK COUNT 30812200 
o97C 0 6200 -LOX 20 SET X2 TO ZERO 30811530 ) ) o9cs 0 D025 STO MSG42 SET IT IN TWOPA 30812210 
0970 '0 6A6A STX 2 HDSW CLEAR HEX-DEC CTRL 30811540 09C9 0 C310 LD 3 16 GET SEEK COUNT DATA 30812220 
O97E 0 621F LOX 2 3l GET PRINT CONTROL 30811550 . O9CA O DO22 STO | 4SG+)1 SET IT IN TWOPA 30812230 
OS7F 0 6A69. STX 2 DPCW SET IT IN TWOPA 30811560 : O9CB 0 C318 LD 3 24 GET PASS COUNT 30812240 
0980 0 C309 LO 39 GET LAST ADDR 30811570 O9ccC O DOILF STO MSG SET IT IN TWOSA 30812250 
0981'0 4399 BSI 3 -103 BR TO OSK CNVRT RT SC 30811580 © O9CD 0 702E MCALL MDX CALLM BR TO MSAG CTRL RT SX 30812260 
DATE O2JANG6 O1JUL66 15NOV66 15JUN67 PROG ID 0308-3 . DATE O2JAN66 01JUL66 15NOV66 1SJUN67 PROG 10 0308-3 
415490 419643 420317 PAGE 9 EC ' 0. 415490 415490C 419643 420317 - PAGE 
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* 09D3 
0904 


0907 
0908 
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O09DA 


-o9DD 
 O9EO 


(O9E2 


- O9E6 


O9ED 
 O9EE 
-O9EF 
~~ O9FO 
O9F1 
_O9F2 
~ 09F3. 
09F4 
~ O9FS 


O9F7 


- OOFA 
_O9FB 


“O9FC 
 OOFD 
O9OFE 
O9FF 
-0A00 
* QA02 
* OAO0Z: 
“OA04 
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16M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


O9CE 
09D0° 
09D1 


0°05 
0906 


0908 
O9DE 
09E1 
09E3 


O9E4 
OSE5 


COCOOCCCOCCO cooooc?odo 


O9E7 
O9E8 
O9E9 
O9Ea 
O9EB 
O9EC 


O9F6 


O9FB 
09F9 


eceoecoooqoooocecococcseoooodce 


eo0o0co00°9~e 


OA06 00 


OAOB 1 


“DATE: ~ 


EC NO. 


Cooo 


(66060908 
“6A54 
 66000AAC 
— 6A16 
C31) 
0016 


C314 


0015 
C315 


D014 


~ 7031 


66000A26 
6A47 
66000AB6 
6A09 


312 

~ po09 
6316 
* p0os 
C317, 


TOF2 
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0000 
0000 


0000 


0000 
0000 
0000 
0000 


0000 


0000 


- 0000 


0000 
6000 
0000 


0000 
0000 


0000 


0000 
0000 
0000 
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C100 
DOES 


180C 
F3F2 


" @C2C9A08 


7101 


C100 
“D004 
6927 


44800162 
09E7 


_ & 


2315 DISK INITIALIZATION | 


Ps 
FRMS5SA LOX 
— §TX 
LOx 
STX 
LD 
§To 
LO 
STO 
LO 
STO 
MOX 


* 

FRM5B LDX 
$TX 
LOX 
STX 
‘LO 
' §TO 
LD 
sTa 
LD 
MDX 


 & 


‘ TWOPA DC 
HDSW OC 
 —DPCW ODOC 


ALPHA DC 
REMRK DC 


MSG DC 


SObsantes: 


415490 


~ oc 

- oc 

DC 

DC 

OC 

oc 

oc 

oc 

oc 

“oc 

OC 

DC 

OC 

Dc 

CCRITN OC 
fe 


Feccocce e2ee@e0080000 


* 


x ‘ 
CALLM LD 

STO 

SRA 

EOR 

BSC 

~ MDX 
LD 

STO 

- §TX 


* 
x 
* : 
TWERR BSI 
DC 


O1LJUL66 
415490C 


aan. 


we Ww WN 


‘L2 FRMSB 


2 TWMLB+1 


‘L2 STAT2 
“ 2 ALPHA 


3°17 

- MSG 

3 20 
MSG+1 

3 2) 
MSG+2 
TWLOG+1 


* £2 TWMLR 


TWMLB+1 
STAT3 
ALPHA 
18 
MSG 
22 
MSG+] 
23 
FRMS5B-2 


1130 SYSTEM 


LINE THREE SETUP 
NEW MLP RTRN 


GET 


GET 
~ SET 


GET 


* SET 


GET 
SET 
GET 
SET 


GET 
SET 
GET 
SET 
GET 


~ SET 


GET 
SET 
GET 


ALPHA ADDR 
IT IN TWOPA 
WRITE COUNT 
IT IN TWOPA 
WR SFT ERRS 


IT IN TWOPA 


WR HRD ERRS 
IT IN TWOPA 


BR TO LOG CALL 


ML& RESET ADDR 
RESET ADGR ML! 


ALPHA ADDR 


IT IN TWOPA 


READ COUNT 

IT IN TWOPA 
RD SFT ERRS 
Iv IN TWOPA 
RD HRD ERRS 


BR TO LOG CALL 


SE 


PART NO. 


PAGE 


30812270 


30812280 


. 30812290 
. 30812300 


30812310 


30812320 


30812330 


30812340 


Sx 
SE 


SX. 


* 


Recccccccsccccccccosecesvcsssessocecesccosce® 
. . Tw MESSAGE OUTPUT AREA * 
Be ccccvecccccccecceccceccececceccoscccocoseseXt 
‘MESSAGE NUMBER 
HEX / DEC SW 
DATA 1D 
- ALPHA 1 
ALPHA 2 
M 
E 
$s 
S$ 
A 
6 
—€ z 
D 
A 
7 
WwW 
D 
48100 ~$ 
5 
ecccccaccccocccccecsvccecseX® 
MESSAGE CALL CTRL RTS * 
Kocecccccvessecececescccccescesscccececcooeet 
vA & 
1 0 GET MSAG NUM 
TWOPA SET IT IN TW OPA TBL 
12 SHIFT FOR ERR RT CK 
3-14 TEST FOR ERR IND 
L TWLOGesZ - BR TO LOG CALL RT 
M1 ADD FOR LOOP ADDR 
1 0 GET ERROR ADDR 
TWERR+3 SET IT IN CALL SEQ 
1 TWX1H SAVE INDEX 1 DATA 
. cin * 
ERROR RT CALL SEQ * 
=. % 
I ERROR BR TO MON ERR RT 
TWOPA GPA STRING 
L5NOV66 1SJUN67 
419643 420317 
aa en aac ote aa 
. | | 
a ol Se cage ee Sui? 


a, 


SE 


SX 


- 30812350 


30812360 
36812370 
30812380 
30812390 
30812400 


- 30812410 


30812420 
30812430 
30812440 
30812450 


30812450 


30812470 


‘30812480 
30812490 
~ 30812500 


30812510 
30812520 
308612530 
30812540 
30812550 


30812560 
30812570 


30812580 


‘30812590 


30812600 
30812610 


- 30812620 


30812630 


~ 30812640 


30812650 
30812660 


30812670 


30812680 


30812690 
30812700 
30812710 


30812720 


30812730 


30812740 
30812750 
30812760 
30812770 


» 30812789 


3081279C 
30812800 
30812810 
30812820 
30812830 


30812840 


30812850 
30812860 


30812870 
30812880 
. 30812890 


30812900 
30812910 


30812920 


30812930 
30812940 


PROG ID 


PAGE 
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10 


wo o~ WJ 


ee al 
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OA09 


0000. 


(2315 DISK INITIALIZATION 


oc 


0 


Loop ON ERR ADDR 


SE 


SE 


SX 
SE 


$x 


*# nH t # 


OAOA O- 7008 MDX TWRIN BR TO MSG R*RN CTRL 
ans x ; 3 aes = 
* LOG RT CALL SEQ * 
- = Pies ; *x 
QA0B 0 6921 TWLOG STX 1 TWA1H SAVE INDEX 1 DATA 
OAOC 00 44800163 BSI I LOG BR TO MONITOR LOG 
OAOE 1: O9E7T .- OC .. TWOPA OPA STRING 
OAOF 01 67000940 LOX £3 DCr SET XR3 CONTROL ADDR 
2 ‘ * _ 
O0A1l1 0. 1000 CTLOG NOP LOG = STATUS 
OA12 0 100C NOP LOOP CONTROL 
* MSAG RETRN CTRL RT od 
& “ * 
0A13 01 67000940 TWRIN LDX L3 OCT SET X3 CTRL ADOR 
* P ar 
OA15 O01 66000A1A LOX L2 TWEND GET ENTRY ADDR 
OA17 O01 6EOOOS5ES “STX L2 MLSCF SET IT IN CTRL TBL 
0OA19 0 439C BSI 3 -100 BR TO MONITOR START 
3 x ; 
OA1LA O01 67000940 TWEND LDX L3 OCT SET X3-CTRL ADOR 
OA1C 01 65800A2D LDX 11 TWX1H GET X1 ENTRY ADDR 
~OA1E 0O 40000001 gSC Ll 1 RETURN TO USER 
* aa ~ ee a 
OA20 0 C3D2 TWMLP LD 3 -46 GET CTRL WORD : 
OA21 0 1004 StA 4 SHIFT FOR MLP CTRL 
OA22 0 E8CE OR DPCW OR IN CTRL COUNT 
~0A23 0 OOCS5 STO DPCW SET IN FINAL CTRL 
0A24 01 4CI009CE TWMLB BSC L_ FRMSA RETURN TO NEXT RT 
" oe ‘a | - 
0A26 01 660009CE TWMLR LDX L2 FRMSA GET BASIC ADDR 
OA28 0 6AFC STX 2 TWMLB+1 SET IN MLB RETURN 
OA29 O C3D1 LD 3 -47 GET NOP INST 
OAZ2A 0 DOE6 STO CTLOG ~ CLEAR MLP.CTRLE XFER 
OA2B 0 DOE6 $To CTLOG+1 CLEAR MLP CTRL XFER 
OA2C 0 7O0E6 MDX -TWRIN RETURN TO NORMAL CTL 
an wt * | . 
0A2D 0 0000 TWX1H OC ) X1 ENTRY HOLD ADDR 
_ ; oe * a 
TeeeeeeSCeeeSeSe SSS HOSS SSSSSESSSeTeHeseeeesese 
* ADDR CANVRT RT 
: , FeeeeeeesSeSSSSO SOS SSS HSESEHOCEES EOE EOOOO® 
ae * ; ; _ 
OAZ2E 0 1800 DSKAC RTE =§° 16 SET Q DATA IN A 
OA2F 0 1010 SLA 16 CLR Q DATA IN A 
0430 0 1800 RTE 16 RESET Q TO ZERO 
0A31 0 18053 RTE 19 SHIFT. A DATA 
OA32 0 1800 SRA 13. ADJ SECT-HEAD 
0A33 0 DO14 $TO HCAP1] SAVE IT. 
0A34 0 1010 SLA 16 CtiR A REG 
OA35 0 ABFE D 3 -10 DIVIDE: FOR BASE 10 
0A36 0 1800 RTE 16 | SET QUOTIENT INTO Q 
OA37 0 ODOl1 STO HCAP2 SAVE REMAINDER 
0A38 O 1010 SLA 16 CLEAR A REG 
OA39 O ABF6 D 3 -10 DIVIDE FOR BASE 10 
-OA3A O - 1800 RTE 16 . SET QUOTIENT INTO Q 
OA3B O DOOE . $T0 HCAP3 SAVE: REMAINDER 
OA3C O 1010 SLA 16 CLEAR A REG.- ; 
QA3D O ABFE6 D 3-10 - DIVIDE FOR BASE 10 
OA3E O 18D0 RTE 16 SEG QUOTIENT. INTO Q - 
i\OA3F O 1004 SLA | 4 “SHIFT TO BUILD ADDR 
OA4O0 0 £809 OR HCAP3 OR IN TENS CYL ADDR 
-Q0A41 0 § 1004 SLA 4 SHIFT AGAIN... 
OA42 0 E806 OR HCAP2 OR IN UNITS. CYL ADDR 
0A43°0 1004 SLA a4 - SHIFT AGAIN. - 
OAS4 O E803 OR HCAP OR IN HEAD-SECT 
DATE _ O2JAN66 OLJUL66 1S5NOV66 LSJUNGT 
EC NOW 415490 —415490C 419643 420317 
ye ite Ea Pa i aa ws pce ee 
‘s a | ) = = . Ne : : ay \ 
ee See ede? : ieee es So A x 


PART NO.w 2191216 
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30812950 
30812960 
30812970 


30812980 
30812990 


30813000 


30813010 


_ 30813020 


30813030 


30813040 


30813050 
30813060 
30813070 
30813060 


°30813090 
30813100 


30813110 


‘30813120 
- 30813130 
(30813140 
30813150 


30813160 
30813170 


30813180 
30813190 


30813200 
30813210 
30813220 


30813230 


30813240 


30813250 


30813260 


30813270 
. 30813280 


30813290 
30813300 


30813310 


30813320 
30813330 


— 30813340 


30813350 
30813360 


- 30813370 
30813380 


30813390 
30813400 
30813410 


~ 30813420 
30813430- 
30813440 


30813450 
20813460 


30813470 


30813480 


30813490 
30813500 
30813510 
30813520 


30813530 


30813540 
30813550 


30813560 


- 30813570 


30813580 
30813590 


30813600 
- 30823610 


30813620 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191216 7 a IBM MAINTENANCE DIAGNOSTIC PROGRAM FOP. THE 1130 SYSTEM PART NO. 2191216 
| | a8 PAGE — 11 | PAGE LA 
2315 DISK INITIALIZATION | ob 4 2315 DISK INITEALIZATION 
| - ce 4 | 
0A45 0 D005 STO HC APS SAVE FINAL ADDR 30813630 | | 30814310 
: s | | 30813640 : : OA7D O 3C60 ARMNH DC /3C60 ARM NOT HOME 30814320 
0A46 01 4C8008D9 BSC I ARC BR TO USER 30813650 a OA7E 0 7021 DC 47021 30814330 
* | 30813660 OA7F 0 7450 OC 17450 30814340 
0A48 0 0000 HCAP1 OC 0 HEAD-SECTOR 30813670 | ; 0as0 0. 9C21 | DC 19C21 30824350 
0A49 0 0000 HCAP2 OC 0 UNITS CYL ADDR 30813680 «2 O0AG1l O 2450 DC 42450 30814360 
OA4A 0 0000 . HCAP3 OC t) TENS CYL ADDR 30813690 . ' QAE2 0 7034 pc 17034 — | 30814370 
OA4SB 0 0000 HCAP4 OC 0 TOTAL CYL ADDR | 30813700 , _3 OAS3 0 FFFF oC /FFFF 30814380 
* 30813710 | et * | 30814390 
e ; * 30813720 OAB4 0 2074 BDPAK DC 42074 INITL BAD PACK 30814400 
Roceeeceeeseessseseeeesesseesveesesevecscssescse*® 30813730 f OA85 0 209C DC 4209C 30814410 
* —— | ' ALPHA PHRASES TABLE * 30813740 ) ; OAE6 0 5C21 DC 45C21 | . 30814420 
 RewccccccccccccccccccccccccesecscccccccsccveX® 30813750 ; : OA&87T O 183C OC 4183C — . 30814430. 
* 30813760 OAgs8 O 3021 DC 13021 % <i 30814440 
OASC 0 2074 INDSW OC 12074 _ INST DSW 30813770 0A89 0 543C OC 1543C 30814450 
0A40 0 989C DC 4989C : | 30813780 OA8A O 1C€58 DC 41C58 30814460 
OASE O 2121 DOC 42121 30813790 OA8B O FFSF DC /FFFE 30814470 | 
OASF QO 3098 OC 43098 30813800 | * : 30814480- 
0a50 0 9000 OC 49000 30813810 OAeC 0 3098 DSWER DC /3098 DSW 30814490 
OA51 O FFFF | DC /FFEFF 30813820 OA8D 0 9021 DC 19021 ; 30814500 
a : * | . , 30813830 OABE 0 3460 DC 43460 ERR 30814510 
-0A52 0 3C€30 ADATA DC /3C30 ADDR DATA 30813840 OA8F 0 6021 OC 16021 30814520 
0453 0 3060 OC 43060 30813850 — OA90 O FFFF DC /FEFF 30814530 
0A54 0 2130 oo 42130 30813860 * , . . | 30814540 
0A55 0 3C9C DOC /3C9C 30813870  -QA91 0 7450 NTRDY DC (17450 NOT RDY - 30814550 
0A56 0 3C00 — | DC 43C00 30813880 O0A92 0 9621 oc /9C21 | | | (30814560 
OA57 O FFFF “OC /FFFF 30813890 0A93 0 6030 DC 46030 30814570 
| * | - 30813900 0A94 0 A442 DC /A442 30814580 
0a58 0 1060 FRTRD OC 41060 FROM TO READ 30813910 OA95 0 FFFF DC /PEFE 30814590 
 0A59 0 5070 OC 45070 | 30813920 * | | | 30814600 
OASA O 2121 | OC. 42121 30813930 0A96 0 550 LNTRP DC /5C50 LOST NTRPT 30814610 
0A58 0 9C50 oc 49C50 30813940 0A97 0 989C DC /989C | 30814620 
OASC O 2121 : oc 2121 30813950 0A98 0 2174 OC 12174 30814630 
O0A5D 0 6034 | oc 16034 30813960 0Aa99 0 9C60 Dc /9C60 30814640 
OASE 0 3C€30 es DC 13C30 30813970 OA9A 0 549C oc 454£9C 30814650 
OASF O FFFF pc JFRFF 30813980 OA9B 0 FFFF 7 DC /FFFF 30814660 
. * 30813990 * 30814670 . 
0A60 0 3C€30 AWEAX DC 73039 - ADDR WD = EXPT ACTL 30814000 OASC 0 1034 CECAB OC /1C34 CE CYL BAD 30814680 
OA6! 0 3060 OC 13060 30814010 OA9D O 211C OC /211C 30814690 
0A62 0 2190 | : DC 42190 30814020 OASE 0 A45C DC /A45C 30814700 
0A63 0 3021 OC 43021 30814030 OASF 0 2118 DC /2118 30814710 
0464 0 34C0 oc 434CO 30814040 OAAO 0 3C€30 DC /3C30 30814720 
0A65 0 2134 — oc 12134 30814050 OAAl O FFFF Dc /FFFF 30814730 
0A66 0 9454 oc 15454 30814060 * 30814740 
0A67'0 9C€22 De 49C21 30814070 OAA2 0 543C ~STAT1 OC 1543C PASS= SEEKS RESKS 30814750 
0A68 0 3C1C — oc /3C1C 30814080 OAA3 0 9898 OC /9898 | 30814760 
0469 0 9C5C DC 49C5C 30814090 OAA& O C021 DC /C021 30814770 
OAGA O FFFF oc /PFFF 30814100 OAAS 0 9834 DC 19834 30814780 
: * : 30814110 OAA6 0 3458 OC 13458 30814790 
OA6B 0 3C30 ARIET DC’ | /3C30 © ADDR RECORDED IN ERR 30814120 OAA7T 0 9821 DC /9821 30814800 | 
 @QA6C O 3060 oc . £3060 TBL 30814130 OAA8 0 6034 DC 16034 30814810 
OA6D 0 2160 2 oc (12160 30814140 : OAA9 0 9858 DC 19858 30814820 
OA6E O 941C oc 4341C 30814150 OAAA 0 9800 DC /9800 30814830 
OA6F 0 5060 — fc 2=F—-—<“‘é SGD 30814160 OAAB O FFFF DC /PFFF . 30814840 
CA70 09 3034 OC 13034 30814170 * | 30814850 
@a71l 0 3021 oc 43021 30814180 | | OAAC O .9060 STAT2 OC: /9060 WRITE SFTER HRDER 30814860 
OA72 0 2074 DC 12074 30814190 | OAAD 0 209C DC /209C 30814870 
-0A73 0 2134 DC 12134 30814200 OAAE 0 3421 DC 13421 30814880 
OA7T4 0 6060 . OC 46060 30814210 7 OAAF O 9810 oc 79810 30814890 
OA7T5 O 219C DC 1219C 30814220 | OABO 0 934 DC 19034 30814900 
OA76 0 185C DC ~4185C 30814230 — OABL 0 6021 OC 46021 30814910 
OAT7 O FFFF DC /FFFF 30814240 OAB2 0 2460 DC 12460 30814920 
, - * 30814250 0AB3 0 3034 DC 13034 30814930 
OA78 0 609C NORTN DC 4609C RT = N/A | 30814260 | OAB4 0 6000 DC /6000 30814940 
0A79 0 21CO Oc 421CO | 30814270 OAB5 O FFFF DC /FFEF 30814950 
OATA O 746% DC /74BC 30814280 * 30814960 
0A7B8 0 3C00 DC 43C€00 30814290 OAB6 0 6034 STAT3 OC 16034 READS SFTER HRDER 30814970 
OA7C O FFFF OC /FFFF 30814300 OAB7 O 3C€30 OC /3C30 | : 30814980 
DATE O2JAN66 O1JUL66 I15NOV66 8 15JUN67 PROG ID 0308-3 . DATF O2JAN66 O1JUL66 15NOV66  15JUN67- PROG ID ss0ae4 
EC NO. 415490 415490C 419643 420317 ‘PAGE 11 EC i.0. 415490 415490C 419643 420317 PAGE 4a 
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2315 DISK INITIALIZATION 


OABB 
OABI 
OABA 


OABC 
OABD 
OABE 
OABF 


OACO 
OAC1 
OAC2 
OAC3 
OAC4S 


©0000 .cee00Cc—Ce 


OAC5 
OAC6 
OACT. 
oco? 


_90 


0C57 
OC58: 
0c59 
OC5A 
oc5B. 
OCSC 
OC5D 
OCSE 
OCSF 
0C60. 
0C6l 
0C62 
0C63 
0C64 
0C65 


0C67 
0C68 
0C69 
OC6A 
OC6B 
OC6c 
OCéD 
OC6E 
OC6F 
0c70 
oc71 
0c72 


eooeocoecooooeococooo0eo0ooeocoooooso 


oc73 0 
OC7T4 O 
oc75 0 


DATE 
EC NO. 


9821 


9810 


9034 


6021 
2460 
3034 
6000 
FFFF 


9834. 


5C21 


1020. 


5034 
FFFF 


0000 
a000 
0140 
0050 


FFFF: 


FFEF 
FFFF. 
FFFF 


FFFF 


FFFF 
FFFF 


FFFF 


FFFF 
FFFF 
FFF 
FFFF 
FFFF 
FFEF 
FFFF 
FFFF 
FFFF 
FFFF 


FFFF 


FFFF 
FFFF 
FFFF 
FFFF 


FFFF 


FFFF 
FFFF 
FFFF 
FFFF 


C3E5: 
D30D 
C300 


O2JANG66 
415490 


oc 7982) 


pc 19810. 
DC 19034 
OC 46021 
DC 12460. 
oC 13034 
oC /6000 
DC /ERFF 
* - er | 
SELDU DC 19834 SEL FILE 
DC /5C21. 
OC 41020 
~ OC 15C34 
OC /FFFF 
* . * 
We os cal ss Ow ele sa O66 65.600. Ww ee 6S 0s ee eeee wees e* 
+ | "DISK IGCC AND CE HIST * 
Koccoeeeces vce esse secevesseseoesescosececssecse® 
x . | | * 
DCDA OC WORD COUNT 
oc eae DATA FIRST WORD 
BSS 320. REMAINING AREA 
8SS 80. /. SAFTY AREA FOR RD ERR 
* | bg 
DCE 0C /FERF DISK HISTORY DATA 
DC / FREE DISK HISTORY DATA 
DC ‘JERFFF DISK HISTORY DATA 
DC /FFFF DISK HISTORY DATA 
DC /PFFF DISK HISTORY DATA 
DC /EFEF DISK HISTORY DATA 
DC /FFFF DISK HISTORY DATA 
DC /FFFF | DISK HISTORY DATA 
OC /FFFF DISK HISTORY DATA 
oC /FFFF DISK HISTORY DATA 
DC TFFEFF. DISK HISTORY DATA 
DC /FFFF DISK HISTORY CATA 
oC /FFFF DISK HISTORY DATA 
DC /FEFF DISK HISTORY DATA 
DC /FFFF DISK HISTORY DATA 
—oC /FFFF DISK HISTORY DATA 
OC /FEFF DISK HISTORY DATA 
DC /FFFF DISK HISTORY DATA 
DC /FEFF. DISK HISTORY DATA 
oc /FFFF. DISK HISTORY DATA 
oc /FFFE. DISK HISTORY DATA 
DC - JFFFF DISK HISTORY DATA 
DC /FFFF SISK HISTORY CATA 
DC /FFFF DISK HISTORY DATA 
DC /FRFFF ' OISK HISTORY DATA 
DC /FFFF. DISK HISTORY DATA 
OC /FFEFF DISK HISTORY DATA 
OC /FRFFF DISK HISTORY DATA 
* 
HEKEELHRERRESASEEAEKESELSRERERSRESRSK ER RAED 
* ae * 
* %% START INITIALIZATION *# # 
* * 


(4154900 = #19643 


KREKCKERMKKKHKCKKKKKHERKERSECKKKKRKKEKKEKKKSE KK KEKKE 
x . . 5 


Kececcccccccccccccccccccccecescrccccoecceece 


& 


SE 


x BEGIN RT FO1 WR ADDR-PAT * 
Bs ack Reg Opn ea pe 
Reocecccececeseesesessessesesessessescoscosesseses*® 
FOLAA LD. 3-27. GET wORD. COUNT 

STO 3 12 SET WORD COUNT. 

LO 3 0 CLR ACC 
O1JUL66 15NOV66 15JUN67 


420317 


ON ale = BE Ne oO OS . a a a 
L : f ‘ : 
| | | | : 1 
ee eee 4 oo 3 N . . ae . . > ; : J 
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PAGE 


30814990 
30815000 


30815010 
30815020 


30815030 
30815040 


30815050 


30815060 


30815070 


30815080. 
30815090. 


30815100 
30815110 
30815120 
30815130 
30815140 
30815150 
30815160 
30815170 


30815180. 


30815190 
30815200 
30815210 


30815220. 
30815230. 


30815240 
30815250 
30815260 
30815270 
30815280 
30815290 
30615300 
30815310 


30815320 
30815330 


30815340 
30815350 
30815360 


30815376. 


30815380 
30815390 
30815400 
30815410 
30815420 


30815430. 


30815440 
30815450 


30815460 
30815470 


30815480 
30815490 
30815500 
30815510 
30815520 
30815530 
30815540 
30815550 
30815560 
30815570 


30815580. 


30815590 
30815600 
30815610 
30815620 
30815630 
30815640 


30815650 


30815660 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2315 DISK INITIALIZATION. 


OC7 01 
0C78 01 
OC7A 0 
OC7B O 


OC7C O 
OC7D 0 
OC7E 01 
Ocs80 O 
0C81 0 


oc82. 
0ca3 


o-_ 


OC84 
0C86 


ocss 
ocs9 


© ©0000 oo 


OCBA 
0C8B 
ocsp 


o oo 
ot pe 


OC8F 


0C90 
0c91 
0c92 
0C93 


0094 
0C95 
0C96 
0C97 
0C98 


COKrFOCOo OFoC°o 


0c99 


OC9A 
OC9B 
Oc9c 
oc9p 01 
OC9F 01 


ooo Oo 


OCAl 01 
OCA3 O 
OCAS 0 
OCAS 0 
OCA6 O 
OCA7 01 


DATE 


EC *). 


04000D8D 
D4000C95 
C300 
0308 


4384 
43AE 
4COOOD8E 


43AB 


TOOE 


43A8 
7010 


74010948 
C3BE 
F30B 
4820 
70F2 


C3D1 
04000737 


04000756 | 


439F 


4339 
E060 
ocso 
TOEE 


4339 
E061 
0c82 
4002 
7OEB 


0000 


0000 
COFD 
F3FD 
4C180CE9 
74010099 


C4000D8D 
4820 
7002 
6100 
7002 
65800080 


O2JAN66 


415490 


CLR CTR 
CLR CTR 


 $TO L CYLEX 
STO Lt CYLEC 


LD 30 DESIRED CYLINDER AND 

sto 3211 SECTOR SET TO 000 
Seoecccceeeceeeeesseeeseeeeesecseceosevscesesoce® 
* | sae & 
% : — SELECTION OF NEXT SECTOR# 
* * 
Mosc oS 6 od Selb e 6 410'b2 4b 066 Se 6.60054 6S Owe Owe eee 
FOIAB BSI 3 -124 BR TO CK BYPASS CYL 
FOISK BSI 3 =82 — SEEK NEXT SECTOR 
| BSC L  PATRT BR TO SETUP PATTERN: 
FOIWR BSI 3 -85 WRITE SECTOR ID 

MDX FOLAE ERROR RETURN ADDRESS: 
Pere rr Pr Ty Terr rT ere eT ee ee ee ee ee ed 
* i | % 
% IF ID IS OKe GEN NEW * 
« SECTOR ADDRESS AND * 
% ) _ CONTINUE TEST | if 
_Prrrrrrr rrr rr rr rrr rrrrrerrrerrererir dl Pre et ee ee 
FOIRD BSI 3 -68 ~~ BR TO RD RT 

MDX FOLAF RD ERR RETURN 
z 
FOLAC MDX L OCT+l151 INCREMENT SECTOR ADR 

LD. 3-66 — GET DISK MAX CTRL 

EOR 311 TEST CURRENT ADDR 

BSC z | BR OUT IF ZERO 

MDX FO1AB CONTINUE TEST 
x 

LD 3-47 GET.NOP INST 

STO L OCWR SET BR/NOP Sw TO NOP 

STO .L OCRD SET BR/NOP Sw TO. NOP 
2 | } 

BSI 3-97 BR TO RT RTRN CTRL 
Reocccceceseseeeeseocsesessecesesenseccsscveses® 

* 

* | ERR ANALYSISS + LOGGING * 
* er 


Krecccccccccceeseeseeeesesecesscevsevcescescce® 


FOLAE BSI 3 FORM2-O0CT BR TO MSAG FORM 2 
DC ' FEO6O -- MSAG = -- 
DC FOILWR ERROR LOOP RE-WRITE 
MDX FOIRD 


BR TO RD CK 


. 
FOLAF BSI 3 FORM2=0CT BR TO MSAG FORM 2 


DC /E061 -- MSAG = -- 
DC FOI1RD ERR LOOP ADDR 
BSI CETRT BR TO CYL ERR TBL RT 
MDX FOAC BR TO CONTINUE 
Koeeseeeseeseeseseeeseoeseeeeoseeseesseocecesseeeer 
* : | * 
* ERROR CONTROL ROUTINE * 
x * 
Keeeeecccesccecceececeseceesesesooscoecesecet® 
CYLEC OC 0 CYL ERR CTR 
v4 
CETRT OC 0 SAVE ENTRY 
. LD CYLEC TEST 
EOR 3 -3 FOR 
BSC L OSKNGs+- MAX ERR TEST 
MDX LL CYLECel CNT 
* oe 
CKCET LD t CYLEX GET ERR CNT 
BSC zg SKIP IF ZERO 
MDX +2 BR TO SET ERR CTRL 
LDOx 1 0 SET CNT TO ZERO 
MDX *+2 BR TO SETUP RT 
LOx 11 CYLEX SET IN ERR CTRL CNT 
“O1JUL66 1SNOV66 1 5JUN67 
415490C 419643 420317 
\ ae . Ee a ™ + = - ~s - a 
x a. —/) XS yy ey S ) \ / 


sc 
SC 


Sc 


sc 


SX 


MC 


MC 


sc 


SE 
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30815670. 
30815680 

30815690 
30815700 
30815710 


30815720 
30815730 


30815740 


30815750 
30815760 


30815770 


30815780 


30815790 


30815800 


30815810 | 
30815820 


30815830 
30815840 


30815850 | 


- 30815860 


30815870 


30815880 
30815890 
30815900 
30815910 


30815920 
30815930 
30815940 
30615950 
30815960 
30815970 
30815980 


30815990 


30816000 


30816010 
30816020. 


30816030 
30816040 
30816050 
30816060 


30816070 
30816080 © 


30816090 
30816100 


30816110 


30816120 


30816130 
30816140 


30816150 
30816160 
30816170 
30816180 
30816190 
30816200 
30816210 


30816220° 


30816230 
30816240 


30816250 


30816260 


30816270 


30816280 
30816290 


30816300 
30816310 
30816320. 
30816330. 


30816340 
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18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2315 DISK INITIALIZATION 


OCA9 
OCAA 
OCAB 
OCAC 
OCAD 
OCAF 
OcBO 
ocbl 
OcB2 
ocB3 
OCB 
ocBs 
OCB7 


¥-R-e-R-3-e-3-3-E- 2-0-3) 


—OCB9 oO 
-OCBA 01 
OCBC O° 


OCBE 
OCcBF 
occo 
'.0CC1l 


—Occ3 
Occ 


occs. 
-— Occé 


oo 9090 Q9o00e 


OCCT 
occs 
OCc9 
OCCA 
OcCB 


oooco 


GOCE 
ocpDo. 


eoce° 


ocDd2 01 
OCD4 0 
OcD5 Ol 
ocd? O 


DATE 
EC NO. 


6208 
C30B 
1803 
1003 
05000DA2 
7101 
83FF 
T2FF 
TOFA 
93FF 
D308 
74080D8D 
4C800C9A 


C201 
D4000D35 
TOES 


0000 
4339 
EOCE 
0000 
4C800CBD 


40F9 


7070 


SOFT 
7055 


C3FF 
D300 — 
C3CF 
D308 
65000580 


(6923: 

4384." 
43a 
#3A8 
7008 


~ 


T4FFO094B 
1000 
65800CF} 
TLFF 


O2JANE6 


415490 


_ CSADR STO L 


& 
SETUP LDX 2 8 .SET X3 CTRL TO B 
LO 3 11 GET INITIAL ADDR 
SRA. 3 CLR HD/SECT 
SLA 3. CLR HO/SECT 
1.CYLET PUT SECT ADDR IN CET 
MDX 1 ADV CYL ERR TBL CTRL 
A 3-) | ADV SECT ADDR 
MDX 2-1 ' PEC AODR C=-S CTRL 
MDX CSADR BR TO LOOP 
S 3-1 RE-ADJ ADDR CTRLS 
STO 3 11 SET IN PROPER ADDR 
MDX L CYLEXs8 INCREMENT ERR CNTR 
BSC i CETRT RETURN TO CALL RT 
x x 
66.6666 Ob U6 0666. 000600 56.60.60 064 6085s bees 6b we 
* ? SET BAD PACK ERR SWITCH * 
x , , _ & 
To w6oe6 06666 66.0 06 066 0 .weo 065000066 65-6665 00660% 
DSKNG LD 3-47 GET NOP INST 
STO Lt ONGSW SET BR INST TO NOP 
ADX | CKCET BR TO SETUP 
¢ 
3 
x CE DATA ERR ROUT 
: | 
CeETyP DOC 0 . SAVE ENTRY 
BSI 3 FORM2—DCT BR TO MSAG FORM 2 
OC /EOCE — MSAG 3 =. 
Dc 0 NO ERR LOOP ADDR 
BSC I CETYP RETURN TO MAIN LINE 
* 
CESX3 BSI CETYP BR TO TYPE ERR MSAG 
MDX DNGSW BR TO CONTINUE 
x 
CESX7 BSI CETYP BR TO TYPE ERR MSAG 
; MDX CEXAT BR TO CONTINUE 
Keo eee eso SeoS SS SOS SFOS SOTESHSESEOOOSSECEL&OOOOO* 
* | ; we 
* | BEGIN ROUTINE 2 x 
* | x 
'Reees cece bose weree bob ees sees e0s Ses edese see ee* 
FOZAA LD 3 -1 SET WORD COUNT FOR 
- §To 3 13 READ 70 001 
LD 3 -49 ‘DESIRED CYLINDER ADR 
STO 3 11 SECTOR SET TO 000 
LOX Ll 1456 NUMBER OF SECTORS 
Vee eSSSe SeSSS OS SSOSSHSHSHSOSESESORSEOEESECEO* 
x x 
* : | SELECTION OF NEXT SECTOR* 
* . * 
Tocccceeececcrceeceseevecevessesvecvesscececeose* 
FO2ZAB STX 1 FO2XB SAVE X1 XTANT 
BSI 3-124 DCABP RT 
FO2SK BSI 3 -82 DCSK RT 
* BSI 3 -88 BCRD RT | 
MDX FO2AD ERROR RETURN ADDRESS 
Teeecese cesses seeeoseseeceseosesecesoressesns® 
x : ae PY ; ae: 
* IF ID IS OKs GEN NEW * 
* SECTOR ADDRESS AND * 
* CONTINUE TEST . * 
x * 
Rinccae Wd oe owe se wewese se ee beets cesceesesuce® 
FOZAC MDX L ODCT+lis-1 DECREMENT SECTOR ADR 
NOP | Oo  SAFTY NOP 
LOx I1 FO2KB GET X1 XTANT 
MDX 1 -l DECREMENT XR1 BY 2 
01JUL66 15NOV65 15 JUN67 
41964% 420317 


415490C | 


. 
i 


x . 


* 


PART NO. 2191216 
13 


PAGE 


30816350 


30816360 
30816370 


30816380 


. 30816390 


30816400 
30816410 
30816420 
30816430 


~ 30816440 


SX 


SE 


30816450 
30816460 
30816470 
30816480 


30816490 


30816500 
30816510 
30816520 
30816530 
30816540 


. 30816550 


SX 


MC 


30816560 
30816570 


30816580 
30816590 


30816600 
30816610 
30816620 
30816630 


30816640 
30816650. 
30816660 
30816670 


30816680 
30816690 
30816700 
30816710 


30816720. 


30816736 


- 30816740 


TE 


Sc 
sc 


30816750 
30816760 
30816770 
30816780 
30816790 
30816800 
30816810 
30816820 
30816830 
36816840 
30816850 
30816860 
30816870 
30816880 
30816890 


30816900 
30816910 


30816920 
30816930 


30816940 


30616950 
30816960 


30816970 


30816980 


- 30816990 


30817000 
30817010 
30817020 


PROG ID 0308-3 


‘PAGE 


13 


a 


See ee 


emer meenne ee 


_ OCF3 


OCFB 


- OCFD 


O0D02 


ce 


: lo 
: ‘ : ; 
4 f . 
\ 
/ S q , 
, Z / 
“ : a 
—— 


a : 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2315 DISK INITIALIZATION 


ocpDs 0 
OcD9 O 


OCDA 0 


OCDB 0 
ocoDc Oo 


TOFS 
4&39F 


C308 
F30C 
1803 


OCDD 01 4C200CE5 


OCDF 0 
OCEO O 
OCE1 O 


C308 
F30C 
100C 


OCE2 01 4C290CE9 


OCES 0 


OcEe5 0 
OCE6 0 
OCE7 O 
OCES O 


OCE9 
OCEA § 
OCEB 
OCEC fo 


/ 
OcED o 
CCEE 9 
OCEF O 
OCFO O 

8] 


OCFl 


OCF2 


OCF4 
OCF5 
OCF6 
OCF? 
OCFS 
OCF9 
OCFA 


OCFC 


OCFE 
OCFF 


OD00 
ODOi 


© 


0003 


OD04 0 


DATE 
EC NO. 


~moOoo e©0o0 S86 e0o0oooeooeooeo 980 


TOED 


4386 
- &3A8 
| 7005 


4£3A2 


4339 


E020 
OCCF 
&3A2 


4339 


F021 


co00 
43A2 


0000 


4388 


4380 


C3D8 
03068 
C3E5 — 
D3CGD - 


— &3AE 


4348 
7001 
700s 


43866 


 &3A8 


7001 
7004 


4339 


- £075 — 


OCF2. | 


4396 


C306 


OZ2JAN66 


415490. 


. & 


MDX FO2AB CONTINUE TEST 
BSI 3-97 DCRTN RT | 
Eee cc eee cee e eee OSes eeesseeeeseccansscsscceooeXr 
x x 
*. ERR ANALYSISS + LOGGING * 
x , ‘ % 
RVeececcosesescessescocesssescesccsvseccosesce® 
FOZAD LD 3 11 GET DESIRED ADDR 
EOR 3 12 CMP WITH ACTUAL 
SRA 3 CLR SECTOR/HEAD 
BSC L FO2AEs2Z BR IF CYL NOT EQ 
* 
LD 312 GET DESIRED ADDR 
EOR 3 12 CHP WITH ACTUAL 
St.A 12 CLR CYLINDER ADDR 
BSC Lt FO2AF,Z BR IF SECT/HD NOT EQ 
MDX FOZAC FALSE ERR CONTINUE 
z et 
FO2ZAE BSI 3 -122 _DRESK RT 
| BSI 3 -88 DCRD RT 
MDX FO2AG ERR RD RETURN 
BSI 3-94 RESTART EXIT 
FO2ZAF BSI 3 FORM2-DCT BR TO MSAG FORM 2 
DC /€020 -- MSAG = -- 
DC FO2SK LOOP ON ERR 
BSI. 3 -94 RESTART EXIT 
& 
FO2AG BSI 3 FORM2-DCT BR TO MSAG FORM 2 
DC /E021 -- MSAG = =~ 
DC 4) NO ERR LOOP ADDR 
BSI 3 -94 RESTART EXIT 
FO2XB DC 0 - Xl XTANT HOLDER 
* | | 
* 
Keone recese eS SOs SSOSSSEsessececsgrosecsesescon*® 
® . * 
ROUTINE 3 WR CE SECTORS * 
a % 
Tecccccccccccccccc cee cecccceceecccccescoeooe® 
FO3AA BSI 3 -120 RDY NBSY RT 
FO3AB BSI 3 =128 DCARM RT 
& 
FO3AC LD 3 -40 GET DISK ADDR 
STO 3=63 (11 SET ADDR 
LD 3 -27 GET | WC 
S770 «3113 SET WC 
BSI 3-82 — SEEK CYL 
BSI 3 -88 BR TO READ SUB RT 
MDX _ CESKE BR TO SEEK ERR RT 
MDX FOSéD ‘BR TO CONTINUE 
7 | 
CESKE BSI 3 -122 BR TO REZERO ARM RT 
me ; 
BSI 3 -88 BR TO READ SUB RT 
MDX SK2ER BR TO ERR MSAG RT 
MDX FO3AD BR TO CONTINUE 
s ae | ae 
SK2ER BSI 3 FORM2-DCT BR TO MSAG FORM 2 
DC -=———C~S EDT -- MSAG © =- 
DC FO3AA BR ERROR LOOP ADDR 
x 
BSI 3 -106 BR TO MONITOR END RT 
x : 
* CE SECT 7 SETUP 
% . . 
FO3AD LD 3 -48 GET 1313 PATTERN 
O1JUL66 15NOV66 15JUN67 
419643 420317 


415490 


nn 


CO 


SX 


sc 
sc 


Sx 
AC 


SX 
MC 


SX 


SEC 
sc 


sc 
$c 


Sc 
sc 


4C 


$X 


fo™~ 


s 
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30817030 
30617040 
30817050 
30817060 
30817070 
30817080 
30817090 
30817100 


30817110 


30817120 
30817130 
30817140 
30817150 


30817160 


30817170 
30817180 
30817190 
30817200 
30817210 
30817220 


30817230 


30817240 
30817250 
30817260 


30817270 


30817280 
30817290 
30817300 


‘30817310 


30817320 


30817330 


30817340 
30817350 


30817360. 
— 30817370 
30817380. 


30817390 


30817400 — 


30817410 
30817420 
30817430 
30817440 
30817450 
30817460 
30817470 
30817480 
30817490 


30817500 


30817510 


~ 30817520 


30817530 
30817540 
30817550 
30817560 


-- 30817570 


30817580 
30817590 
30817600 
30817610 


30817620 


30817630 
30817640 
30817650 
30817660 
30817670 
30817680 
30817690 
30817700 


PROG ID 


PAGE 


13A 


0308-3 
| USA 


ct 


4. 


OOO 








1BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2315 DISK INITIALIZATION 


oDOo5 


OD06 
ODO08 
ODOA 


ODOC 
ODOD 
ODOE 


ODOF 
0010 


0012. 
OD14 


0D16 
0D17 


OD18. 


0019 


OD1A 


0D18 


ODIC 
0D1D 
ODIE 
0D20 
0D22 


0D24 
0D25 
0D26 


0027 
0028 


OD2A 
oD2C 


OD2E 
OD2F 


0D30 
OD31 


OD32 


0033 


OD35 
0D36 
0D38 


OD3A — 


OD358 
oD3c 


0D3D 
OD3E 


0040 
0041 


DATE 


Ol 
01 


01 


oo oo oo 


01 
O01 
O01 


o 8c8oO S89O 


EC NO. 


438C 

C4000N8D 
4C180D0C 
44£000D7F 


C3F9 
EBDS 
D308 


/C3C7 


D4000AC7 


C€400UD8D 


D4000AC8B 


C3E5 
D30D 


4&3 AB 
TOAB . 


 4&3AB 


7017 


C3C6 
438C 
C4000D8D 


(4€180D24 


44000D7F 


C3FD 


' €8D8 


D308 
C3C7 


D4000AC7 


C4000D8D 
DGO000ACE 


43 AB 
7093 | 


G&3SAE 
7001 


T1002 
4C0' <2F 
7007 
66000A84 


6ECOO9EA 
4328 


E066 


0000 


CO4F 
4C180D7E 


C3Fl 
1004 


O2JAN66 
415490 


DFILL RT | $e 


BSI 3-116 
LD =6L) OCYLEX - GET ERR AMT 
BSC L FO3XYs+- BR NO ERR CAT 
BSI L FIOAX BR TO SET ERR IN IOA 
FO3XY LD 3-7 GET SECTOR ADOR 
OR 3 -40 OR IN ADDR OF CYL 
sto 311 ~~. SET IN SECT-CYL ADDR 
& ‘ 
LD = 3 57 GET CE 1D -- CEDC-- 
STO tL UOCDA+2 SET IN IOA 
% : ; 
tD  =t CYLEX . GET ERR AMT 
STO L OCDA+3 SET IN I0A — 
oe 
| LO 3-27 GET WC | 
STO 313 PUT IN DCT TBL 
BSI 3-85 WR CE SECT SEVEN SC 
MDX = CESXT BR TO ERR ROUT 
& - 
BSI 3 -88 BR TO READ SUB RT SC 
MDX CERDE BR TO RD ERR RT 
*& cent : 
x CE SECT 3 SETUP 


CEXA7 LO 3 -58 
BSI 3 -116 


415490C 419643 


GET PATTERN 


FILL IOA WITH SAME sc 


LO t CYLEX GET ERR AMT 
BSC L FO3XZy+—= BR NO ERR CNT . 
BSI Lt FIGAX BR TO SET ERR IN IOA 
& 
FO3XZ LD- 3-3 GET ADDR 
oR 3 -40 OR IN ADDR OF CYL 
STO 322 PuT IT IN DCT 
am 
LD 3-57 «| GET CE ID —- CEDC -- 
STO L DCDA+2. PuT ID IN IOA 
x 
LD t CYLEX GET ERR AMT 
STO L ODCDA+3 PUT WC IN IOA 
% 
BSI 3 -85 WRITE CE SECT THREE SC 
MDX CESX3 BR TO ERR ROUT 
| 
BSI 3 -88 BR TO READ SUB RT SC 
HOX CERDE BR TO RD ERR RT 
4 
HDX ONGSW BR TO CONTINUE 
= 
CERDE BSC L_  RWRT3 BR TO PRNT ERR MSAG SX 
* : < 
' DNGSW MDX ETEST BR TO TEST ERR CNT 
LDX L2 BDPAK GET REMARK ADDR 
STX 2 ALPHA. SET IN MSAG TWOPO 
BSI 3 FORMO-DC1 BR TO MSAG FORM O MC 
DC «E066 -—- MSAG = --— 
DC o NO ERR LOOP ADDR 
* . * 
PPE TE Perry ree rer eT ee eT Pee ee ET Te Cee Ti 
%. CE ERR TBL TEST RT * 
Berccevceccesceccsseseccsccesevececesccovcece™ 
* _ : |  # 
ETEST LD _ -CYLEX GET ERR CNT «SE 
BSC L DIPND»+— #£BR IF ZERO ERR CNT 
x 
WRCET LD 3-15 GET BASIC PRNT CTRL 
SLA 4 SHIFT FOR TOTAL CTRL 
OlJUL66 15NOV66 15JUN67 
420317 


PART NO. 2191216 


PAGE 


30817710 
30817720 


30817730 
30817740 


30817750 
30617760 
30817770 


30817780 


30817790 


30817800 — 


30817810 


30817820 
30627830 


30817840 


30817850. 
30817860. 


30817870 


30817880 | 
30817890" 
30817900 — 


30817910 


30817920 | 


30817930 
30817940 
30817950 
30817960 
30817970 


30817980: 
30817990. 


30818000 
30818010 
30818020 


30818030 | 


30818040 
30818050 
30818060 
30818070 
30818080 


30818090 


30818100 


30818110 | 


30818120 


30818130 


30818140 
30818150 


30818160 


30818170 
30818180 
30818190 
30818200 
30818210 
30818220 
30818230 
30818240 
30818250 
30818260 
30818270 
30818280 
30818290 
30818300 
30818310 
30818320 


30818330 


20818340 
30818350 
30818360 
30818370 


30818360 


PROG ID 
PAGE 


£ 
oS, 


14 


0308-3 
aap 


. 
RR, eT a OE RTE en 


AN 6 cewmnenatene: 
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2315 DISK INITIALIZATION 


0D42 
0043 
0045 
0D47 
0D49 
OD4A 
OD4C 
OD4E 


OD50 


0051 


0D52 
0053 
OD54 
OD55 


OD56 
OD58 
OD59 
0058 
OD5C 


0D5D 
OD5E 
ODS5F 
OD60 
0OD61 


) oD62 
OD64 


Y 0065 


OD67- 


Y OD69 O 


OD6B 

) OD6D 
OD6F 

Ov7] 

} OD72 
0073 

 On74 

) OD76 


O077, 


0078 
} OD79 


0078 
! OD7C 


OD7E 


OD7F 


| DATE 


01 
00 
01 


“O1 


01 
O01 


coo0co oooo°o0. 9000 OO 


EC NO. 


EBFI 
D40009E9 


6500CBAD ' 


60000927 


6200 


6EOO09EB 
66000A6B 


6EQOO9EA | 


~ C03C. 


D038 


6200 
6100 


C3F8 
‘D036 


C6000DA2 


4399 


DS0NO9SEC 


7101 
7201 


COzE 
O3FF 
4820 
TOF4 
6A29 


44800163 
O9E7 


66900D6B 


6EOQ005E5 
44800161 


67000940 
66800088 
C40009E9 
1884 
EBD2 
1084 


D40009E9 


COl3 
93F8 
D011 


4C200D53, 


1010 
D40009E9 


439F 


0000 


O2JAN66 


415490 


OR 3-15 
STO Lt DPCW 
LOX Li /CBAD 
STX Ll TROPA 
LDX 20 

STX L2 REMRK ~ 
LDX L2 ARIET 
STX t2 ALPHA 


LO CYLEX 


SET PARTIAL CTRL WD 


SET CTRL IN TWOPA 
BAD CYL ERR MSAG NUM 
SET ERR MSAG NUM OPA 
CLR NDX 2 | 

CLEAR ALPHA 2 

GET ALHPA PHRASE 

SET IN TWOPA 


GET TBL ERR CNT 
SET IT IN CTRL WD 
SET X2 CNT CTRL 
SET X1 CNT CTRL 


GET CNT CTRL. 
SAVE COUNT CTRL 


GET ERR ADDR 


BR TO CNVRT ADOR SC 
SET DEC ADDR IN OPA 
ADV CTRL X1 


ADV CTRL X2 


GET TW DATA WR CNT 
DEC CTRL 

SKIP IF ZERO 

BR LooP 


~ SAVE X2 INFO 


b~4 


PRINT CYL ERR TBL DATA x 


*« 
x 
Feocceccecseccecesseseeseseesssececevccesseose™ 
* 
* 


SPOSOHSHHSSCSSHSHSSSHSSHSSSHSOSHSHOSTSEHOHHGSHESBSESOBZEBLE 


STO ~—ETCNT 
+ 3 
-LDX 200 
LDxX 10 
iD 3-8 
WRCPL STO_ TWCNT 
= a. : 
LD L2 CYLET 
BSI 3 -103 
STO Ll MSG 
MDX 11 
MDX 21 
* : 
ree oe TWONT 
 § Bel 
BSC 2 
MDX WROPL 
STX 2 X2SAV 
x 


Po 
x 


RAMA KEKE SSSECRKETKKSKSSHKSSKERHKKKE SKATES 


PRTBL BSI I LOG 
OC TWOPA 


CALL MON LOG RT . sc 
TYPE OUTPUT AREA 


me ag ae sk ak ae a REE RAK KK SEKSEKKSEKEKKEKSERSEK SKA SKKK 


x 
* 
& 
LSTRT LDX L2 LHOLD 
- $TX L2 MLSCF 
x 
BST 1 
x 
LHOLD LDX L3 DCT 
LDX 12 X2SAV 


GET MLN ENTRY 
SET IN CTRL FOR MON 


BR TO MONITOR 


SET X3 CTRL ADDR 
GET X2 HOLD INFO 


LDL. DPCW GET PRNT CTRL 
SRT 4 SHIFT FOR SETUP 
OR 3-46 OR IN MULTI-LINE CTL 
SLT 4 SHIFT TO NORMAL 
STO L DPCW SET 1T BACK IN TWOPA 
LO ETCNT GET CNT FLD 
S 3 -8 DEC LOOP CNT 
STO ETCNT SAVE NEW TOTAL 
BSC Lt WRCPL-29Z2 TEST IT — NOP IF 2RO 
= 
: SLA 16 CLR ACC 
STO L ODPCW CLEAR CTRL WORD 
me ow at 
DIPND BSI 3 -97 BR RETURN ne ASK 
xz . 
: , 
x 
x 
* . = 
FIOAX DC 0 SET IN RETURN ADDR = SE 
O1JUL66 15NOV66  15JUN67 


415490C 419643 


420317 | 
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30818390 


30818400 


30818410 
30818420 


30818430 | 


30818440 
30818450 
30818460 
30818470 
30818480 


30818490 - 
30818500 
30818510 


30818520 
30818530 
30818540 
30818550 
30818560 
30818570 
30818580 
30818590 
30818600 


30818610 | 


30818620 


30818630 © 


30818640 
30818650 
30818660 
30818670 
30818680 


30818690 


30818700 
30818710 
30818720 


30818730 — 


30818740 
30818750 
30818760 


30818770. 


30818780 
30818790 
30818800 
30818810 
30818820 
30818830 
30818840 
30818850 
30818860 
30818870 
30818880 


30818890 


30818900 
30818910 
30818920 
30818930 
30818940 
30818950 
30818960 
30818970 
30818980 


30818990: 


30819000 
30819010 


30819020. 


30819030 
30819040 
30819050 
30819060 


PROG ID 
PAGE © 


146A 


0308-3 
146A 


i ' 
Oe mgs" Oh OR ee er geek 


JBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2315 DISK INITIALIZATION 


OD80 01 65800DED _ Lox oT) CYLEX SET ERR CNT IN X2 


SX 


SE 


$C 


SX 


sc 


SX 


OD82 O21 C5OO0DA) FIOAY LD L1 CYLET~-1 GET FIRSTADOR 
OD84 O1 D5000ACB STO t21 OCDA+3 PuT IT IN IOA 
OD&S6 OQ TIFF MDX 1-1 DEC INDEX CTRL 
. OD87 0 TOFA . MDX. FIOAY BR LOOP 
0088 01 4CB800D7F FIOAZ BSC I. FIOAY RETURN TO AINLINE 
: * ; : ‘ ; 
*% A — 
OD8A 0 0000 | ' ETCNT OC 0- LINE CTRL COUNTER 
- 0088 0. 0000 . X2SAV OC 0 INDEX 2 SAVE INFO 
opsc 0 0a0d00d  ° “TWCONT OC. 0 LINE COUNT HGLDER 
OD8D 0 0000... CYLEX DC 0 SECT ERR CNT 
ts : , py 
* END OF WR CE TEST DATA #* 
* | x 
a a a A aN haa 
* | | . oy 
* ALTERNATE PATTERN RT ad 
* = 
P Ke ecesceSooes OSS OSOGOVOOseodOeODe CED FC LEOCE CROCE 
* | | | 
| : * oo 
ODBE 0 C30B PATRT 1.0 3 11 GET ADDR 
ODSF O 1000 . SLA 13 313°T0 BO 
0090 01 4C280D9D . BSC L TST105Z+ BR IF HEAD i 
* 
0092 0 C30B ‘TSTOO £Dso3 1 GET ADDR 
0093 0 4804 BSC . E SKIP IF ADDR EVEN 
0094 0 7004 - . -_ MDX PATES. BR TO SET E5E5 PAT 
; ; : =. : 
. 0095 0 C3DO PATI3 LO 3 -48 GET PATTERN 1313 
OD96 O 438C - BSI 3 -116 BR TO FILL IOA 
0697 01 4c000CeO BSC L FOLWR BR TO WRITE RT 
0099 0 C3C6  PATES LO 3 -58 GET PATTERN E5E5 
OD9A 0 438C. BSI 3 -116 - BR TO FILL IOA 
0OD98 01 4C000C80 | BSC L.FOLWR ‘BR TO WRITE RT. 
OD9D OG C30B . JST10 LD 3 11 GET ADDR 
OD9E 0 4804 BSC  €£ SKI? IF ADDR EVEN 
ODS9F O 70F5 . - MDX PAT13 BR TO SETUP PAT ES 
ODAO 0 TOFS. a MDX  PATES BR TO SETUP PAT 13 


% 

ODA2 0140 CYLET BSS E 320 CYLINDER ERR ACCUM 

| ~MSBSRSLESSHRSSSSESSSSSETSSSCSKSSSSTCECSESSESESE 
KEKKKSCSKKKEKKKKREKKARKKKAEKSERKSKRARKCKKK AERA RK KH 


Reocccccccsecccecesvsccccccecccccceccvcescsecceek 


x | . bo 
* END OF INITIALIZATION * 
s . % 


Prcccccccccccccccccccvecccccecceccocecocosent 


KKERKKRKAREKSKKKKKKCKKKKRSEKKKSEKSEKIEKEKKE KAHL KES 


ae ® 
OEE2 0002 OMEGA BSS E 2 a a : 
OEE® OSED END EXEQD BR TO BEGIN XrER RT 
DATE — O2JAN66. O1UUL66 15NO0V66  15JUN67 
4156900 419643 


EC NOs 415490 420317 


CREC ERECT RESET ESSERE SESE SAE S es eee ESSE EEE ES 
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PAGE | 


30819070 


30819080 
30819090 
30819100 
30819110 


‘30819120 


30819130 
30819140 
30819150 
30819160 
30819170 
30819189 
30°19190 


30819200 © 
30819210 


30819220 
30819230 
30819240 
30819250 
30819260 
30819270 
30819280 
30819290 


30819300 . 


30819310 
30819320 
30819330 
30819340 
30819350 
30819360 
30819370 
30819380 
30819390 


30819400 


30819410 


30819420 


30819430 
30819440 
30819450 


30819460 


30819470 
30819480 
30819490 
30819500 


- 30819510 


30819520 
30819530 
30819540 
30819550 
30819560 
30819570 


' 30819580 


30819590 
30819600 
30819610 
30819620 
30819630 


30819640. 


PROG 1D 
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es 
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15 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2315 DISK INITIALIZATION . 


CROSS REFERENCE LISTING 


SYMBOL VALUE REFERENCES 
ABP O8C4 0883 

 ADATA  0A52 09BS 
ALPHA O9EA 06BA,07317096F 9 098Es 09064 09D3,09E0, 0038, 0D4E 
ARC . O8D9 - 0A4S6 
ARIET  OA6B - OTOF »0D4C 
ARM osco 0869 
ARMNH O47D 0688 
AWEAX  0OA60 — O9RS | 
BDPAK OA84 0D36 
BEGIN 0160 O5E9 

CALLM = O9FCT 09cD 

-CCRIN  O9FB 
CDTBC 0783 O7FO 
CDTGX O7F9 070D,07F8 
CDTLK O7E9 0s0c 
CDOTNR 0702 + + i O8F7 


CDTRC 07CO0 
CDTRT 0780 


07CA,0826 
074250765907D7,07F 740825 


CDTSE O7CE 072 
COTSN O7D9 0746 90769,07F9,07FB 
CECAB OASC - O72F ; 
CERDE 0033 - 0D1B,0D32 
 CESKE OCcFC OCFA 
CESX3 © OCC3 oD2F 
CESX7 OCC5 0019 
CETRT  OC9A 0C97,0CB7 
CETYP OCBD 0CC1,0CC3,0CC5 
CEsAT? © OD1C OCC6. 
CHNBZ~ 0831 089E 
CHNRA O8AE | 
CHNRL O8AC oscr 
CHNRQ 089C - 0831,08C8 
CHNSA O89F 
CKCET OCAl —— OcBC 
CSADR  OCAD- ocB2 ~~ 
CTLOG 0Al1 09C0»09C3,0A2A,0A28 
CYLEC 0C99 0C78,y0C9B,0C9F | 
CYLET  ODA2 0706, 0CAD,0056,0D82 te 
CYLEX  cDeD 0700 90704500 76,0CAl yO0CATs0CB5¢000690012,0D1E,0D2A,y 
_ 0D3D,0D5040D80 , 
DARM =: 0845 o85F 
DARMX 085A 0852 
‘DARTH 0860 — 084C 
DARTN 085C - O8F6 
DCABP O87A 08cs 
DCANH 0688 O8E6~ 


DCARM 0843 0674,084E »085070865,08C1 


DCBPR 0883 0840,087C,0880_—i=g. 

~DCDA OACS 0740,0763+076B 0785s 07DF 40805 + 08460941 ,09B1, 010 
| ra ah alae 

OCDLA 0882 - ©08D1 

OCDSW osBC - 0803 

DCE ~0c57 

DCEOD 06BD aa ca aha 

DCNHM O6A7 O6A4 . 


DCRAB OTAE 


DCRD 0756. saa raa 6 1anetHeOceean 


OCROY 0890 0898.08C9 

DCREL O7AS 076450780 

‘OCREL 0798 0774,078C 

DCRE2 0799 077550794 

DCRGA 079A O76F 

DCRND 0686 06Ci 

DCROK O7A0 0798 

DCRTN 06A) 0725,08E0 

DATE O2JAN66 O1JUL66 15NOV60 15JUNE7 

419643 420317 


EC NOw 415490 415490C€ 
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18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 2191216 : IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM See NO. sara 
| | 16 A 
2315 DISK INITIALIZATION 2315 DISK INITIALIZATION 
DCR10 0758 0756 FIOAX  OD7F OD0A,0D22,0088 
DCR1I2 O75C 0792 FIOAY OD82 OD087 
DCR16 0765 0760 FIOAZ onse- . 
DCR19 O77D 0784 FLX = © oscc © O8AA 
DCR20 0782 0776 FORMO.° 0968 O5F4506BF 50 7332096990D3A 
DCR2] 0785 o772 FORM]. - 0971 0712390719+C71Ce07C8»0856708984,0972 
DCR22 0780 0797 : FORM2. °°: 0979°-- 06CC 207785078} 90785,097Ay0C 90,0094, CCBE, OCE9,OCED, 
DCR23 0793 0789 es ee DOO 7 
DCSK o080D 082E,08EF | ; FORM3 - 0994 > 0395 
DCT 0940 O5EC 5 05F4,05FD,06071066D10671 9067F 0681 » 069%, 06AFy FORM4 = O9AT: O7E2,07F5,09A8 
06B4 e OGBF 6 06C2 5 06CC s O60F 907195073320743,0766e07TB, ; FORMS O9B7.- 06B4,09B8. 
077Ds0781 907859070 890702 907EZ xO TES yOTF2y07F5, 0827» } FRMSA ~— O9CE 0424,0A26 
06564 0685C 50887 +0598, 08BS 1 0A0F 1 0A1390A1Ay0CB4%y 00904 FRM5B° O9DB ~ O9CEs09E6 
a" | 06949 0CBEs 0CD2 4 0CE9+ OC ED» 0000 003A» 0068 : FRTRD: 0OA58& 0989 - 
DCTL1 0660 0670 ) FOIAA OCT3_ 069C 
DCTL2 0671 — 05E3,0606,08F5 FOLAB OC7C ocs9 
DCTL3 0678 O6AD | . FOIAC OCB 0c98 
DCTL4 0681 069A»06D3 } FOLAE 0C90 0c81 
DCTL5 0698 067D,06A9 FOIAF 0C94 _— ocs3 
DCTL6 0694 068B,068D,0696 - = FOIRD 0oC82 0C9350C96 © 
DCTRL 0668 0660,08E3,08F4 } FOISK OC7D_ 
DCWBB 0754 : FOlIWR OC80 0C92,0D97,0098 
DCWEL 0748 o748 : FO2ZAA OCC7: 069D 
DCWR 0737 0753,08EC.0C&B ) FO2AB voccod ocDe 
DCW10 8 073C 0737 7 FO2ZAC oCD2 - O72D,0CE4 
DDSA 069C 0685 -FO2AD OCDA OCD) 
DEND OBES ) FO2ZAE ' OCES OcDG 
DEXEQ 08683. o0sc3 FO2ZAF OCE9 OcE2 
DEXIO 0878 087%,0875,0991 FO2AG OCED OCE7 
DFILL O8A4 08A9,08CD FO2SK  OCCEF OcEB 
DIPND ODTE OD3E FO2xXB OCFi 072A,0CCD»0CD5 
DLA .-—- O8DO -- O6BA FO3AA OCF2 069E ,0D02 7 
DLABB 08Bs 0900 FO3AB OCF3 
DLAND 06D8 0605. FOBAC OCFS 
DLNRT 06C2 06D7,08F9 FO3AD OD04 OCFB,OCFF 
DLNRL 0604.  O6C9. FO3XY ODOC oD08° ts 
DNGSW O0D35 OCBA,0CC4,0D32 7 FO3X2 O0D24_ 0D20 
— DPCH. O9E9 096E ¥0975,097F 509989 09AD» 09BE y0A22 9 0A23, 0043, 0DSF» HCAPL  O0A48 0A33,0A44 
0D74,0D7C HCAP2  OA49 OA37,CA4S2 
DRD O8E8 O7A0,07AE HCAP3 OAGA OA3B,0A40 © 
DRESK 0885 osc? HCAP4 OAGB _ O0ASS5 
DSK O8EE 0814,082F HOSR  OSEB -096D,0977097D,099A,09AB,09BD 
DSKAC OA2E O8DA HLDSK 0655 0602-060D 
DSKNG OCB9 -0C9D | HNG — 08D4 : : 
DSK10 0820 0816 ) ILO 0=——é«=ODL TVW 
DSK20 08246 OsiF : IL1 O18A 
DSK30 0827 OsFs { IL2 O19A 06255 062F 50639 906439064D 
DSPLA O7FD O7E8 . Pe IL3- OLAA } | 
DSPLP O80C 0809 : IL4 O1BA 
DSPX1 O80. 07FD,0804 i INDSH OA4C o098C 
DSW oBD2 O8BE . 4 INITL OSEC 0564,05F7,0605 
DSWER “ABC O7C4 LCKAF O6FL O6F2 ,06FB,06FD,0751107AB,082C 
DVA 06DD 0620062406344 063E 10648 1 0BA0 LHOLD OD6B 0065 | 
CYR - O8EB 0749,0754 | LIV O5E6 06D9+06EC »086D 
tH O8Fi O8F2 LNTRP 0A96 ines 
END 0164 0686,08D7 LOG © 0163 OAOC ,0D62 
ERLCK 0166 GoF6 LOGBY 0167 
ERROR 0162 OA06 LSTRT OD65 
ETCNT ODBA -0D51,0076,0078 MCALL O9CD 0970,0993 
ETEST  0D3D 0035 } MEND O08D6 | | 
EXEOD O5E9 OEE4 MFST 0650 061E 7062890632 4063C 16646 
Exo 08C2 0876 MLN = OSET - 05F9,06E4,0833,08B5 
FILEX 0607 O5F0 MLSCF O5E5_ 065E > 068F »0A17,0D67 
FILEO  O61E - 061120610 MSG O9EC 07170982 40985 50988y09909099Ds 099F 509A1,09A3,09B0y4 
FILEl 0628 0613 | 0983509C8,09C4 909CC 090590907 9090997 09E2 5 09E4,0D59 
FILE2 0632 © 0616 NORTN OAT78_ 06BD 
FILES 063C 0619 NTRDY OA91L 0894 
FILES 0646. O61C . NTRER 06FO 06E6,06F0 
DATE | O2JAN66 O1JUL66 I15NOV66  15JUN67 PROG ID 0308-3 : DATE O2JAN66 + O1JUL66 15NOV66  15JUN67 PROG ID 0308-3 
EC NO. 415490 4)5490C 419643 420317 PAGE 16 . EC NO 415490 4154900 419643 420317 PAGE 16A 
| | | 
a oY GR Pex pede wo le a Pa Can ae eo pti ae eS, rR wrx es ae EOS “ — es — on os os aN i. (a ca —" 
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2315 DISK INITIALIZATION | a 


NTRPT O6DE 0623 .062D 10637, 0641,0648,06EE 
NTRST O6E6 
NTRXT O6EE 
OMEGA OEE2 


PATES 0D99 0094,0DA0 

PATR:  ODBE OC7E 

PAT13. 0D95  OD9F 

PID O50C — OSEB 

PRTBL 0062 a 7 

RAD ——sSO5DE 0087 I 

RCY o8cs 0892 | | : | 
REL —S«- GBCE 0880 : | : : ; 
RELOV 0661 0662 90664, 08AC | | 

REMRK O9EB —s 07119. 070.69 085440896 5096810988 509BB 9 OD4A 

REQ OSCA O8A2 , | 

REODV 0666 066750669, 089C 

REST OBE2 | 

RID 0500 0683 

RLPGM OS5FD 065C 


ROKB OLDA 
ROTY O1CA 


RSK 08ce O88E 

RIN O80F 

RINSW 0165 0689 | 

RWACK  COFF 0700,0738,0757 

RWCKA 0706 070C . 

RWCKT O70F 0709 

RWCKX  070D 0702 

RWRT3 O72F 0720,0033 | | 

SACTL 0656 0627, 063170638 906452064F © 

SELDU OACO O5F2 

SETUP OCA9 

SKADJ 0837 0882 | \ 
SKOUT  O83€ 083A,083D a 
SK2ER O0D00 OCFE 

START 0161 O5FB,0691 -06DB -0835s08DDs 9069 

STATL OAA2 09C4 

STAT2 OAAC 0901 

STAT3 OAB6 O9DE | ; 


STRT osoc 
SVKB OlEA 


SwWO OSDF 06F4 

SW O5E0 067B,06A7 

SW2 05E1 05EE,0601,060A 

SwW3 O5E2 0641407£5,0800 

TERM O5E8 OSEF,08Al,08AF 

TSTOO 0D92 | 

TST10 OD9D 0D90 

TWCNT OD8C 0055 -0D5D 

TREND OALA 0a15 

TWERR 0°06 OA04 

TWERM  O9BC 097B,09A46,09B6 

TWLOG OAOB 09DA,0A00 

7 MLB 0A24 C9D0,09DD,0A28 

TWMLP) =: OA20 09C1 

TWMLR 0A26 OSDB | 
TwOPA  09ET7 O9FD ,0A08,0A0E 9004750064 
THRTIN UALS OAOA, 0A2C 

TWX1H = OAZD . 0A05 40A08,0A1C 

WRCET  O0D40 

WRCPL OD55 0D60,0079 

X2SAV  ODBB 0061.0D6D 

DATE O2JAN66 O1JUL66 15NOV66  15JUN67 PROG ID 0308-3 


EC NO. 415490 415490C 419643 420317 PAGE 17 








ie / ahs . alae a ms a 
CO 
wy / ] Neo at 

liom MALNTUNANCE DIAGNOSTIC PRIJGKAM FOR THE 1130 SYSTEM 


23lUtb EFUNCTIUN TEST 


TABLE OF CONTENTS 

i. PURPOSE o © © e© © «© @ © © © © e@ © © © © @ @ 
Ze PREREQUISITES «© « « « «© «© «© © © © © © © © 
Be USE PROCEOURE . . «2 «4 ee «© @® e e@© e@© © © @© @ »® 

3el PROGRAM LOADING 

302 PRUGRAM OPERATION 

343 PROGRAM HALTS 

3e¢4 © PROGRAM TERMINATION 

325 PROGRAM RESTART 
4e PRINTOUTS .« « e * e © #® e© © e# e©# © #©# © «© @ @ 

4.1 STATUS MESSAGES 

4.2 COMMAND MESSAGES 

4.3 DATA MESSAGES 

4.4% ERROR MESSAGES 
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23108 FUNCTION TEST 


VATE 


cl 


NU es 


le PURPOSE | 
THE 23108 FUNCTION TEST IS DESIGNED TO -TEST EACH FUNCTION OF THF DISK FOR 
COMPLIANCE WITH THE PRODUCT SPECIFICATIONS. 
THIS TEST IS WRITTEN TO ACCOMMODATE SYSTEMS WITH ONE OR MORE "13SD* DISK 
DRIVES. ANY ONE OF THE DRIVES MAY BE SELECTED TO BE TESTED. 
2% PREREQUISITES 
THIS PROGRAM MUST RUN UNDER CONTROL OF THE 1130 DIAGNOSTIC MONITOR. THE 
DIAGNOSTIC MONITOR USES 1,500 STORAGE WORDS AND THIS PROGRAM USES 27598 
STORAGE WORDS, SO THAT A 4K MACHINE IS SUPPORTED. 
THIS PROGRAM REQUIRES THAT A DISK WHICH IS INITIALEZED BY THE 2315 DISK 
INITIALIZATION PROGRAM (0308) BE INSTALLED ON THE OISK ORIVE TO BE TESTED 
PRIOR TO THE EXECUTION OF THE TEST. ANY INITIALIZED PACK WILL BE ACCEP- 
TABLE,» INCLUDING AN 1130 DIMAL PACK. 
3. USE PROCEDURE 
351 PRUGRAM LOADING 
3.1.1 PROGRAM DECK OR PAPER TAPE 
TO LOAD THE PROGRAM DECK OR PAPER TAPE, USE THE STANDARD 
LOADING PROCEOURE AS DESCRIBED IN THE DIAGNOSTIC MONITOR 
USE PROCEDURE. 
301.2 USING 1130 DIMAL 
le USING 1130 DIMAL, PUT ONLY ONE COPY OF THE 2310 DISK 
FUNCTION TEST ON THE DIMAL PACK. SEE DIMAL OPERATING 
PROCEDURES FOR INSTRUCTIONS. 
2. TO EXECUTE ONE OR MORE 2310 FUNCTION TESTS IN OVERLAP, 
| IPL THE DIMAL COLD START LOADER, SELECT PROGRAMS TO BE 
EXECUTED (09 FOR DISK TEST). LEAVE BIT 15 ON WHEN THE 
DISK PROGRAM IS BEING LOADED. THIS IS THE MONITOR 
HALT BIT. SELECT THE DISK: TN BE TESTED USING SWITCH 
FNC 2 BEFORE EXECUTING THE DISK TEST. 
3. TO EXECUTE MORE THAN ONE DISK TEST, SELECT PID 09 FOR 
EACH DISK TO BE TESTED. A COPY OF THE DISK TEST WILL 
BE LOADED INTO CORE FOR EVERY DISK TO BE TESTED. SELECT 
A DIFFERENT DISK TO BE TESTED FOR EVERY PROGRAM LOADED, 
USING SWITCH FNC 2, BEFORE EXECUTING EACH TEST. 
3.7 PRUGRAM OPERATION 
Cee | PROGRAM EXECUTION 
Ae LOAD AND GO MODE 
IF BIT SWITCH 15 IS OFF WHILE THE PROGRAM IS LOANED, 
THE PROGRAM WILL SE EXECUTED WHEN LOADING IS COMPLETE). 
ALL TESTS WHICH ARE NORMALLY RUN WITH ZEROES IN THE 
PROGRAM SWITCH OPTIONS WILL BE EXECUTED. 
NOTE--LOAD AND GO MODE MUST NOT RF USED WHEN RUNNING 
MORE THAN ONE DISK TEST IN OVERLAP, OR WHEN THE 
THE ORTVE TO BE TESTED ITS NOT THE CPU DRIVE. 
UZ JANGE 15 JUN66 LONUV66 LSJUN67 LSFEBOB OLAPR69 PRIG ID 
415490 415490C 419643 420317 420403 571036 PAGE 
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231Ubn FUNCTION TEST 


DATE 


_ O2ZJANG66 
EC NU. = 415490 
a ars ~ 


342-2 


PAGE 


PAUSE BEFORE EXECUTION 


IF BIT SWITCH 15 IS ON WHILE THE PROGRAM I[S LOADED, 
THE PROGRAM WILL NOT BE EXECUTED WHEN LOADING IS COM-— 
PLETE. THIS MODE MUST ALWAYS BE USED WHEN EXECUTING 
MORE THAN ONE DISK TEST IN OVERLAP, OR WHEN THE DRIVE 
TO BE TESTED IS NOT THE CPU DRIVE. THE DRIVE TO BE 
TESTED MUST BE SELECTED USING SW FNC 22 THE FOLLOWING 
PROCEDURE MUST BE USED TO EXECUTE THE PROGRAM(S). 


l. SET UP THE DESIRED OPTIONS AS SPECIFIED IN SECTION 
Ze20e24 FTF NO OPTIONS ARE DFSTRED, PROCEED TO THE 
NEXT STEP. 


20 START PROGRAM EXECUTION BY SETTING HEXADEC IMAL 0X80 
WHERE X IS THE PROGRAM 


IN THE DATA ENTRY SWITCHES, 
SEQUENCE NUMBER. 


36 DEPRESS CONSOLE INTERRUPT. AFTER A PRINTOUT OC- 
| CURS, THE PROGRAM WILL BE FXECUTED. 


PROGRAM SWITCH OPTIONS 


THE OPERATOR MAY MODIFY THE EXECUTION OF THE PROGRAM ANY TIME 


BEFORE 


OR AFTER IT HAS STARTED EXECUTION BY ENTERING PROGRAM 


CONTROL OPTIONS OR ROUTENE SELECTION OPTIONS. 


THE OPTIONS ARE SELECTED AS FOLLOWS. 


1 5JUN66 
415490C 


Ae 


Be 


C. 


SET BIT SWITCHES ACCORDING TO TABLE 1. 

DEPRESS CONSOLE INTERRUPT AND WAIT FOR PRINTOUT. 

If MORE OPTIONS ARE REQUIRED, REPEAT STEPS A AND Be 
15NOV66 15 JUN67 15FEB68 OLAPR69 PROG ID 
419643 420317 420403 - 571036 PAGE 
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DIAGNUSTIC PROGRAM 


TABLE le 


FOR THE 1130 SYSTEM 


1130 DISK 


PART NM. 2191214 
PAGE 2A 


TEST OPTIONS 


DATA ENTRY 


SWITCH POSITION 


im INDICATES NOT USED AND D INDICATES DATA) 


« DESCRIPTION OF 
« OPTTONS a 


~ RFSTART PRUGRAM 

| PRINT ALL CMP FPRORS 

. Loop PROGRAM 

» LOOP ON ERRAR 

. BYPASS STATUS PRINTOUTS 
. HALT AN ERROR 


HALT PROGRA' 


~« RUN ALL NORMAL ROUTINES. 
« RUN ROUTINE "NDOD* CHEX) 


~« RUN SEEK TIMING TEST 


TEST CPU DRIVE 


TEST ORIVE 1 


» TEST ORIVE 2 
« TEST DRIVE 3 


TEST DRIVE 4 


O01 . 
00 : 
Ol : 
io ° 
DATE 02 JAN66 
EC NU. 415490 
ox 


PROGRAM ° 
SEQUENCE — 
NUMBER ‘ 
234567 : 
00PPPP : 
OOPPPP ; 
o0PpPPP ‘ 
15JUN66  15NOV66 
415490C 419643 
x ae oe 


1 xX 
X | 
X 
X 
; 
X 
X 
0 9g 0 
0 oO 90 
Oo Od 0 
0 O Q 
0 0 QO 
0 90 QO 
0 QO O 
0 90 9 
1SJUN67 
420317 


l 

1 
0.0 0 
Db op) Oo 
1 1 0 
0 0 0 
09 0 O 
0 0 1 
0 1 0 
1 0 0 
15FEB68 
420403 


PROG ID 0309-% 
PAGE 28 


OLAPR69 
571036 
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LBM MALINNTENANCLE DIAGNCSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191214 
PAGE 3 
231UB FUNCTION TEST 
TABLE 2. DSW BITS 
OSW BITS MEANING 
0 12 3 4 5 6 7 8 910 11 12 13 14 15 
se elem elUXMCUKMCUKMUKUK OK KX KX Bw 
a a ee eeeee SECTOR COUNT (TWO BITS) 
«eh lw ew) we CARRIAGE HOME 
» ee) hw DISK BUSY {READ/WRETE/CONTROL) 
» «  eeDISK NOT READY 
»  eeCPERATION COMPLETE (W/INTERRUPT) 
« eDATA ERROR 
33203 PATCH OPTIONS 
THERE ARE FIVE PATCH OPTIONS AVAILABLE WITH THIS PROGRAM. TO USE 
ONE OR ALL OF THESE OPTIONS, MAKE UP PATCH CARO(S) AS SHOWN. 
EXXXX DDOD 
.° % eeeeee DATA TO BE ENTERED IN SPECIFIED CORE LOC'N 
«wee eescccce "CORE ADDRESS* TAKEN FROM PROGRAM LISTING 
occccccccesecse L2-PUNCH IN COLUMN ONE (1) 
NOTE -— THESE PATCH GPTIONS: MAY BE INSERTED, AFTER PROGRAM LOAD, 
THROUGH THE CONSOLE SWITCHES BUT GREAT CARE MUST BE TAKEN 
TO COMPUTE CORRECTED ADDRESSES USING NECESSARY RELOC- 
ATION FACTORS. 
1. SELECTION OF FIRST RANDOM NUMBER TO BE USED BY THE RAN- 
DOM SEEK ROUTINE (3). THIS NUMBER WILL BE USED AS 
THE FIRST RANDOM NUMBER ON EVERY ROUTINE PASS. TO 
SELECT THIS OPTION, DETERMINE THE ADDRESS OF THE VAR- 
[ABLE *RNDSK* FROM THE PROGRAM LISTING. THIS ADORESS 
IS THE "CORE ADDRESS* TO BE PUNCHED IN THE PATCH CARD. 
THE RANDOM NUMBER TO BE INSERTED SHOULD BE TAKEN FROM 
A PREVIOUS SUMMARY PRINTOUT, LINE 5. 
VATE U2ZJAN66 1L5JUN66 LS5NOV66  1S5SJUN67 LSFEB68  OLAPR6I PROG ID 0309-* 
cr WU. 415490 415490C 419643 420317 420403 571036 PAGE 3 
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231Ub FUNCTION TEST 


VATE 
EC NU. 


3.3 


O2JAN66 
415490 


SELECTION OF FIRST RANDOM NUMBER TO BE USED BY THE RAN- 
DOM PATTERN WRITE-READ ROUTINES, 9 AND 10. THIS NUMBER 
WILL BE USED AS THE FIRST RANDOM NUMBER OF THE FIRST 
PATTERN GENERATED, ON EVERY ROUTINE PASS. TO SELECT THIS 
OPTION, DETERMINE THE ADDRESS OF THE VARTABLE *RNDWR! 
FROM THE PROGRAM LISTING. THIS ADDRESS IS THE *CORE 
ADDRESS* TO BE PUNCHED IN THE PATCH CARD. THE RANDOM 
NUMBER TO BE INSERTED SHOULD BE TAKEN FROM A PREVIOUS 
SUMMARY PRINT, EITHER LINE 6 OR LINE 7, DEPENDING UPON 
THAT WAS FAILING. 


OPTIONS 3% 43 AND 5 BELOW ALLOW CONTINUATION OF RANDOM GENER- 
ATION FROM A PREVIOUS LOAD OF THE THE PROGRAM. THESE PATCHES 
ALLOW THE CE TO SPECIFY THE STARTING POINT OF THE RANDOM 
PATTERNS. VALUES TO BE ENTERED CAN BE FOUND IN THE LAST 
SUMMARY TABLE PRINTED. 

36 SELECTION OF FIRST RANDOM NUMBER OF THE FIRST PROGRAM 
PASS ONLY, TO BE USED BY THE RANDOM SEEK ROUTINE. THIS 
OPTION WILL CAUSE THE RANDOM PATTERN GENERATION TO © 
CONTINUE FROM THE LAST NUMBER USED ON PREVIOUS LOADS OF 
LOADS OF THE PROGRAM. THE ADDRESS OF THE VARIABLE 
*PRNSK* [TS THE §CORE ADDRESS*' TO BE PUNCHED ON THE PATCH 
CARD. 


SELECTION OF FIRST RANDOM NUMBER TO BE USED BY ROUTINE 
NINE (9). THIS PATCH WILL CAUSE THE RANDOM PATTERN GEN- 
ERATION TO CONTINUE FROM A PREVIOUS LOAD OF THE PROGRAM. 
THE ADDRESS OF THE VARTABLE ‘*LRN1*® [S THE "CORE ADDRESS* 
TO BE PUNCHED IN THE PATCH CARD. 


SELECTIGN OF FIRST RANDOM NUMBER TO BE USED BY 
DOM WRITE-READ ROUTINE (10). THIS OPTION WILL 
THE RANDOM PATTERN GENERATION TO CONTINUE FROM 
VIOUS LOAD OF THE PROGRAM. THE ADDRESS OF THE 
*LRN2* IS THE CORE ADDRESS TO BE PUNCHED 
CARD. 


THE RAN- 
CAUSE 

A PRE- 
VARIABLE 
IN THE PATCH 


PROGRAM HALTS 


THIS PROGRAM HAS ONE ERROR TRAP (70OFF), IN THE SEEK TIMING ROUTINE (0). 
THIS TRAP WEILL OCCUR IF THERE IS NO INTERRUPT FROM THE DISK AFTER 

A SEEK X10 IS EXECUTED. THE FUNCTION TEST WILL HAVE TO BE RESTARTED 
USING THE SWITCH OPTIONS TO CONTINUE. 


NOTE ~— THE SEEK TIMING TEST IS A SPECIAL ROUTINE AND MUST 
BE SELECTED IN ORDER TO BE RUN. | 

PROGRAM TERMINATION 

THE PROGRAM WILL NORMALLY TERMINATE AFTER GQNE COMPLETE PASS, 


UNLESS THE DIAGNOSTIC MONITOR OPTION OF LOOP ALL PROGRAMS IS 
SELECTED. SEE DM USE PROCEDURE FOR THIS OPTION. 


THE PROGRAM CAN BE MANUALLY TERMINATED IN ONE OF TWO WAYS. 


1. BY THE MONITOR HALT OPTION (BIT 15 ONLY). 
2- BY USE OF THE HALT OPTION (SEE SW OPTIONS). 


THIS PROGRAM WILL ALSO BE TERMINATED WHEN CERTAIN ERRORS OCCUR. 
ALL SUCH TERMINATIONS WILL BE ACCOMPANIED BY AT LEAST TWO 
PRINTOUTS, ONE STATING THE ERROR», AND THE SECOND STATING THAT 
THE TEST WAS TERMINATED. THE DFT WILL HAVE TO BE RESTARTED 

TO CONTINUE. | ; 
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415490C 


15NOV66 
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PROGRAM RKESTART 


THE PRUGKAM CAM BE RESTARTED FOLLOWING ANY TERMINATION BY SETTING 


THE BIT SWITCHES To *Ox80', 


WHERE X IS THE PROGRAM LOAD NUMBER, 


AND THEN PRESSING CONSOLE INTERRUPT. 


4e PRINTOUTS 


ALL PRINTGUTS FROM THIS FUNCTION TEST WILL INCLUDE THE LAST DISK DSW THAT 


KAS SENSED, 
MOST EAST LY UNDERSTOOD AS DECIMAL NUMBERS, 


ANU THe NUMECR CF THE FILE BEING TESTED. ALL MESSAGE MODIFIERS 


SUCH AS ERROR COUNTS, CYLINDER 


NUMBERS» AND FILE NUMBER, WILL BE PRINTED AS DECIMAL NUMBERS. ALL NUMBERS 
WHICH SHUULD BE ANALYZED FOR BITS BEING ON OR OFF, ARE PRINTED IN HEX. 
4.1L STATUS MESSAGES 
AV900 FILE DSW CPU CYCLE TIME _ NN 2310 DFT. START 
OOOX XXXX: 
THE PROGRAM DETERMINED THAT THE CPU CYCLF TIME IS NN, WHERE 
NN TS EITHER #22" OR "36%, REPRESENTING 2.2 ANI) 3.6 USEC 
MEMURY SPEED. THE DETERMINATION ITS MADE BY EXECUTING 
A "SHIFT TO RED® TOCC TO THE CONSOLE TYPEWRITER. THIS 
MESSAGE WILL OCCUR EVERY TIME THE FUNCTION TEST BEGINS A LOOP. 
AOGVJL RITN& RTN ADRS FILE DSW DSK NOT INIT 
OOOX  XXXX | 
THE HEXIDECIMAL WORD "CEDC' WAS NOT FOUND ON CYLINDFR 199, 
SECTOR 64. THE DISK PROBABLY IS NOT INITEALIZEND WITH THE 
2315 DEAGNOSTIC DISK INITIALIZER (0308). 
AUYO2 = RTNGA RTN ADRS FILE DSW INVLO RTN# 
UOIQX XXXX 
AN INVALID ROUTINE NUMBER WAS SELECTED USING SWITCH FUNCTION 
ONE. THE DFT MUST BE RESTARTED TO CONTINUE. 
AVIV3 RTIN# RTN AURS FILE ODSW RECOVERED RD ERR 
of OQQOX XXXX 
AFTER ONE OR WORE DSW ERRORS ON A READ, A SUCCFSSFUL READ 
WAS EXECUTED WITHOUT DSW ERRORS. THIS PRINTOUT WILL BE PRECEEDE 
BY ONE OR MORE ERROR MESSAGES. 
AQNG04 RIN# RTN ADRS FILE DSW HRI CMP ERR 
OOOX XXXX 
AFTER EIGHT (8) RETRICS, DATA READ FROM THE DISK DIN NOT 
COMPARE WITH THAT EXPECTED. THIS MESSAGE INDICATES THAT 
THE DATA WAS PROBABLY WRITTEN WRONG BY A WRITE ROUTINE, OR 
THAT THE DISK [TS NOT INITIALIZED. LOOK AT THF ROUTINE NUMBER 
TO DETERMINE ITF IT TS A WRITE ROUTINE. 
AQYD6 RING RIN AURS FILE USW KECOVERED SK ERR 
i OOOX XXXX 
AFTER ONE OR MORE SEEK ERRORS, THE DESTREND CYLINDER WAS 
REACHED. THIS PRINTOUT WILL BF PRECFEDED BY ONE OR MARE 
SEEK ERRCR PRINTOUTS. | 
AOJOT RTN# RTN AOR S FILE OSW OFT TERMINATED 
OOOX XXXX 
THE DISK FUNCTION TEST HAS BFEN TERMINATED. THE PREVIOUS 
PRINTOUTS WILL EXPLAIN THE REASON FOR THE TERMINATION. THE 
DFT wILL HAVE TO BE RESTARTED TO CONTINUE THE TEST. 
U2 JAN6G L5JUN06 1 5NCV66 L5JUN67 15FF R68 DQLAPR&9 PRONG ID 0309-* 
415490 4154900 419643 420317 420403 5971036 PAGE 4 
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UZ JANO6- 


415490 
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A0908 


A0909 


15JUN66 
415490C 


PART NO. 
PAGE 


RTN# RTN ADRS FILE OSW 


QOOX XXXX 


SEEK TIMING IN PROGRESS 


FILE DSW MAX MIN AVG INCR 
OOOX XXXX NNNN NNNN NNNN NAAN 


SK TIMF (MS) 


SEEK TIMING PRINTOUT (ROUTINE D). THIS PRINTOUT OCCURS WHEN 
THE SEEK TIMING ROUTINE IS EXECUTED. WHEN THE TIMING ROUTINE 
STARTS, THE CPU [IS DEDICATED TO THE OISK AND ALL NITHER TESTS 
WHICH MAY BE RUNNING IN OVERLAP, ARE SUSPENDED UNTIL THE 
CONCLUSION OF THIS TEST. 


SEEK INCREMENT IS THE NUMBER OF CYLINDERS SEEKED. 


MAX _ MAXIMUM SEEK TIME OUT OF 20 SEEKS FOR THE GIVEN INCR. 
MIN _ MINIMUM SEEK TIME OUT OF 20 SEEKS FOR THE GIVEN INCR. 
AVG _ AVERAGE OF THE 20 SEEKS FOR THE GIVEN INCREMENT 
INCR _ SEEK INCREMENT 
NOTE —- —- AVERAGE SEEK TIME 15MS X (NUMBER OF 29 MIL STEPS + 
NUMBER QF 10 MIL STEPS) 


RTN# FILE DSW PASS SKS SFT HRD 


OOOX XXXX OONN NNNN NNNN NNNN 


RTN ADRS 7T-LINE SMRY 


FILE DSW PASS RDS SFT HRD. 
OOOX XXXX OONN NNNN NNNN NNANN 


FILE DSW PASS WRITS SFT HRD 
OOOX XXXX OONN NNNN NNNN NNAN 


FILE DSW PASS #WDS IN SECTOR 
QOOOX XXXX OONN NNNN 


FILE DSW PASS 
QOOOX XXXX OONN 


SK-RNDM WDS 
FRST LAST 


FILE DSW PASS 
OOOX XXXX OONN 


WRT-RNDM WOS/RTNO © 
FRST LAST 


FILE DSW PASS 


WRT-RNDM WOS/RTNIO 
OOOX XXXX OONN | 


FRST LAST 


THIS PRINTOUT OCCURS EVERY TIME THE OFT COMPLETES A PASS. 
TT ALSO QCCURS WHENEVER THE DFT [S TERMINATED WITH AN ERROR, 


PASS OONN THE TOTAL NUMBER QF COMPLETE PASSES 
SKS NNNN THE TOTAL NUMBER OF SEFKS EXECUTED 
SFT NNNN THE NUMBER OF SOFT SEEK ERRORS 
HRD NNNN THE NUMBER OF HARD SEEK FRRORS 
ROS NNNN THE TOTAL NUMBER OF READS EXECUTED 
SFT NNNN THE NUMBER OF SOFT READ ERRORS 
HRD _ NNNN THE NUMBER OF HARD READ ERRORS 
WRTS _ NNNN THE TOTAL NUMBER OF WRITES EXECUTED 
SFT NNNN THE NUMBER OF SOFT WRITE ERRORS 
HRD _ NNNN THE NUMBER OF HARD WRITE ERRORS 
AWOS IN SECTOR _ AVG # WORDS WRITTEN WITH WRITE 400 
SK RNDM WDS WORDS USED TO GENERATF RANDOM SEEKS. 
HIGH QRDER EIGHT BITS ONLY ARE USED 
WRT RNOM WOS RTNS WORDS USED TO GENFRATE RANDOM 
PATTERNS FOR RIN 9 
WRT RNDM WOS RTNILO WORDS USED TO GENERATE RANDOM 
PATTERNS FOR RTN 190 
FIRST RANDOM NUMBER USED ON THIS PASS 
LAST RANDOM NUMBER USED ON THIS PASS — ALSO 
TS THE FIRST NUMBER USED ON THE NEXT PASS 


FRST _ 
LAST 
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PAGE 
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FOR THE 1130 SYSTEM PART 


PAGE 


NO. 


MESSAGES 


RTN# RIN ADRS FILE 


OOO0OX 


DSW 
XX XX 


LAST TOCC 
XXXX XXXX 


LOST INT. 


AFTER THE EXECUTION OF AN I/O INSTRUCTION, THE OFT LOOPS 
THROUGH THE MONITOR WAITING FOR THE EXPECTED INTERRUPT. IF 
A TIMEOUT OCCURS, THIS MESSAGE IS PRINTED AND THE DFT IS 
TERMINATED. 

RIN# 


RTN ADRS FILE 


Q00X 


OSW 
XXXX 


LAST 
XXX X 


LOCC 
XXX X 


EXTRA INT 


AN UNEXPECTED INTERRUPT OCCURRED. 
PRECEEDED BY THE *LOST INTERRUPT? 
QCCURRED BUT WAS LATE. 


IF THIS PRINTOUT IS 
MESSAGE, THE INTERRUPT 


RTN# RTN ADRS FILE DSK NOT RDY- 


O000X 


DSW 
— KXXXX 


THE OFSK, DRIVE "FILE#" ITS NOT READY AND/OR BUSY WHEN 

IT SHOULD BE BOTH READY AND NOT BUSY. THIS CHECK IS MADE 
PRIOR TO THE EXECUTION OF ANY SFEK, READ, OR WRITE. THE 
FUNCTION TEST WELL LOOP WAITING UNTIL THE DISK COMES READY, 
PRINTING THIS MESSAGE APPROXIMATELY EVERY TWELVE SECONDS. 


FILE 
000X 


RTN# RTN ADRS DSW 


XXXX 


LAST LOCC 
XXXX XXXX 


DSW WRONG 


THE DISK IS CHECKED THAT IT GOES BUSY AND NOT READY IMMEDIATELY 
AFTER AN XIO FOR A READ, SEEKy OR WRITE. THIS MESSAGE IS 
PRINTED ITF ThE DISK DID NOT GO BUSY AND/OR NOT READY AFTER 

SUCH AN XT(ie THE PROGRAM THEN ENTERS A LOOP THROUGH THE 
MONITOR CHECKING FOR A LOST INTERRUPT. 


IF THIS ERROR CCCURS DURING 
INDEX PAGE, P/N 2191291. 


OVERLAP SEE NOTF ON I/Q TEST 


RIN# RTN ADRS FILE 


QOOX 


DSW 
XX XX 


LAST TQCC 
XXXK XXXX 


DSW SK ERP 


A DSW ERROR WAS INDICATED AFTER THE OP COMPLETE INTERRUPT 
OCCURRED FOR THE SEEK IOCC SPECIFIED. THE SEEK WILL THEN BE 
VERIFIED BY READING SECTOR IDS BEFORE RE-SEEKING 

RTN AD2S 


RTN# FILE 


OOOX 


1) SW 
XXXX 


LAST LOCC 
XXXX XXXX 


DSW RD ERR 


THE DSW INDICATED AN ERROR OCCURRED WHILF READING. THE 
DATA WILL BE COMPARED WITH THAT EXPECTED BEFORE ANY RETRIES 
ARE MADE. 

RTIN# 


RTN ADRS FILE 


OO0O0X 


OSW 
XXXX 


LAST IQCC 
XKXKX XXXX 


HRD DSW RD ERR 


AFTER EIGHT (8) RETRIES, A SUCCESSFUL READ USING THE GIVEN 
1OCC COULD NOT BE EXECUTED. THIS PRINTOUT WILL BE PRECEEDED 
BY EIGHT "£0906" MESSAGES. | 

KTN AURS 


RT N# FILE 


OO0OX 


DSW 
XXXX 


LAST INCC 
XXXX XXXX 


DSW WRT ERR 


THE DSW INDICATED AN ERROR OCCURRED AFTER THE EXECUTION OF A 
WRITE IOCC. THE DATA WRITTEN WILL BE CHECKED FOR VALIDITY 
ANG RE-WRITTEN IF ANY COMPARE EFRRORS OCCUR. 


LONOV66 
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SYSTEM PART NJ. 
PAGE 
23L0b6 FUNCTION TEST | 
E0909 RTN#  RTN ADRS EILE OSW FROM S/B- WAS SEEK ERR 
OOOX XXXX OOCC OOCC OOCC 
WHEN A SEEK WAS ATTEMPTED AND VERIFIED, IT WAS FOUND THAT THE 
WRONG CYLINDER WAS OBTAINED. SfEKS ARE ALL VERIFIED BY READ- 
ING ALL EIGHT SECTOR ID*S. THE CYLINDER NUMBER OF ALL ID'S 
MUST BE THE SAME, AND THE EIGHT SECTOR COUNTS (BITS 13-15) 
MUST BE SEQUENTIAL (0-7) BEFORE THE SEEK IS ACCEPTED AS 
VERIFIED. 
EOQS10 RTIN# RIN ADRS. FILE DSW CYL# OOHS #WDS CMP ERR 
OOOX XXXX OCCC OOHS NNNN 
FILE DSW WO# S/B_ WAS 
OOOX XXXX NNNN ODDD DNDD 
FILE DSW WO# S/B WAS 
OOOX XXXX NNNN DDNO DNDD 
FILE O0SW WO S/B~ WAS 
QOOX XXXX NNNN DDOND ‘DNDD 
FILE DSW #ERS 
OOOX XXXX NNNN 
COMPARE ERROR. THIS PRINTOUT WILL OCCUR IF THE DATA READ FROM 
THE DISK DOES NOT COMPARE WITH THE DATA THAT WAS EXPECTED FROM 
THE DISK. THERE ARE THREE THINGS THAT THIS PRINTOUT CAN MEAN. 
1. DATA WAS MISREAD FROM THE DISK 
2. DATA WAS WRITTEN INCORRECTLY ON A PRECEDING WRITE 
3. THE DISK IS NOT INITIALIZED 
IN ORDER TO.DETERMINE WHICH WAS THE CAUSE OF THIS MESSAGE, 
FIRST LOOK FOR A PREVIOUS PRINTOUT STATING THAT A WRITE ERROR 
OCCURRED. IF THERE IS NOT SUCH A PRINTOUT, THEN THIS PRINTOUT 
WAS NOT CAUSED BY FAULTY WRITE CIRCUITRY. 
IF THIS PRINTOUT OCCURS REPEATEDLY FOR THE SAME CYL. AND SECTOR 
AND NO WRITE ERROR PRINTOUT HAS OCCURRED, THEN THE DISK IS 
PROBABLY NOT INITIALIZED. 7 
IE THIS PRINTOUT OCCURS INTERMITTENTLY, THEN THE ERRORS ARE 
PROBABLY DUE TO FAULTY READ CIRCUITRY. 
USE CAREFUL JUDGMENT IN DETERMINING WHICH CONDITION EXISTS 
BEFORE LOOKING FOR ANY HAROWARE FAULTS. 
CYL# _ CYLINDER WHICH WAS READ (DECIMAL) 
OOHS _ TRACK ON THAT CYLINDER 
H — HEAD USED (0 OR 1) 
S - SECTOR READ (Oy ly 29 OR 3) 
#WDS _ READ WORD COUNT USED IN THE READ XIO 
WO# POSITION IN THE 1/0 TABLE OF THF WORD 
S/B | DATA EXPECTED 
WAS _ DATA FOUND | 
#ERS _ NUMBER OF BAD DATA WORDS FOUND 
NOTE - FOR EVERY BAD WORD THAT IS FOUND, THE WORD PRECEEDING 
IT, AND THE WORD FOLLOWING ITy AS WELL AS THE BAD WORD, 
ARE PRINTED TO GIVE AN QVERALL PICTURE OF THE I/O AREA. 
JATE UL 2JAN6E L 5JUN66 LSNOV66 15 JUN67 15FEK6R OLAPRAO PRNG ID 
EC Nu. 415490 415490C 419643 420317 420493 571036 PAGE 
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a ee? Lee Pay e ea eS es Gein ates OTPAGEL Lach 42 O° Ot se uae vnc o a a Pocprigias Lae Mies ea ae EPO Or Ree oo.e ee “PAGE: GA 
earuu FUNCTION: Test” ; = Z231luLb FUNCTIUN TEST 


EOQOLL RIN# RTN ADRS FILE DSW CYL# DOHS #WDS OVERREAN | EO91L8 RIN# RTN ADRS FILE DSW LAST ITOCC #TMS ROCK XFRD DATA 
sua ucla boas Ole a | | . QOOX XXXX XXXX XXXX NNNN 


Ove 8 EEOPE:: “ANY - READS: “ARE: “EXEGUT EDL: THE 1/0 *?AR GAGES SET | A READ USING THE READ-CHECK MODIFIER BIT WAS EXECUTED. THE I[/N 
‘TG HEXADEGIMAL : CEBREY OTHE TWO :.WORDS [FOLLOWING -THE ‘EXPECTED AREA WAS PRESET TO HEX 'FFFF® BFFORE THE RD CK. AFTERWARDS, 
READ AREA ARE ALSO SET ‘To SFFFF Yt. WHEN DATA IS READ AND COM-~ |. THE I/0 WAS ROT "FFEF f, Senay DATA WAS TRANSFERRED 
PARED, THESE ee JARE CHEGKED EQ SEE THAT THEY ARE STILL el HH TMLED 20 GLAR vi GACKYEE BICANDE Gk tet TMG Wey 
«SET TO:® FFF &s ER eNOT eg: cTHEN:; EHES ‘MESSAGE 3FS: PRENTER. #TMS Lt ee er RE AD- GK xrO! &! WHICH XE RD! DATAY PY D POE 


- ns oy : : ry Pa et 
rary Pt ; 2 egy ADS Ge, oe mad , 4 5 ‘ gE by 2 bag Bs 
hao EL pee goo ; \y bs poke rp ran ee mh } yh ah + y L & fF a 1a i] Phy fi bat A, i it ee a mer 14 ty a au ip ee FRA A SG 


ee “CY. ENDER -NUMBER ON WHICH THE ERROR OCCURRED (DECIMAL) £0919 FILE NSW SCCT CNTR BAD 
-OOHS © » TRACK SON WHICH SERROR: | ee MiP Gf pel ekokp | Hibe - ee OOOXY XXXKI WBE! OS PGi 
ane iH gm HEAD: USED TO-READ; Rep eNO OE AE Aes - OBEY bo CHAD 

S — SECTOR READ THE? SECTOR: “COUNTS: SIN? BITS 14-15 OF THE DSW INDICATE THE NEXT 

#WDS _ ee COUNT USE» aN READ Nath THEY: CHANGE?) FROM 10-24 2-3 AS\ITHE? ‘DISK EROTAT ESiac OTF NOT, THIS 
pages a ae “nis MOM BE LEE MESSAGE 1SiiPRINTEO) ANDETHEC DSW TS TERMINATEDS:SINCE ALL READ 
£0912 RINE “RIN. “ADRS FILE OSW “WRITE ERROR AND WRITE ®8PtRATKIONS (HINGE! (ON Goon SECTOR COUNT. 
Hye OOOX XXXX | Hom HEME eo Dace 
bien . cD Gee e ME LW ERD ABCD _ SECTOR COUNTS (S7 BA 0123) 





VT RE 


ae DATA Just. WRITTEN HAS BEEN READ “AND | COMPARED: WITH: THE DATA pape CU CAT Papey nee rr Reo 1 ObC (WEED 
EXPECTED, SUPPRESSING ALL PRINTOUTS WHICH MIGHT HAVE OCCURRED. £0920 RINH RIN AURS FILE DSW 8 CYLINDER IDS 
A HARD COMPARE ERROR WAS «INDICAT.EO:xGEIGHT RETRIES). AFTER THIS STEOWL FAST ME £ OOOXA XXXXO AMAA BBBBLCCCC DODD 


eMESSAGE (LS yPKENTEDs -THE cDATA SWILL (BE SCOMPARED «AGAIN, THIS TIME eb PWVWEEDT TOMOWE AL Te DELLE ALI EHO RHIC COME h ioe bea aad 
NOT SUPPRESSING PRINTOUTS. ALL COMPARE ERRORS MAY THEN BE IN- FILE DSW 
eTERERET ED, a WRT bie ce bus hag ee ae Tie Lf OOOX. XXX: EE REC IFFFEA GGGG HHHH 

GEEK TAC Pt nor 2kE! rr Lid RE iE HI2 BRESLOML NCCAHS EMALBHTLLEMICA® Livtit! GME KaMdhe $ek 


EO913 RINE, ORE “ADRS : "BIE: | DSW. rn: HOME, BLT. “WRONG + cee IMMEDIATELY AFTER A SEEK INTERRUPT OCCURS, THE NEXT AVAILABLE 
| 00x XK ECE SECTOR: ONATHE: OISKSTS\IREAD TO GET THE SECTOR ID (WORD 1). 
xe XY WHE Nea ees Hae ECU iecran eee eau THEN: READEH NL SEQUENCES. 
cogs “HOME ELT (IN OSW (BET. ae 4S “WRONG. © CE THE ICYLLNDER NUMBER GIVEN Et £Hie BEESON, OCC? VE BEYVLEDEA 606 LH e¥ate CAPS 9b gec hus 
i IS ZERO, ‘THEN THE HOME BIT WAS FOUND OFF WHEN THE ARM WAS AT THESE SECTOR TDS ARE THEN CHECKED FOR INDICATING THE SAME 
pHOME. «DF sNON=ZEROs: <THEN THE HOME BIT WAS ON WHEN THE ARM WAS CYLINDER AND’ FOR HAVING SEQUENTIAL: SECTOR COUNTS. IF NOT» 
AT THE GIVEN POSTION ; PLDEC-IMAL AS Ye CEP wule OA ith Likes UH YS: MESSAGE. TSUPRRINTED.) UR VTO SEVEN: RETRIES (AR EL MADEGTOALON & 
MEET) THE ABOVE CONDITLONS voi): CiAWLIAG LHYL ¥ MID LE ERO’ 
THE HOME BIT :ES- CHECKED : ‘AFTER: EVERY, SEEK TO SEE rae! IT IS COR- | iv UsGEwW GO De irewivb MHICH M¥e@ PRR OY AER Ob LH) Eeeyon* 





fi? Weeds 
BEG ae xT OGRE buGCK9N ANEW EPLLK2 ¥ TOUR A HBUOOH LHE LF THIS MESSAGE. IS PRINTED EIGHT TIMES FOR THE SAME CYLINDER, 
ORES ee ee 3 HON UE le eed yh LE | THEN: THE: DISK: [Ss i acitas ase eee e enna 
E0914 RINE “RTN. ARS PELE SW LAST): OCC : NO ‘(OSW ERRZWRT 4:00 | : S* VVEV Moe? MEL LESH TEACUP ECLA G4 Y ee ECE 4 BETAS 
Shoe as Oe  OOOKEXXKK XXKX AXXK cae MOL HEYGA LAMAR OLYELEDA IF WT OCCURS) INTERMITTENTLY 9) WI TH! THE EIRST SECTOR ID ALWAYS 
Oe ca ace IN ERROR, Tae atk SETTLING TIME SHOULD BE EXAMINED. 
A WRITE WITH A WORD,:COUNT. OF »400; WAS .EXECUTED. THIS WRITE | tHE Nye BE LMKEE LSiMGe LAV Gvild ew EAdUNS Cvs 
OPERATLON, SHOULD HAVE BEEN TERMINATED BY THE: NEXT::SECTOR GAP. OTHERWES Ey: A 2 READ ERRORS S" PROBL YLNOICATEDY eB iE Mbit EO kM 
“AND AN ERROR INDICATED IN THE DSW. NO nee ERROR WAS INDICATED. COWDWRE ERSO! Bhtag WAMILA oe ta Cath be ee GRY De a 
4 f CARA POC OMaS | NOTE - THE SECTOR IDS WILL NOT NECESSARILY BE IN ORDER LOWEST 
EO915 RINE | “RIN, ADRS. “PRE: “DSW: LAST: “KOCC.. ND DSW. ERRAR DE (370 TO HIGHESTG3 SINCE: THEGFIRST AVAILABLE SECTOR WILL NOT 
Ce Mme ay 00%: XXXX: 200 XXAKE a Web e {HE ALWAYS BE. SECTOR*O.,0:SECTOR IDS IN THE ORDER 5-6-7- 





i ae ae ae PP? wyDE 0-1-2- 3- 4% FOR EXAMPLE, WILL NOT BE UNCOMMON. 
A, READ. WH, A WORD COUNT: OF. "370 WAS” EXECUTED»: » “THES: READ OPER- 4 eX Sele PORE? EPA 
“ATIUN SHOULD HAVE BEEN TERMINATED BY THE NEXT SECTOR GAP AND AN E0924 RTN# RTN ADRS FLUE « DSW : » SK HUME: ‘BIT ERR 
ERROR ENO ERUE IN,-T.HE DSH: NO SUCH INDICATION WAS GIVEN. 000x XXXX 
Pape ate, . ag ls AR, ae SURE RCP GAM OO UY PR 
E0916 RINE "RIN “ADRS ME DSW WDC NT SECT WD CNT WRONG THE SEEK TIMING ROUTINE? SEEKS: FORWARD: TEN (LO) TIMES, THEN BACK-— 
eerie nade -000X XXXX NNNN WARDS TEN (10) TIMES FOR EVERY SEEK INCREMENT. THE ROUTINE 
_ Pe + fii PE ERE BE | STARTS WITH THE ARM ATs HOME!AND ‘THE? ARM*:SHOULD BE AT HOME WHEN 
A READ. WITH. A WORD. COUNT. OF BIO: WAS: OXECUTEDa THE: L/D AREA WAS THE TEST IF FINISHED. oc HE @NLY CHECK*:‘FOR THE ARM BEING AT HOME 
PRESET TO HEXADECIMAL "FFFF* SO THAT THE NUMBER OF WORDS TRANS-— IS THE HOME BIT (BIT 4) IN THE DSW. IF THIS BIT IS NOT SET, 
FERRED COULD BE D&TERMINED. «LF: .THE:;NUMBER OF WORDS TRANSFERRED A SEEK ERROR IS PROBABLIES INDICATED... (THE: TIMING TEST RESULTS 
LS. .LESS, THAN,.331 ‘OR : -GREAT-ER THAN, 3589 THI S:: ERROR: MESSAGE WILL eon? (ARE: PROBABLY :INVALTOS O26 fF & Gene Bene Cie Eb 
BE PRINTED. 
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EOOL? RINE “RT N, ADRS, FILE: DSWoves WWRT,,400. WROTE: NEXT (SECT: 2 Ot BE @EANEWMLIVE €O8S) BELGWE Gah ai pe : 
LMBGHOM LAF on 1 00K: XXX oe ae (EXOECE ED TALENEODL® Lt “Wet GE AHE vee ey i Ate fel 
y ef Sie . = r ie . ib heed ees a ti Li fA fia? 
‘A WRITE WITH A WORD COUNT OF 400 WAS EXECUTED. THE NEXT SECTOR MEOMO CAPEYDLR rf A wEED 
WAS THEN READ TO DETERMINE, IF, THE -WRETE OPERATION TERMINATED MHEM VO @EEK My? | ud 4 


WHEN THE .SEGTOR GAP- -CAME: UP. > LF: NOT THIS ERROR; ‘MESSAGE IS 


i by 
te ra is ee soit Sieh ina rn a hs st gh gi fy fee ee 
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23lue6 FUNCTION TEST 


5. COMMENTS 
51 TEST ROUT INES 
“HEXADEC IMAL © 
ROUTINE ° 
‘NUMBER 


U . 


DATE | U2 JAN66 LSJUN66 L5NOV66 


EC NUs 415490 415490C 419643 


“PAGE at & 


ROUTINE 
DESCRIPTION 


---- PRECN ---- 


THIS ROUTINE MAY NEVER BE EXPLICITLY EXECUTED 

AS A ROUTINE. IT TS RUN ONCE EACH TIMF THE DISK 
FUNCTION TEST 1S LOOPED REGARDLESS OF ANY OPTIONS. 
THE ROUTINE WILL - 


Ae ISSUE AN XIOQ SEEK TOWARD HOME OF 203 CYLINDERS 
TO TEST THE HOME BIT IN THE DSW (BIT 4). 


Be CHECK THE SECTOR COUNT IN THE DSW FOR PROPER 
STEPPING —- 9123 2 IF THE SECTORS COUNTS FOUND 
ARE NOT SEQUENTIAL THF DFT IS TERMINATED AND 
MUST BE RESTARTED USING THE SWITCH OPTIONS 
(SEE PROGRAM TERMINATION ABOVE). 


Ce. SEEK CYLINDER 199. READ THE HISTORY TABLE ON 
SECTOR THREE (3) TO SET UP THE BAD CYLINDER 
TABLE IN THE PROGRAM. IF THE HFXADFCIMAL WORD 
*"CEDC* [TS NOT THE SECOND WORD ON THE SAME TRACK 
THE DFT IS TERMINATED AND MUST BE RESTARTED 
USING THE SWITCH OPTLONS (SEE PEConer TERM— 
INATION ABOVE). 


SesS RNC esas 


THIS ROUTINE FIRST SEEKS AND VERIFIES: HOME. ALL 
EIGHT SECTORS ON THE HOME CYLINDER ARE THEN READ, 
IN ORDER O THROUGH 7. THE READ WORD COUNT IS SET 
TO 1 AT THE START, AND ITS DOUBLED EVERY TIME ALL 
EIGHT SECTORS ARE READ, UNTIL THE READ WORD COUNT 
REACHES 256. THE REAI) COUNT IS THEN SET TO 320. 
THE DATA THAT IS READ IS ‘NOT VERIFIED AS BEING 
CORRECT UNLESS THE DSW INDICATES AN ERROR OCCURRED, 
EXCEPT THAT THE DATA IN SECTOR 7 IS ALWAYS VERIFIED 
THIS ROUTINE IS LOOPED” 20 TIMES 


---- RTN2 ---- 


INCREMENTAL SEEK ROUTINE. THIS ROUTINE SEEKS 2 
CYLINDERS IN AND 1 OUT FROM CYLINDER O TO 202. 


-THEN THEN ROUTINE SEEKS 2 OUT AND 1 IN FROM CYL- | 


INDER 202 TO 0 (HOME). EACH SEEK IS VERIFIED BY 
READING ALL EIGHT SECTOR IDS ON EACH CYLINDER. 
CYLINDERS 90-110 WILL NEVER BE ATTEMPTED. 


PaaS RING eee 


RANDOM SEEK ROUTINE. THIS ROUTINE WILL EXECUTE 

100 RANDOM SEEKS. EACH SEEK IS VERIFIED BY READING 
ALL EIGHT SECTOR IDS. “CYLINDERS 90- “110 ARE NEVER 
ATTEMPTED. ~ 


- NOTE — THE S AME RANDOM SEEK PATTERN. WILL ALWAYS 
/ BE EXECUTED IF THE VART ABLE "RNDSK® IS 
PATCHED (SEE PATCH OPTIONS). 


-15JUN67  15FEB68 OLAPR69 PROG ID. 0309-* 
“420317 420403 571036 PAGES EEO Py 
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P3106 FUNCT LGN TEST 


VATE 02 JAN66 


EC NU. ° 415490 


15NOV66 
419643" 


PAGE. Tk 


---— RTN4 ---- 

READ AND VERIFY 320 WORDS NF HEXADEC IMAL '1313° 
FRUM CYLINDER 1 SECTOR O.° THIS ROUTINE 1S LOOPED 
50 TIMES. (- 

---- RTN5 ---- 


READ AND VERIFY 320 WORDS OF HEXADECIMAL 'E5EF5* 
FROM CYLINDER 201 SECTOR 6. THIS ROUTINE IS 


- LOOPED 50 TIMES. 


---- RING ----- 


WRITE 320 WORDS OF HEXADECIMAL #1313 ON CYLINDER 2 


~ SECTOR Of READ BACK THE RECORD AND VERTFY THAT IT 


WAS WRITTEN ces LOOP THIS ROUTINE 50 TIMES. 


aes RNG ses 


WRITE 329 WORDS OF HEXADEC IMAL ‘1 ESES! ON CYL. 202, 
SECTOR 6.2 READ BACK THE RECORD AND VERTFY THAT TT 
WAS WRITTEN GORRECTLY. LOOP THIS ROUTINE 50 TIMES. 


---- RTN8 —--- 


READ-CHECK CYLINDER 1, SECTOR O AND VERIFY THAT NO 
DATA WAS TRANSFERRED TO CORE.’ IF DATA [TS TRANS- 
FERRED, PRINT AN ERROR MESSAGE IMMEDIATELY TNDIC-— 


AATING THE NUMBER OF TIMES. THAT DATA WAS TRANSFERRE 


TO CORE. LOUP THIS. ROUTINE 50. TIMES. 


“23 RING Sees 


GENERATE 320 WORDS OF RANDOM DATA AND WRITE 

THESE WORDS ON CYLINDER 2,SECTOR Of READ AND 
VERTFY THE DATA WAS WRITTEN CORRECTLY. LOOP 
THE ROUTINE 50 TIMES WITH DIFFERENT PATTERNS. 


- NOTE — THE SAME RANDOM PATTERN WILL ALWAYS BE 
WRITTEN IF THE VARIABLE "L&NI* ITS PATCHED 
(SEE PATCH OPTIONS). 

---- RTN1O ---- 


GENERATE 320 WORDS NF RANDOM DATA AND WRITE 


THESE WORDS ON CYLINDER. 202 SECTOR 6.2 REAN AND 
VERIFY THAT THE DATA WAS WRITTEN CORRECTLY. LOOP 
THIS ROUTINE 50 TIMES WITH OLFFERENT PATTERNS. 


- NOTE — THE SAME RANDOM PATTERN WILL ALWAYS BE 
WRITTEN IF THE VARIABLE *LRN?* TS PATCHED 
(SEE PATCH OPTIONS). 


asso S RINT Gee 


WRITE 320 WORDS OF HEXADECIMAL. 413138 ON 
CYLINDER 2, SECTOR Of REWRITE THE SAME SECTOR 
WITH A WORD COUNT OF ONE (1). READ 321 WORDS 
FROM THE SECTOR AND CHECK THAT ALL 320 WORDS 


FOLLOWING THE ONE WORD THAT WAS WRITTEN ARE ZERO. 
RESTORE THE ORIGINAL DATA’ CHEX: $1313") (ON SECTOR. 


15JUN67 15FEB68 OLAPR69 PROG ID = 0 309-* 
420317 = -420403 571036 PAGE =—--—sSTA 
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“PART NO. 2191214 
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231Ub FUNCTION TEST 


U2 JAN66 
415490 


C ---- RTNL2 ----— 


ISSUE A WRITE COMMAND ‘WITH A WORD COUNT OF 400. 

ON CYLINDER 2, SECTOR 0. THE HARDWARE SHOULD _- 
TERMINATE THE WRITE AT NEXT’ SECTOR’GAP. READ THE 
DATA JUST WRITTEN TO DETERMINE THE NUMBER OF WORDS 
THAT WERE WRITTEN. CALCULATE THE AVERAGE WORD. 
COUNT FOR FIFTY (50) PASSES AND SAVE FOR SUMMARY | 
TABLE PRINTOUT. IF WORD COUNT IS LESS THAN 331 

OR GREATER THAN 358, AN ERROR MESSAGE IS PRINTED 
[IMME DIATELY. | 


D ---- RINL3 =~. *##SPECTAL ROUTINE *## 


#EESEEK TIMING ROUTINESEE 


THIS ROUTINE WILL. BE RUN ONLY TF. IT tS SPECIFICALLY 

SELECTED. IF WILL TAKE CONTROL OF THE CPU FOR THE 

DURATION OF THE TIMING TEST. SEEK INCREMENTS OF 

ly 29 49 Be 16y 325 64, 128, AND 200 CYLINDERS 

ARE TIMED. THE MAXIMUM TIME FOUND, THE MINIMUM 
TIME FOUND AND THE AVERAGE TIME ARE ALL PRINTED 

AT THE END OF THE ROUTINE FOR EVERY SEEK INCREMENT. 


SEEK TIME _ 15MS X (NUMBER OF 20 MIL STEPS # 


NUMBER OF 100 MTL STEPS) 
5-2 DESCRIPTIUN OF SUB- ROUTINES 


INDEX REGISTER 2 IS SET TO THE ADDRESS 'TH*® AT THE START OF THE PRO- 
GRAM AND. EVERY ROUTINE EXPECTS THIS REGISTER TO CONTAIN THAT ADDRESS. 
'T3" TS THE POINTER TO A COMMON TABLE- 0F CONSTANTS AND ROUTINE CALLS. 
ALL RETURNS FROM CALLS GN THE MONITOR GO THROUGH A ROUTINE WHICH SET UP 
THIS POINTER ALS. KEGISTER 2 TS NEVEK SET TO ANY OTHER VALUE. 


ALL THE SUBROUTINES DESCRIBED PROVIDE ANY NECESSARY Enees SAND 
STATUS PRINTOUTS. (REFERENCE SECTION Fed f 


ALL SUBROUTINES WHICH ROQUIRE THE OPTION ARE PROVIDED WITH THE | 
"LUCK UN ERROR! OPTION. THIS OPTION WILL LOOP THE SUBROUTINE: IN ; 
THE SMALLEST PUSSTIBLE LOGP WHICH CAUSED THE ORIGINAL ERROR. a 
ONCE AN ERROR CCCURS, AND THE OPTION IS’ SELECTED, THE ROUTINE WILL 
REMAIN IN THE LOOP AS LONG AS THE "LOCK ON ERROR* SWITCH IS ON, 
WHETHER THE ERROR RECURRS OR NUT. IF NO FRROR OCCURS THEN THE 
CPTION HAS NO EFFECT. : 7 oP ge ee 


¥ eS CALL AEE 


THIS SUBROUTINE ITS USED TO SET AN ENTRY IN THE MAIN LINE SEQUENCF CONTROL 
FIELD (MLSCF) WHEN EXITING Th THE MONITOR. THE ROUTINE: SAVES ALL INDEX| 
REGISTERS, SETS A RETURN ADDRESS IN *MLSCFt1', AND GOES TO MONITOR ®START®. 
UPCN RETURN FROM MONITOR, THE SUBROUTINE RESTORES THE ENDEX REGISTERS s AND 
KE TURNS TG THE CALLING ROUTINE. : | 


aeelSl 2 XEQ-TB 
DC RE TURN 


THIS SUBROUTINE BUILDS THE IOCC WITH THE DEVICE AREA CODE, SETS 

THE INTERRUPT SWITCH NUN-ZERO, AND SETS UP A LOOP COUNT TO TEST 

THE SFLECTED DEVICE FOR READY. IF THE DEVICE IS READY, THIS RQUTINE 
TESTS THE VALUE OF "COMA*. IF ZERO, EXIT IS TAKEN IMMEDIATELY. IF 
NON-ZERO, THE XIQ SET UP IN LOCATION *"ZXIQ* IS EXFCUTED. A LOoOP IS 


THEN SET uP THROUGH THE MONITOR WAITING FUR A LOST INTERRUPT. WHEN 


THE INTERRUPT CCCURS, EXIT [S MADE TO CALLt1. 


15JUN66 
415490C 


L5NGV66 
419643 


L5JUN6T 


67  15FEBR68 
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LbM MAINTENANCE DIAGNUSTIC PROGRAM FOR THE 1130 SYSTEM 


23106 FUNCTIUN TEST. 


YATE 


cl Ne 


PART NI. 
PAGF | 


ee eKS] 2 CKLK-TB 
ee eDC RETURNI 


THIS SUBROUTINE IS USED TO CHECK FOR THE LOCK ON ERROR OPTION 
SELECTED. IF THE SWITCH IS ON THE ROUTINE RETURNS INDIRECTLY VIA 
THE ADURESS RETURNI IN CALL+1. “LFS THE SWITCH ‘Ts oer ane ROUTENE 
RETURNS DIRECTLY TO CALLt2. ~~ 


eo eBSIT 2 SETV-TB 
- A~REG CONTAINS DATA TO SET 


THIS SUBROUTINE SETS THE 1/0 AREA TO THE CONTENTS OF THE A 
REGISTER. THE NUMBER OF WORDS TO BE SET MUST RE STORED IN LOCATION 
*CCMA* PRIOR TO THE CALL. 


eee BSI 2 RNOGM—-TB 
A-REG CONTAINS LAST RANDOM NUMBER. 


THIS RUUTINE USES THE NUMBER IN THE A REGISTER TO GENERATE A wo 
RANDOM NUMBER, AND RETURNS TO CALL +1 WITH THE NEW NUMBER IN THE. -A- 


REGISTLR. THE NUMBER IN THE A REGISTER AT -THE TIME OF THE CALL IS” 
NORMALLY THE LAST RANDOM NUMBER USED. ~ ee oe 
ee eBSI 2 STMSG-TB 
DC FMMM 
F _ FORM NUMBER 


MMM_ MESSAGE ID. 


ALTERNATE CALL 
eee BSI L STMSG+t+/ 8000 
CC FMMM 
THIS MESSAGE WILL BF PRINTED AS AN: ADDITIONAL LINE: MESSAGE, 
AND MID- RID-RAD WILL NOT .8& PRENTEDS 


THIS RUUTINE WILL SET UP THE MESSAGE SPECIFIED BY THE FORM 

NUMBER. THE MESSAGE ID IS THEN CHECKFD TO SEE ITF HFX CHARACTFR ONE 

1S AN Ee IF IT TS AN E THE DIAGNOSTIC MONITOR ERROR- ROUTINF IS CALLED. 
UTHERWISt THE LOG ROUTINE IS CALLED, UNLESS THE RYPASS: LOG. eer, pe rane 
CPTION TS SELECTED. IF THE CALL WAS TQ THE ERROR ROUTINE THE |: | 

OL AGNUSTIC MUNITOR OPTIUN OF LOOP-ON‘ERRIR ITS CHECKED AND IF. SELECTED: 
THE TEST ROUTINE CAUSING THE ERROR WILL BE.-LOUPED. THIS” ROUT INE. 
NOUKMALLY EXITS TO CALL+t2. 


ee BSI 2 VERFY-TB | 
DC CYL. NU. DESTRED 
CC ERRCR ADDRESS RETURN 


THIS ROUTINE WILL SEEK THE DESTRED THE DESIRED CYLINDER, USING. THE CYL- 
AUDRESS IN "PCYL#* AS THE PRESENT DISK POSITION. ALL EIGHT SECTAR INS | 
ARE THEN READ. IF ALL EIGHT SECTOR ADDRESSES INDICATE THE SAME CvETNOER 
NUMBER, AND ALL EIGHT SECOTR IDS (BITS 13-15). ARE arene on re, Eee 
KGUTINE EXITS TU CALL +3. — 


IF NUT, AN ERROR MESSAGE IS PRINTED IMMEDIATELY. AN ERROR RETRY PRO- 

CLDURE IS THEN INITIATED. ALL EIGHT SECTOR IDS ARE REREAD UP TN SEVEN 
TIMES AND EVALUATED USING THE ABOVE CRITERION. FF THIS CRITERION IS NOT 
THEN MET, THt OFT IS te Neen | 


15FE868 
=. &420403 


ucJANGG6 
415490 


1 5JUN66 
4154900 


LSNOV66 
419643. 


LSJUN67 


: OLAPR69 © PROS ID 
420317 Pox? 


571036 PAGE 


2191214 


-BA 


18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2310b FUNCTION TEST 


02 eBSI 2 READ-TB 


DC WORD COUNT 
DC | NUMBER (CUSED IN CALL TC CMP ROUTINE) 
CC ERROR RETURN 


(A REG. CONTAINS SECTOR DESIRED.) 


ee Z = C oe, M : ? & or. , 


PART NO. 2191214 
PAGE 9 


THIS ROUTINE WILL BUILD THE READ IOCCy, PRESET THE 1/0 AREA TO HEX "FREES, 
SET THE READ WORD COUNT IN THE I/O AREA, AND EXECUTE THE READ THROUGH THE 


XEQ@ SUBROUTINE. 


UPON RETURN FROM XEQ, THE DSW IS CHECKED TO SEE TF ANY ERROR IS INDICATED. 
IF A DSW ERROR ITS INDICATED AFTER ANY READ, AN ERROR MESSAGE JS PRINTED. 


WITH GR WITHOUT DSW ERRORS, A CALL ITS MADE ON THE "CMP" SUBROUTINE TO CHECK 


THe DATA TO SEE THAT IT WAS AS EXPECTED. IF NOT, 


UP TO EIGHT RETRIEES ARE 


MADE FOR A GOOD READ. IF ALL RETRIES FATL, THE ROUTINE EXITS TO THE ERROR 


RETURN ADDRESS. 


oe BST CHP 
MDX ERROR RETURN 


THIS ROUTINE WILL MAKE A WORD 8Y WORD COMPARISON OF THE DATA 
READ AGAINST THE DATA EXPECTED. THE ROUTINE WILL ALSO MAKE A CHECK 
QF THE WORD COUNTER BY COMPARING TO SEE IF MORE WORDS WERE TRANS- 


FERRED THAN EXPECTED. 


IF NO ERRORS ARE FOUND THE ROUTINE EXITS DIRECTLY TO 


CALL4+#2. OTHERWISE THE EXIT IS TO CALL+1. 


ee BSI 2 WRITE-TB 
DC NUMBER OF WORDS (IF BIT O _ ly DO NOT PRESET I/0 AREA) 
DC DATA TO BE PRESET IN I/O AREA 
DC ERROR RETURN 


(A REG. CONTAINS THE SECTOR NUMBER) 


THIS ROUTINE WILL PRESET THE I/G AREA *COMA*® WITH THE DATA TO BE WRITTEN. 
THE ROUTINE WILL PLACE THE CURRENT VERIFIED SECTOR IPD AT THE I/0 AREA PLUS 
1 AND THE WRITE WORD COUNT AT 1/0 AREA. THE ROUTINE WILL BUILD THE WRITE 


IOCC, AND ISSUE THE X10 THROUGH THE *XEQ* ROUTINE. 


THE DSW [TS CHECKED FOR ERRORS. 


UPON RETURN FROM *XEQ* 


IF NO DSW ERROR IS INDICATED, EXIT ITS MADE TO CALL+4 WITHOUT ANY CHECKING. 


IF A DSW ERROR IS INDICATED, AN ERROR MESSAGE IS PRINTED IMMEOIATELY AND 
EXIT IS MADE TO THE ERROR RETURN ADDRESS. NO RETRIES ARE MADE TO WRITE 


A GCOD RECORD WITHIN THIS SUBROUTINE. 


VATE U2JAN66 L5JUN66 L5NOV66 15 JUN67 15FEB68 OLAPRO6H9 PROG ID 0309-* 
EC NU. 415490 415490C 419643 420317 420403 571036 PAGE 9 
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1bM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2310 6B DISK FUNCTION 


DATE 


EC NOw. 


O2JAN66 
415490 


TEST 


O1LJUL66 


415490C 


PART NO. 


PAGE 


ELE EEK 309090020 


* 30900030 
* THIS PROGRAM USES A NEW CODING 30900040 
+ CALLED EXTENDED MNEMONIC 30900050 
* CODING. | 30900060 
* 30909070 
* THIS CODING IS SUMMARIZED HERE 30900080 
* FOR CONVENIENCE. 30900090 
* | 30900100 
TERRE ECECELE CEE EE CECE CELE CE CEC CE EEE CEE EEE EEE EEC CE EEE OD DEO 
2 7 30909120 
* EXTENDED STANDARD MEANING 30900130 
* MNEMONIC MNEMONIC OF CODE 30900140 
* CODING EQUIVALENT 309001590 
#— — ——-————- —------ $—-—--------------- $———--—----------- 30900160 
* SKP & BSC & SKIP IF A IS 30900170 
* PLUS. 30900180 
*—-—--——--- —--- $—---------------- $—---------------- 30909190 
* SKP &- BSC &- SKIP IS A IS 30909200 
* PLUS OR MINUS. 30900219 
*—-————-——-- —------— 4———-—---—--------- $—------—----------- 30900220 
* SKP Zz BSC Z SKIP IF A IS 30909230 
x : ZERQ. 30909240 
#————————— —------- $---------------- $————-—--—--------- 30900250 
* SKP 0 BSC 0 SKIP IF OVERFLOW 30909260 
x IS OFF. 30900270 
———— — — —- —— -- $---=------------ +————-———--—------- 30900280 
* SKP C BSC C SKIP IF CARRY IS 30900290 
* OFF 30909300 
Ht —-——-— -—- - -- t—--—-------------- $——---—------------- 30900310 
* SKP &-C BSC &-C SKIP IF A IS 30909370 
* PLUS OR MINUS GR 30900330 
* ) IF CARRY IS OFF. 30909340 
*—---—--—----—-~----- +---------------- 4—---—--—-~---------- 30900350 
* B EXIT MDX EXIT BRANCH TO EXIT 30900360 
* WHERE EXIT IS 30900370 
* WITHIN NORMAL 30900380 
* DISPLACEMENT. 30900390 
#————-—-——- —---—---- +—---—-—----—-~------ 4+—-——- —-—---------- 30900400 
* B L ALPH BSC L ALPH BRANCH TO ALPH. 30909410 
*-—-------------- t------—---------- $—~--------------- 30900420 
* BZ BETA BSC L BETA,&—- BRANCH TO BETA 30900430 
* IF A IS ZERO. 30900440 
x——-————--—------ #---------------- #----------------- 30900450 
* BNZ BETA BSC L BETA,Z BRANCH TO BETA 30900460 
* IF A IS NON-ZERD 30900470 
oe 4——--------------- $—-——-——-—-- + -- 30900489 
* BNZ I BETA BSC I BETA,Z BRANCH 30900490 
m | | INDIRECTLY TO 30909500 
x BETA IF A IS 30900510 
* NON-ZERO. 30900520 
*#————————- ~-- 4+ - +——-—-—~—---—---—------ 30900530 
* BN RTNA BSC L RTNA,ZE BRANCH TO RTNA 30900540 
* IF A IS MINUS. 30900550 
K—— —— — -—— — — --- - 4-----~---~-~------- $—-— -- - - - -- - --- 30909560 
* BNN RTNB BSC L RINB)- BRANCH TO RTNB 30900570 
# IF AIS 30900580 
* NOT MINUS. 30900590 
*K-————— —-- 4 - - - -  - - - - -  - — ¢ - - - -- - - - -- - -- - - - - 30900600 
* BP SUBO BSC tL SUBO,Z—- BRANCH TO SUBO 30900610 
* 3 | : IF A IS PLUS. 30900620 
*~——-—-—-—-—-~-—------ $—-—------—-------- 4-—-----—--- —---—---- 30909630 
* BNP © SUB BSC L SUB,& BRANCH TO SUB 30900640 
* IF A IS NOT 30909650 
* PLUS. 30900660 
*-—-—-----—-—------ +—-------~-------- $———~- ~-——-- —------ 30909670 
* BC ENTR BSC tL ENTR,C BRANCH TO ENTR 30900680 
* IF CARRY IS ON. 30900690 
1S5NOV66 15JUN67 15FEB68 OLOCT68 AIAPR69 O9MAY69 PROG ID 
419643 420317 420403 571005 571035 571036C PAGE 
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13M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


TEST 


OLJUL66 
415490C 


PART NO. 
PAGE 
*——-—-—-~—-—- —----—--- $——-—-—-—-—~--------- $—-—--------------- 30900700 
* BOD 2 5 BSC L2 5,0 BRANCH TO ADRS. 30900710 
SPECIFIED BY 30909720 
x CONTENTS OF IX. 30900730 
* 2 PLUS 5 IF 30900740 
* OVERFLOW IS ON. 30900750 
*#—-—- —-—-—--—--------- $—-—-—---—--------- $a 30900760 
* BOD SAFE BSC L SAFEyE BRANCH T93 SAFE 30900770 
* IF A IS ODD. 30900780 
*——-—-—-——-~—~—-—-—---- $—-— ———-- - - 4—----------------- 30900790 
* MDM AVA,5 MDX L AVA,5 INCREMENT ADRS. 30900800 
* AVA BY 5. 30900810 
¥*-----—--—-- —------ +———-----—-------- $e 30900870 
* XCH RTE 16 EXCHANGE THE 30909830 
* CONTENTS OF A 30909840 
* AND Q. 30900350 
K—— $——--—---—---------- $—--——— 30900860 
Km ——— 30900870 
K———— — — —~— —--—-—--—— —— -——~—--— —-- - - -—- -~ — + - — --- - - -- - --- 30900880 
* 30900890 
ETO CECECEC EEE EEE CECE CELE EELE EL EEE EEE EE EEC CECE EC ECC EGE IIL 1010S 1818 
* 30900910 
TE EEECEE CELE ECEEE CELE EEL EEE EEE ECE EEE CEE ECE EEE E EEE CEEOL PAU) 
x SUBROUTINE CALLS 30909930 
* 30900940. 
*  BNDEC 30900959 
* A REG._HEX NUMBER (0-9999 BASE 10) 30900960 
* BSI BNDEC CUNVERT HEX TO DECIMAL 30900970 
* A REG._CONVERTED DEC. NUMBER 30900980 
* 30900990 
*  CKLK 30901000 
* BSI 2 CKLK-TB CHECK BIT 12 SwO 30901010 
* DC RETURN ADRS IF BIT 12 SET 30901020 
* 30901030 
* CMP 30901040 
x BSI CMP COMPARE DATA WITH NUMBER 30901950 
*x MDX CMP ERR BRANCH 30901060 
* 30901070 
* COUNT 30901080 
* 1X3 _ SUMMARY. TABLE POINTER 30901990 
* BSI 2 COUNT-TB INCR COUNT MODULO 10,000. 39901190 
* 30901110 
*  PRSUM | 30901120 
BSI 2 PRSUM-TB PRINT SUMMARY TABLE 30901130 
* 30901140 
* READ 30901150 
% A REGe_ SECTOR COUNT 30901160 
a BSI 2 READ-TB READ SECTOR AT PRESENT 30901170 
# * CYL. COMPARE DATA IF 30901180 
Ak * NOCK ZERO. 30901190 
* DC NO.OF WORDS-BIT O EQUAL 1 MEANS USE 30901200 
kK RANDOM NUMBERS FOR CMP 30901219 
% DC NUMBER USED IN COMPARE 30901220 
* DC ADRS OF CMP ERROR RETURN 30901230 
* 30901240 
*x *EALTERNATE CALL USED 30901250 
* BSI L READ+/8000 30901260 
* DC NO. GF WORDS 30901270 
* | 30901280 
* RNDOM 30901290 
* A REG.e_ NO. USED TO BUILD NEXT RANDOM NO. 30901300 
* BSI 2 RNDOM-TB GENERATE NO. 30901310 
* A REG._ NEW RANDOM NO. 30901320 
* 30901330 
* SECT 30901340 
* A REG._SECTOR ID IN HEX 30901350 
* BSI SECT CONVERT SID FOR PRINT 30901360 
* oocc * OGHS CC_CYtL # IN DECIMAL 30901370 
15NOV66 L5SJUN6T7 15FEB68 OLOCT68 O1APRES OOMAY69 PROG ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2310 B DISK FUNCTION TEST 


VATE 


EC NO. 


He HERHRHRHHHHEHRH HH HEH H 


% 
Ff 


START EQU 


15NOV66 
419643 


LISJUN67 
420317 420403 


H _ HEAD (0-1) 


es S _ SECTOR (0-3) 
* 
* SETV 
* A REG._NO.TO BE SET IN COMA AREA 
* COMA _ WORD COUNT , 
* BSI. 2 SETV-TB PRESET COMA+1 TO COMA4N+#+2 
** TO VALUE IN A REG. 
* 
* STMLS | 
* BSI- 2 STMLS-TB SAVE IX l» IX 2 AND EXIT 
** 3 * MONITOR. RETURN IS TO 
** * CALL+1. 
% 
* STMSG 
* BSI 2 STMSG-TB PRINT MESSAGE 
* DC MESSAGE ID 
* 
****ALTERNATE CALL USED 
* BSI tL. STMSG+/8000 
*x DC MESSAGE ID 
*x 
* VERFY. - ae 
* BSI 2 VERFY-TB SEEK A CYLINDER AND VER- 
*«* co * IFY CYL. BY READING AT 
Kt ' . -® LEAST TWO SECTOR ID*S 
* DC CYL # DESIRED © : 
* OC RETURN ADRS IF CYL # INVALID OR 
*% BAD FROM 2315 DISK INITIALIZER. 
*« 
* WRITE : | | 
* A REG._SECTOR COUNT 7 
* BSI 2 WRITE-TB WRITE IN PRESENT CYLINDER 
x DC NO.OF WORDS TO BE WRITTEN 
x IF BIT Ol, DONT PRESET 
** THE 1/0 AREA 
DC DATA TO BE WRITTEN | 
DC ADRS OF DSW ERROR RETURN 
**#*ALTERNATE CALL USED 
BSI. L WRITE+/8000 
DC NO OF WORDS 
DC DATA TO BE WRITTEN 
XEQ ) ; 
BSI 2 XEQ-TB EXECUTE 1/0 AND WAIT 
* * FOR INTERRUPT 
CARER EACLE LEE CLE EE CEE EEE EEE EEE LEE EEE EEE EEE ELE LEE 
MONITOR INTERFACE 
STEROL EEE CECE ECE CELE CELE LE LE ELE EEE LECCE EEC ELE EE ELE ES 
* 
We Me Me He MMA eK MK KK RK AME KEK RAK KEKE KKK AK KEK EAKE KKK KK 
* EQUATE TABLE 
Wee Me He A He he ee He he HM RK eK EK KK KK KKK HK 
* THIS TABLE EQUATES TEST PROGRAM LABLES 
*x TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 
x ADDRESSES. | 
b ’ 
a a a ne aa a ir re iia ee Se ee Spt sama eine oe Ra 
* MONITOR ENTRY ADDRESSE 
I ac a i aula mp Sk a ses a a a ae cs eal 
BEGIN EQU /0160 BEGIN ROUTINE 
BEGIN+1 SUPERVISOR ROUTINE 


L5FEB68 


OLOCT68 OIAPR65 O9MAY69 PROG 
571005 571036 571036C PAGE 


PART NO. 


PAGE 


30901380 
30901390 
30901400 
30901410 
30901420 
30901430 
30901440 
30901450 
30901460 
30901470 
30901480 
30901490 
30901500 
30901510 
30901520 
30901530 
30901540 
30901550 
30901560 
30901570 
30901580 
30901590 
30901600 
30901610 
30901620 
30901630 
30901640 
30901650 
30901660 
30901670 
30901680 
30901690 
30901700 
30901710 
30901720 
30901730 
30901 740 
30901750 
30901760 
30901770 
30901780 
30961790 
30901800 
30901810 
30901820 
30901830 
30901840 
30901850 
30901 860 
30901870 
30901880 


30901890 


30901900 
30901910 
30901920 
30901930 
30901940 
30901950 
30901960 


30901970 | 


30901980 
30901990 
30902000 
30902010 
30902020 
30902030 
30902040 
30902050 


2310 8B DISK 


0162 


O5DC 


 U5E0 
 O5E1 


ID 


0163 
0164 


Oooo 


0165 
0166 
O167 
0168 


ooo°o 


OLZA 
O18A 
O19A 
O1LAA 
OLBA 
O1BB 
U18C 
O1BD 


ooocooco 


05bDC 


05D0 
O5DE 
U5DF 


O5E2 
O5E3 
O5E4 


O5E5 
O5E6 
OSET 
O5E8 


05E9 
O5EA 
O5EB 
O5EC. 
Q5ED 
USEE 
O5EF 
05F0 
05F1 
O5F2 


O5F3 0 4480 
O5F5 1 Q5DC 


O02 JAN66 
415490 


_ 
= 


~OoOoO°O me OOOCCOC 
© © 
oO © 
© © 
© © 


DOCoCODOCOCO 
> 
° 
=) 
° 


FUNCTION TEST 


0160 


O1JUL66 
415490C 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


IL4 
RQTY 
RQKB 
SVKB 
x 


RAH RRA RR KEKE REE EHR RR RE REE RE RE EK 


MR HR KR HR RR HK HR HR He He He He RR he Ra a Ke 


* 


We Ae He Me he ae he he Re a RK KK a KR KK KK KE KR 


RNDSK 
RNDWR 
BADCY 


x 
* 
* 
BEG 


ESSE ECCEECEECCE CEE EE CECECEELEECE CECE CEEECCGCL CLES 


* 
* 
x 


FOR THE 1130 SYSTEM 


EQU START#1 
E QU ERROR+1 
EQU LOG+#1 
MONI TOR 

EQU END+tl 
EQU END+t#2 
EQU END+3 
EQU END+4 


EQU 
EQU 
EQU 
EQU 


ORG 


BSI 
DC 


RQKB+1 


*+1500 


ERROR LOG ROUTINE 
STATUS LOG ROUTINE 
END ROUTINE 


CONTROL WORD ADDRESSES 


ROUTINE START SWITCH 
LOCK ON ERROR CONTROL 
I/O BUSY SWITCH ADDRESS 
ACTIVE PGRM MLSCF ADRS 


INTERRUPT LEVEL ZERC 
INTERRUPT LEVEL ONE 
INTERRUPT LEVEL TWO 
INTERRUPT LEVEL THREE 
INTERRUPT LEVEL FOUR 
CONSOLE PRINTER REQUEST 
USE KEYBOARD REQUEST | 
KB SERVICE REQUEST 


PROGRAM CONTROL TABLE 


MONITOR INTERFACE TABLES 


40309 


© 


2310-1130 FUNCTION TEST 
ROUTINE ID 
ROUTINE ADRS 
SWITCH FUNCTION 00 
SWITCH FUNCTION O1 
SWITCH FUNCTION 10 
SWITCH FUNCTION 11 
LOOP PROGRAM ADDRESS 
RESTART ADDRESS 


MAIN LINE SEQUENCE 

* CONTROL FIELD 
TERMINATOR 

LAST PROGRAM ADDRESS . 


AREA CODE-CPU DRIVE 

AREA CODE-UNIT 1 

AREA CODE-UNIT 2 

AREA CODE-UNIT 3 

AREA CODE-UNIT 4 

PATCH OPTION-RANDOM SEEK 
PATCH GPTION RANDOM WRT 


BEGIN ROUTINE 


I BEGIN 
PID 


EXIT, TO MONITOR 
ADRS OF PID 


INTERRUPT ROUTINE 


MERCI 3 he a ee 


PART NO. 2191212 


PAGE 


30902060 
30902070 
30902080 
30902090 
30902100 
30902110 
30902120 
30902130 
30902140 
30902150 
30902160 
30902170 
30902180 
30902190 
30902200 
30902210 
30902220 
30902230 
30902240 
30902250 
30902260 
30902270 
30902280 
30902290 
30902300 
30902310 
30902320 
30902330 
30902340 
30902350 
30902360 
30902370 
390902380 
30902390 
30902400 
30902410 
30902420 
30902430 
30902440 
30902450 
30902460 
30902470 
30902489 
30902490 
30902500 
30902510 
30902520 
30902530 
30902540 
30902550 
30902550 
30902570 
30902580 
30902590 
30902600 
30902610 
30902620 
30902639 
30907640 
30902650 
30902660 
30902670 
30962680 
309025690 
30902700 
30902719 
30902720 


FLEE ELEC EK KS 3.00902. 730 


15NOV66 


—6 419643 


1SJUN6T 
420317 


15FEB68 


420403 571005 571036 571036C PAGE 


Lom, 
+ 
aN 


sae” oS 
| 


010CT68 OTAPR69 O9MAY69 PROG ID 


7 
ee. 


2A 


0309-4 


2A 


| 


we 
a 


VOC 


cy 


05F6 0 0000 
V5F7 0 0000 

05F8 O 0000 

US5E9 O COFC 

U5FA 1 6700 0604 
O5FC O 4818 

O5FD O 6BET 

USFE O 1010 

O5SFF O DOF6 

0600 0 0815 

0601 0 DO14 

V602 1 4C80 05F8 
0604 0 COll 

0605 O D021 

0606 1 6600 065C 
0608 0 4232 

0609 0 5E02 

V60A 0 4480 0161 
065C 0 

0014 0 

060C 0 0404 

060D 0 3000 

V60E 0 1313 

O60F O 0123 

0610 0 0500 

0611 0 0600 

0612 0 0680 

0613 0 0700 

0614 0 0900 

0615 0 8000 

0616 0000 

0616 0 0000 

0617 0 0000 

U618 0 0000 

0619 0 0000 

V61A 0 0000 

061B 0 0000 

061C 1 0614 

061D 0 0900 

061E 0 0000 

061F O OFO] 
0620 0 ESE5 

0621 0 0000 

0622 0 0000 

0623 0 0000 

0624 1 OE1F 

0625 0 0000 

0626 0 0000 

0627 0 0000 

0628 0 0000 

0629 0 0000 

062A 0 0000 

062B 0 0000 

062C 0 0000 

062D 0 0000 
O2JAN66 O1JUL66 
415490 415490C 


a 


oe 


er 


! E 
a 


2310 b&b DISK FUNCTION TEST 


13M MAINTENANCE OILAGNOSTIC PROGRAM 


FOR THE 1130 SYSTEM 
INTSW DC 0 INTERRUPT SWITCH 
DVA OC 0 AREA CODE STORAGE 
INTR DC 0 INTRPT ENTRY 
LD INTSW GET INTRPT SWITCH 
LOX L3 INTRB GET RETURN ADDRESS 
SK P +~ SKIP IF INT EXPECTED 
STX 3 MLSCF SET IN TABLE FOR MONITOR 
INTRC SLA 16 CLEAR INTRPT SW 
STO INTSW * 
* 
X10 ZSNS SENSE OSW 
STU ZSNS STORE DSW IN TEMP LOC®N 
BSC I INTR EXIT ROUTINE 
* 
* PRINT ERROR — MAINLINE 
\ | 
INTRB LD ZSNS GET INTRPT DSW 
STO TBDSW STORE FOR PRINT 
LDX L2 TB SET UP POINTER 
BSI 2 STMSG-TB PRINT EXTRA INT MSG 
DC /5E02 MESSAGE ID 
BSI I START EXIT TO MONITOR 
ae tah se ea a eee ee ee a ee a ee ee ee 
SO i a as ea ct 
TE OCCCECECECEECE ELEC ELEC CELE ERE EEE CEE ERE EEEE EEE 
* 
x TABLE OF COMMON PROGRAM 
* CONSTANTS AND EQUATES 
* 
ET OOCEE CECE ECCLES LEECCECEEE EERE EOEEEEEECECEECOE 
TB EQU PID+128 CONSTANT TABLE POINTER 
LP13  EQU 20 NUMBER OF LOOPS RTN 13 
Ss es Sa a a a oe 
XSKBK DC 10404 FNC/MOD-SEEK QUT 
H3000 DC 43000 FORM NUMBER FOR PRSUM 
H1313 DC /1313 CONSTANT HEX 1313 
MASK DC /0123 ORDER OF SECTOR COUNTS 
WRMOD DC 4/0500 WRITE FUNCTION 
DSKMD DC /0600 READ FNC/MOD 
RDCHK OC /0680 READ-CHECK I0CC 
SNRES DC 40700 SENSE/RESET CONSTANT 
TYRED DC /0900 
H8000 DC /8000 CONSTANT HEX 8000 
BSS E O 
ZSNS OC *— USED AS TEMP LOC'N EVEN 
DC *—* SENSE-RESET IOCC ODD 
ZXIG OC +—* COMMON IOCC STORAGE EVEN 
DC ok # ODD. 
SNXIO DC #— I1O0CC-STORAGE- SENSE EVEN 
DC —% ODD 
TYPE oC TYRED SHIFT TO RED IOCC 
DC 40900 
SNSTY DC + SENSE DSW W/RESET 
DC /OFOL : 
HES5SE5 DC JES5ES CONSTANT HEX E5E5 
MSGO DC *— * MESSAGE STORAGE ODD 
HXDC DC — % HEX/DEC FLAG EVEN 
MSGID DC +—* MESSAGE ID ODD 
ADDRL DC AL PHO 
ADDR2 DC 0 ALPHA ADDRESS 2 
FILE# DC -* FILE NUMBER ODD 
TBDSW DC K— DSW EVEN 
MOD3 DC *—% MODIFIERS EVEN 
MOD4 OC %— x * ODD 
MODS DC *—* x EVEN 
MOD6 DC + * ODD 
MODT OC *—* * EVEN 
BNTMP DC k-* TEMP STORAGE ODD 
15NOV65. -1L5SJUN67 =15FEB68 OLOCT68 O1APPR69 O9MAY69 
419643 420317 420403 571005 571036 571036C 


aos Z . 


LU 
y 


C _ ) j “ eu / ee 


PART 
PAGE 


30902740 
30902750 
30902760 
30902770 
30902780 
30902790 
30902800 
30902810 
30902820 
30902830 
30902840 
30902850 
30902860 
30902870 
30902880 
30902890 
30902900 
30902910 
30902920 
30902930 
30902940 
30902950 
30902960 
30902970 
30902980 
30902990 
30903000 
30903010 
30903020 
30903030 
30903040 
30903050 
30903060 
30903070 
30903080 
30903090 
30903100 
30903110 
30903120 
30903139 
30903140 
30903150 
30903169 
30903170 
30903180 
30903190 
30903290 
30903210 
30903220 
30903230 
30903240 
30903250 
30903260 
30903270 
30903280 
30903290 
30903300 
30903310 
30903320 
30903330 
30903340 
30903350 
30903360 
30903370 
309033380 
30903390 
30903400 
30903410 


NO. 


PROG ID 


PAGE 


ee rcs 

Pe eo Ray 
2191212 
3 
0309-4 
3 





13M MAINTENANCE DIAGNOSTIC PROGRAM 


2310 8&8 DISK FUNCTION TEST 


DATE 
cl NO. 


V62E 0 0000 
vo2F 0 0000 
0630 0 0000 
0631 0 0000 
0632 0 0000 
0633 0 0000 
0634 G 0000 
0635 0 Q000 
0636 O OCOl 
J637 0 0002 
0638 0 0003 
0639 0 CC04 
063A 0 0007 
063B O CQ0UB 
uv63C O OOOA 
Yo3D 0 FFF2 
063E G 0024 
063F G6 0064 
0640 0 OOCA 
0641 0 OCCB 
0642 0 OOFD 
0643 0 014B 
0644 0 0O3E8 
0645 0 2710 
0646 0 

0646 O 0000 
0647 0 C000 
0648 O Q000 
0649 0 0000 
064A 0 0000 
064B 0 0000 
064C 0 0000 
064D 0 0000 
V64E 0 0000 
064F O 0000 
0650 0 0000 
0651 0 0000 
OOOC O 

0652 0 0000 
0653 0 QOUO 
0654 0 0000 
0655 0 COv00 
0656 0 0000 
0657 0 OOUD 
0658 0 0000 
0659 0 0000 
065A 0 C000 
06538 0 OOOO 
065C O 0000 
065D 0 0000 
065E 0 0000 
065F 0 0000 
0660 0 0000 
0661 0 0000 
0662 0 0000 
0663 0 0000 
0664 0 00V0 
0665 O C000 
0666 0 0000 
0667 0 C000 
0668 O 0000 
0669 O CO7B 
O66A 0001 
066B cool — 
066C 0 1510 
066D O 0014 
O66E O GO0O 
0670 O COOO 
O2JAN66 
415490 


0001 


OLJUL66 
415490C 


FOR THE 1130 SYSTEM 


LSNOV66 
419643 


PA®T NO. 
PAGE 
*— * PRESENT CYLINDER EVFN 30903470 
x= me NEXT DESIRED CYLINDER ODD 30903430 
ade SEEK RTN ERROR SW EVEN 30903440 
Sasa SEEK RTN-RETRY CTR B ODD 30903450 
eam RETRY CTRS FVEN 30903460 
*—% * a AOD 30903470 
x & ERROR CTRS FVEN 30903499 
*—% * DODD 30903490 
1 CONSTANT 1 30963500 
2 CONSTANT 2 — 30903510 
3 CONSTANT 3 30903520 
4 CONSTANT 4 30903530 
T CONSTANT 7 30903540 
8 CONSTANT 8 DDD 30903550 
10 TEN 30903560 
—-14 USED TO CALCULATE CPI) TIME 30903570 
36 USED TO CALCULATE CPU TIME 30903530 
100 ONE HUNDRED 30903590 
202 CONSTANT 202 30903600 
203 CONSTANT 203 30903610 
253 DEC IMAL CONSTANT 30903620 
331 CONST ANT 30903630 
1000 ONE THOUSAND 30903640 
10000 CONSTANT 10000 DEC 30903650 
x SUMMARY TABLE ORIGIN 309036460 
5 aes PASS COUNT 390903670 
*—* NUMBER OF SEEKS 30903680 
*—* NUMBER SOFT SK ERRORS 30903690 
ae NUMBER HARD SK ERRORS 30903790 
*-~ % NUMBER OF READS 30903719 
a NUMBER SOFT RD ERRORS 30903726 
*—*% NUMBER HARD RD ERRORS 30903730 
*- % NUMBER OF WRITES 30903740 
En € NUMBER SOFT WR ERRORS 3090375C 
*— & NUMBER HARD WR ERRORS 30903760 
sae AVG SECT LNGTH/WRT 400 39903779 
ee IF NON ZERO-BYPASS PRT 30903739 
*—SUMRY LENGTH OF SUMMARY TASLE 30903799 
*—%* FIRST RANDOM SK ISSUED 30903800 
ahaa LAST RANDOM SEEK ISSUED 30903819 
soi FIRST RANDOM # RTN 9 390903820 
= LAST RANDOM # RTN 9 30903830 
cams FIRST RANDOM # RTN 10 30903840 
ae LAST RANDOM # RTN 10 30903850 
Soe SEEK RTN-RETRY CTR 30903860 
mK — Xt TEMP STORAGE 30903870 
*— % BYPASS RD CKS IF NON 9 30903880 
sient RECORD LENGTH STORAGE 30903890 
nae INDEX POINTER 30903900 
Bae CMP RTN ERROR CTR 30903910 
%— TEMP STORAGE CMP RTN- EVEN 30903920 
Kae * 30903930 
K— * : 30903940 
*-— % PRESENT SECT/CYL ID ODD 30903950 
= LAST WORD PRINTED 30903960 
%—% DELAY COUNT 30903970 
+= * RETRY COUNTER 30903980 
*—% RETRY COUNTER 30903990 
a ERROR SWITCH 39904099 
%—% RIN ERROR COUNTER 30904010 
=e TEMP STORAGE 30904070 
123 DECIMAL CONSTANT 30904039 
e226 30904040 
236. 30904059 
5392 RTN 13 LOOP TIME (NSEC) 30904060 
LP13 AVERAGING CONSTANT RTN 13 30904070 
1 LOOP ADDEND RTN 13 EVEN 30904080 
*— RTN 13 LOOP (NSEC) 30904090 
15JUN67 15FEB68 OLOCT68 OIAPRED O9MAY69 PROG ID 
420317 420403 


571005 571036 ~571036C PAGE 


2191712? 
3A 


0309-4 
3A 





IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2310 B DISK FUNCTION TEST 


DATE 
cC NO. 


0671 
0672 
0673 
0674 
0675 
0676 
0677 


- OM mw oO 


0679 O 
1 


O67A 


O67C 0 
0670 1 


OO7F O 
0680 1 


0682 O 
0683 1 


0685 0 
0686 1 


0688 0 
0689 1 


0688 0 
068C 1 


O68E O 
O68F 1 


0691 0 
0692 1 


0694 0 
0695 1 


O697 O 
0698 1 


069A 0 
069B 1 


069E 
080C 0 


0814 0 
0815 0 
0816 1 
0818 0 
0819 O 


O2JAN66 


415490 


019A 
O5F8 
OAEO 
O69E 
0869 
0000 


4C00. 


0000 
4C00 


0000 
4C00 


0000 
4C00 


0000 
4C00 


0000 
4C00 


0000 
4C00 


0000 
4C00 


0000 
4C00 


0000 


~4C00 


0000 
4C00 


0000 
4C00 


0000 
4C00 


0176 


630C 
1010 


ODOT 


OD15 


O8B7 


OD5E 


OBEB 


oDOl 


ODIF 


0B30 


OD67 


0D28 


OB3F 


OC D5 


OAF9 


O700 0645 


T3FF 
TOFC 


O1JUL66 
415490C 


PART NO. 
PAGE 
* 30904100 
ADIL2 OC IL2 INTERRUPT ADDRESS 30904110 
ADINT DC INTR ADDRESS OF INTERRUPT RTN 30904120 
ADIN2 DC INT2 INTRPT ADRS TIME RTN 30904130 
ADCMA DC COMA ADRS OF COMA 30904140 
ADPCN DC PRECN ADRS PRE CNTL RTN 30904150 
CKLK OC x— x ENTRY TO CK LOCK OPTION 30904160 
BSC L CKLKE * RIN 30904170 
* 30904180 
CKPRT DC x—% CHECK PRINT-ALL-ERRORS OPT 30904190 
BSC L  CKPRE ENTRY POINT 30904200 
* 30904210 
CNTLE DC *— BRANCH TO CONTROL 30904220 
BSC L  CNTL * ROUTINE 30904230 
* 30904240 
COUNT DC x — ENTRY TO INCR SUMMARY 30904250 
BSC L- COUNE * COUNT RTN 30904260 
* 30904270 
READ 0C *— % ENTRY TO DISK READ 30904280. 
BSC L  RDEN * RTN - 30904290 
30904300 
RNDOM OC — ENTRY TO GENERATE 30904310 
BSC t RNDME * RANDOM NUMBER RIN 30904320 
* 30904330 
SETV DC *—* ENTRY TO SET I/0 AREA 30904340 
BSC Lk. SETVE * RTN 30904350 
* . | 30904360 
STMLS DC *— * ENTRY TO SAVE INDEXING 30904370 
BSC Lt STMLE * AND EXIT TO MONITOR 30904380 
* | 30904390 
STMSG DC. k— ENTRY TO SET UP AND 30904400 
BSC L STMSE * PRINT A MESSAGE 30904410 
* 30904420 
TEXIT DC *—* ENTRY OF CALL 30904430 
; BSC LL DOFTXT TO TERMINATE DFT 30904440 
*. 30904450 
VERFY DC *— ENTRY TO SEEK A CYL AND 30904460 © 
BSC L  VRFYE * VERIFY THE SEEK 30904470 
* 30904480 
WRITE DC *— ENTRY TO WRITE DATA 30904490 
BSC LL WRITEN * ON THE DISK 30904500 
* , 30904510 
XEQ DC *— ENTRY TO EXECUTE AN 30904520 
BSC LL  XEQE * XIO INSTRUCTION 30904530 
He : 30904540 
TE ORE OEE LE REE EEL EL EL EE LECCE LEE E EE EEE EERE CLEC CE CCE IL IY Ss isit 
* | 30904560 
LOC LEE ECE CECE EE ELE CELE EERE LEER EEL EE EL EL ECE CEC CEE EEN 1 CHAI 
#—— —— + +--+ ~~~ 30904580 
* 30904590 
COMA BSS E374 THIS SETS *BDCYL® EVEN 30904600 
BDCYL EQU COMA+366 USED IN VERFY ONLY 30904610 
* 30904620 
#--—------ — - - - - - + 30904630 
RK KKK KKK KEK EEE KE KKK E ELE EE EEE EK 433800904640 
* 30904650 
* INITIALIZATION ROUTINE 30904660 
* 30904670 
EEE ECE ELE LEE EEE E LE CEE EEE EERE ECE EEE ELE E CELE EE ECEE EE III 9:18 
* . 30904690 
* CLEAR SUMMARY TABLE 30904700 
* 30904710 
ZIPA LOX 3 SMLNG LENGTH OF SUMMARY TABLE 30904720 
SLA 16 CLEAR A REGISTER 30904730 
ZIPL STG L3 SUMRY-1 CLEAR SUMMARY TABLE 30904740 
MDX 3-1. DECR POINTER 30904750 
B ZIPL Loop 30904760 
* 30904770 
15NOV66 15JUN67 L5SFEB68 010CT68 OTAPR69 O9MAY69 pens ip 
419643 420317 420403 571005 571036 © 571036C pace 
= 2 ne a 2 ee = fox 
| } ) : | 
e x ug howd UY ye 4p UY 


2191212 


4 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR 


2310 B DISK FUNCTION TEST 


DATE 
EC NO. 


~—O0821 


0832 


O8l1A 
081C 
081D 
O81E 
O81F 
0820 


0823 
O824 
0826 
0827 
0828 


—“oOoorecr Goooco- 


082A 
082C 
O82E 
O82F 


©Oom~ 6 


0830 


0834 
0835 
0836 
0838 
O83A 
083B 
083D 
OSSE 
0840 
0841 
0843 
0844 
0845 


0846 
0847 
0849 
O84A 
084B 
084C 
O84E 
O84F 
0850 
0851 
0852 
0853 


~mOoocoeoercocrsd oooro0ocoeoorrcd oro 


0855 
0857 
0858 
O85A 
085B 
085C 
085D 


ooooro- 


O85E O 
O85F O 
0860 O 


0861 O 


O2JAN6 
415490 


6600 
C285 
100C 
180C 
6310 
1340 
C700 
D298 
6F00 
C215 
92CA 
D400 


C480 
4C18 
422F 
TOFA 


6500 
6D00 
OAC2 


065C 


O5E9 


0626 


OAFB 


0167 
0830 


OFOO 
06 1F 


1004 


4€28 
1401 
C216 
D400 
D29A 
6500 
C20F 
D400 
C2C3 
D2BB 
OACO 


C29A 
4C18 


TLFF 


T10FB 


C20E 


D400 
C2E1 
82E2 
D2C2 
OAC2 
1004 
4028 


6600 
C283 
4C04 
C219 
D28A 
D282 
D242 


1010 
D281 


082A. 
O61E 


018B 


07D0 


OE2D 


O84F 


OE2D 


O851 


065C 


0866 


D2F5 . 


C298 


6 


O1JUL66 
415490C 


PART NO. 2191212 


THE 1130 SYSTEM 
PAGE 

LDX L2 TB SET UP TABLE POINTER 30904780 

LD 2 SW2-TB GET SW FNC TwO 30904790 

SLA 12 CLEAR BITS 0-11 30904800 

SRA 12 & 30904810 

LDX 3 16 SET INITIAL COUNT 30904820 

SLCA 30 CREATE DRIVE NUMBER 30904830 

to 13 DVAS GET CORRECT AREA CODE 30904840 

STO 2 DVA-TB SET IN DEV. AREA CODE 30904850 

STX 13 FILE# FOR PRINTOUTS 30904860 

LD 2 ADIL2-TB GET ADDRESS OF IL2 30904870 

S 2 FILE#-TB CREATE INTERRUPT ENTRY 30904880 

STO LL XEQAt#l SET FOR XIO RIN 30904890 

* | 30904900 
ZIPB LD I LOGBY GET TYPEWRITER BUSY SWITCH 30904910 
BZ ZIPC BRANCH IF NOT BUSY 30904920 

BSI 2 STMLS-TB ELSE GO TO MONITOR 30904930 

MDX ZIPB RETURN HERE..GON TEST AGAIN 30904940 

* 30904950 
ZIPC LDX Lil /OFOO SENSE DSW FOR TYPEWRITER 30904960 
STX Ll SNSTY+#1 STORE FOR TESTING TY 30904970 

X10 2 SNSTY-TB SENSE TYPEWRITER DOSW 30904980 

SLA 4 GET BUSY BIT 30904990 

BN ZIPB LOOP IF BUSY 30905000 

MDX L  SNSTYel SET RESET BIT 30905910 

LD 2 ADINT-TB GET INTERRUPT VECTOR 30905020 

STO Lt RQTY SET FOR TYPEWRITER INTRPT 30905030 

STO 2 INTSW-TB SET INTRPT SWITCH FOR INTR 30905040 

LDX Ll 2000 SET TIME CONSTANT FOR CNT 30905050 

LD 2 CPUT3-TB GET TIME FOR MESSAGE 30905960 

STO tL CPUTO SET TIME IN MESSAGE 30905070 

LD 2 SNSTY+1-TB GET TYPEWRITER SNS DSW 30905080 

STO 2 ZSNS+1-TB SET FOR INTR ROUTINE 30905090 

X10 2 TYPE-TB SHIFT TO RED | 30905100 

* | 309051190 
ZIPD LO 2 INTSW-TB GET INTRPT SWITCH 30905120 
BZ ZIPE BRANCH IF INTRPT OCCURRED 30905130 

MD X 1 -l ELSE BUMP TIMER 30905140 

MDX ZIPD LOOP IF NOT THROUGH 30905150 

LD 2 CPUT2-TB GET TIME FOR MESSAGE 30905160 

STO L CPUTO SET FOR PRINT 30905170 

LD 2 KM14-TB FALL THRU TO HERE FOR 2.2 30905180 
ZIPE A 2 K36-TB BR HERE IF 3.6 MEMORY 30905190 
: STD 2 SNSTY-TB SAVE IN UPPER WORD.SNSTY 30905200 
ZIPF xXxI0O 2 SNSTY-TB SENSE TYPEWRITER DSW 30905210 
SLA 4 GET BUSY BIT 30905220 

BN ZIPF LOOP IF BUSY 30905230 

+ FALL THRU TO ZLPA 30905240 
* 30905250 
5 OES CEE E CEC CECE EE CEC ECE EEE CELE ECE E CELE CEL ELE LECCE EEN YET) 
* 30905270 
* LOOP PROGRAM ENTRY 30905280 
* 30905290 
OSCE ECE CECE EEE EEC EC ELE LECCE LECCE ECE CECE CECE CECE EEN LET! 
ZLPA LDX L2 TB POINTER TO TABLE 30905310 
LD 2 SWO-TB GET FNC SW O00 30905320 

BOD ZLPB BRANCH # BIT 15 SET 30905330 

LD 2 ADPCN-TB GET ADDRESS OF PRE-CONTROL 30905340 

STO 2 MLSCF+1-TB SET IN MLSCF 30905350 

STO 2 RAD-TB SET FOR MESSAGES AND ERROR 30905360 

STO 2 COMA-TB MAKE COMA NON-ZERO FOR XEQ 30905370 

x 30905380 
SLA 16 CLEAR REGISTER 30905390 

STO 2 RID-TB CLEAR RID 30905400 

STO 2 PRSW-TB CLEAR NO-PRINT SWITCH 30905410 

* 30905420 
* CREATE IOCC*S FOR SENSE DEVICE 30905430 
* | , 30905440 
LD 2 DVA-TB GET AREA CODE OF SEL. DEV. 30905450 
L5NOV66 L5JUN67 15FEB68 01G0CT68 OTAPR69 O9MAY69 PROG ID 

419643 420317 420403 571005 571036 571036C PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


no f —_ 
; | \ 
7 \ @ z C ey L Y 
. 2310 B&B DISK FUNCTION TEST 
0862 O EABT 
0863 O D2BF 
0864 O EADA 
0865 O D2BB 
0866 0 4480 O161 
0868 O CEDC 
0869 & 6600 O065C 
086B 0 4232 
086C O 5A00 
086D O C280 
OB6E 0 1890 
O86F 0 D2D2 
0870 O C2E5 
O871 O DABC 
O872 0 423E 
0873 0 6132 
0874 O 1010 
0875 0 D242 
0876 0 423E 
0877 0 63FC 
0878 O 402E 
0879 0 CO2C 
O87A Q E2DC 
0878 O 100C 
OB7C CO 18DC 
087D O 7301 
O87E 0 70F9 
O87F O 1090 
0880 0 D2cCc 
0881 0 F2B3 
0882 Ll 4€18 0887 
0884 0 4232 > 
0885 0 9EL3 
0886 0 4235 
0887 O 71LFF 
0888 0 70EB 
0889 0 4238 
088A 0 OG0O 
088B 1 0028 
O88C 0 4238 
088D 0 OOCT 
O88E 1 0028 
DATE  O2JAN66 O1JUL 66 
EC NU. 415490 415490C 


OR 2 
STO 2 
OR 2 
STO 2 


ZLPB BSI I 


ph OEECEEEOCLEECECEREECECELE ECE EEE EEEEEE CE EEECEEECE CELE EES 
bE EECCEEEECEEEEEEEEE EEE EE ECECEEEECECEEE EE EE ECEEEEECE EES 


SNRES-TB 


COBINE WITH SNS IOCC 


SNXIO#1-TB SET FOR SENSING 


K1-TB 


ZSNS+1-TB 


START 


420403 


SET RESET MODIFIER BIT 


SET FOR INTRPT SNS 


GO TO MONITOR 


x 
x PRE-CONTROL ROUTINE 
sz 
* THIS *ROUTINE® TESTS FOR SEQUENTIAL 
x SECTOR COUNTS IN THE DSW, ISSUES A SEEK 
x TOWARD HOME OF 202 CYLINDERS TO ASSURE 
x THAT THE ARM IS HOME AFTER WHICH THE 
* HOME BIT (BIT 4) IS TESTED FOR ON. 
* 
x CALLS ON THE "VERFY* ROUTINE TO MAKE 
% SURE THE ARM IS AT HOME. 
* 
* READS THE CE HISTORY TRACK ON CYLINDER 
* 199 SECTOR 6 AND SETS UP THE BAD CYL- 
x INDER TABLE. 
Fs 
m 
eT CCE CERCLA ECECEEEEE ELE CEE EEE ELE EEE EE ECE EEE CECE EES 
xe 
HCEDC DC /CEDC CE DISK PACK 
x 
PRECN LDX L2 TB IX2 _ TABLE POINTER 
BSI 2 STMSG-TB PRINT ®2310 DFT START? 
DC 15400 FORM/MESSAGE ID 
LD 2 XSKBK-TB GET SEEK-TOWARD-HOME IQCC 
SRT 16 PUT IN Q REGISTER 
STO 2 PCYL#-TB SET CYL POINTER 
LD 2 K203-TB SEEK OUT 203 CYLINDERS 
STD 2 ZXIO-TB SET FOR XEQ RTN 
BSI 2 XEQ-TB EXECUTE IOCC IN ZXIO0 
LOX 1 50 LOOP COUNTER 
PRECA SLA 16 CLEAR A REG. 
STO 2 COMA-TB SET FLAG FOR NOT EXECUTE 
BSI 2 XEQ-TB GO TO CHECK FOR READY 
LDX 3-4 SET COUNTER AND SECTORS 
PRECB BSI PRECJ GO WAIT FOR SECTOR 
LD PRECT GET SECTOR JUST TESTED 
AND 2 K3-TB * | 
SLA 12 SAVE HEX DIGIT IN Q REG. 
RTE 28 * 
MDX 31 COUNT NUMBER SECTORS 
B PRECB LOOP | 
SLT 18 GET FOUR SECTORS 
STO 2 MOD3-TB SAVE IN CASE PRINT 
EDR 2 MASK-TB TEST FOR /0123 
BZ PRECD | 
BSI 2 STMSG-TB ELSE PRINT ERROR MESSAGE 
DC /9E13 SECTOR COUNTER BAD 
BSI 2 TEXIT-TB TERMINATE DFT 
PRECD MDX 1-1 LOOP COUNT DECREMENTED 
B PRECA LOCP 
oe ; 
% LOOP IS FINISHED 
* ; 
PRECE BSI 2 VERFY-TB GO VERIFY ARM AT HOME 
DC 0 CYLINDER ZERO 
DC DFTXT ERROR RETURN ADDRESS 
BSI 2 VERFY-TB GO TO CYLINDER 199 
DC 199 * CE HISTORY TRACK 
DC - DFTXT ERROR RETURN ADDRESS 
15NOV66 15 JUN67 L5FE 868 
419643 420317 571005 571036 


iw 


PART NO. 


PAGE 


30905460 
30905470 
30905480 
30905490 
30905500 
30905510 
30905520 
30905530 
30905540 
30905550 
30905560 
30905570 
30905580 
30905590 
30905600 
30905610 
30905620 
30905630 
30905640 
30905650 
30905650 
30905670 
30905680 


ee 


( 


30905690 > 


30905700 
30905710 
30905720 
30905730 
30905740 
30905750 
30905760 
30905770 
30905780 
30905790 
30905800 
30905810 
30905820 
30905830 
30905840 
30905850 
30905860 
30905870 
30905880 
30905890 


30905900. 


30905910 
30905920 


30905930 


30905940 
30905950 
30905960 
30905970 
30905980 
30905990 
30906000 
30906010 
30906020 
30906030 
30906040 
30906050 
30906060 
30906070 
30906080 
30906090 
30906100 
30906110 
30906120 
30906130 


571036C PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


PART NO. 
) PAGE 
2310 B DISK FUNCTION TEST 
* 30906140 
088F 0 C2DC LD 2 K3-TB GET 3 30906150 
0890 1 4400 8682 BSI L READ+/8000 READ SECTOR 3 30906160 
J892 0 OO1B DC 27 READ 27 WORDS 30906170 
% 30906180 
0893 0 C244 LD 2 COMA+2-TB GET WORD 2 30906190 
0894 O FOD3 EOR HCEDC CMP WITH S/B 30906200 
0895 1 4C18 O89A BZ PRECG BRANCH IF OK 30906210 
0897 0 4232 BSI 2 STMSG-TB ELSE PRINT MESSAGE 30906220 
0898 O SACL DC /SAOL NOT INITIALIZED DISK 30906230 
0899 0 4235 BSI 2 TEXIT-TB TERMINATE DFT 30906240 
Os9A L 6780 O6AL PRECG LDX I3 COMA&3 NO BAD SECTORS-NOT CYLS 30906250 
0O89C 1 6500 O5FO LDX Ll BADCY ADRS OF BAD CYL TABLE 30906260 
of 30906270 
O89E 1 C700 O6A0 PRECF LD L3 COMAE&2 GET BAD SECTOR NO. 30906280 
UBAO O 1883 SRT 3 RIGHT JUSTIFY 30906290 
O6AlL O D100 STO 1 0 STORE IN BAD CYL TABLE 30906300 
Q8A2 0 7101 MD X Ll INCR POINTER 30906310 
U8A3 0 73F8 MOX 3 -8 DECR SECTOR COUNTER 30906320 
U8A4 O TOF9 B PRECF Loop 3090 6330 
O4A5 O 7011 MDX CNTL GO TO CONTROL ROUTINE 30906340 
* 30906350 
* 30906360 
* 30906370 
* WAITS FOR SECTOR COUNT IN DSW 30906389 
a SECTOR COUNT IS LOW ORDER TWO BITS OF 30906390 
x INDEX REGISTER THREE 30906400 
| x 30906410 
V8A6 O 0000 PRECT DC 0 TEMPORARY STORAGE 30906420 
x 30906430 
O8AT O COOD PRECJ DC eK SUBROUTINE ENTRY POINT 30906440 
O8A8 O &BFD STX 3 PRECT SAVE SECTOR COUNT WORD 30906450 
UVBAI O C2E9 LB 2 KLOTH-TB SET TIMEOUT COUNTER 30906469 
OsAA 0 D207 STO 2 ZCNT-TB SAVE TIMEOUT COUNT 30906470 
Q8AB O OABE PRECL XIO 2 SNXIO-TB SENSE DSW 30906480 
UdAC O D2CB STO 2 YTBOSW-TB SET IN CASE PRINT 30906490 
O8AD O FOF8 EOR PRECT LOOK FOR SAME SECTOR 309065900 
V8sAE O E2DC AND 2 K3-TB * COUNTS AS IN IX3 30906510 
OSAF 1 4C98 O8AT PRECM BZ I PRECJ 30906520 
0881 1 74FF 0663 MDX L JZCNT,-1l ELSE COUNT TIME 30906530 
08B3 0 TOF7 MD X PRECL LOGP IF NOT TIMEOUT 30906540 
08B4 O 1010 SLA 16 CLEAR A REGISTER 30906550 
08B5 O DOFO STO PRECT SET SECTOR TO ZERO 30906560 
O08B6 O TOF8 B PRECM RETURN - 30906579 
5 OREO CE EE ECE EEEE EEE EEE LECCE ELEC EEE EEE EE CELE ELEC ECE 101 Fi! 
* | 30906590 
* CONTROL ROUTINE 30906600 
* 30906610 
x THIS ROUTINE SELECTS A TEST ROUTINE AND 30906620 
* BRANCHES CONTROL TO IT. 30906630 
* | : | 30906640 
* WHEN ALL ROUTINES ARE COMPLETE THIS ROUTINE 30906650 
* BRANCHES TO MONITOR END ROUTINE. 30906660 
- & 7 30906570 
BO EEEE CEE EEEEEEEEC EE EEEEE CE ECE EEE EERE ELEC CECE CECE EGE 101 0153;10) 
0032 0 © LPCNT EQU 50 ROUTINE LOOP COUNT 30906690 
Q3B7 1 8600 O65C CNIL LDX L2 TB IX2 _ TABLE ADDRESS 30906700 
V6B9 0 C283 LD 2 Swo-TB GET. SW FNC O 30906710 
066A 1 4C04 0D28 BOD DF TXT BRANCH # TERM DFT SW ON 30906729 
O8BC O C284 - LO 2 SW1-TB GET SW FNC 1 ~ a 30905739 
O8BD 1 4C20 O8CF BNZ CNTLD BRANCH [EF NO RTN: SELECTED 30906749 
, | * _ va 30906750 
O8BF O C281 LD 2 RID-TB GET RT™N ID 30906760 
O8CO O 82DA A 2 K1-TB ADD 1°: . 30906770 
04C1l 0 D281 STO 2 RID-TB SAVE eG 30906780 
O8sc2 O 9013 | Ss RTT BL CK. FOR VALID . 30906790 
08C3 1 4C10 OD2D | BNN PRSUM BRANCH IF’ COMPLETE 39906800 
| * | 30906819 
DATE O2JAN66 O1JUL66 L5NOV66 LSJUN67 15FEB68 Ol1OCT68 QIAPR69 O9MAY69 PRONG IN 
tC NUe 415490 4154900: 419643 °©42031L7 ©. 420403 571005 571036 571036C PASF | 
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2310 8 DISK FUNCTION TEST 


DATE 
tC NU. 


O8C5 1 6580 O5DD 
O8C7 1 C500 08D6 
O8C9 O D282 

O8CA O 6132 

O8CB O 1010 

O8CC O D20B 
~O8CD 1 4C80. 05DE 
O8CF O D281 

0O8D0 O 9013 

0O8D1 1 4€28 O8C5 
08D3 0 4232 

O08D4 O 5A02 

08D5 0 4235 

08D6 O OO00D 

O8D7 1 O8E5 

0O8D8 1 0919 

08D9 1 093C 

O8DA 1 094D 

O5DB 1 0954 

O8DC 1 O95A 

O8DD 1 095C 

O8DE 1 O098B 

O8DF 1 0983 

O8EO 1 09B9 

O8E1 1 O9FC 

O8E2 1 OAI2 

O8E2 0 

O8E3 1 OAE6C 

O8E4 O OOOE 

O8E5 O 6114 

O8E& O 4238 

O8E7 O C000 

O8E8 1 O8E9 

OSE9 0 6922 

O8EA 0 C2DA 

O8EB O D006 

OBEC O 61F8 

OSED 0 6922 

O8EE 0 C021 

O8EF OQ E2DE 

OSFO 1 4400 8682 
O8F2 0 OOOL - 
OSF3 0 C2BA 
O8F4 1 4C28 O8F8 
O&8F6 O 7101 

O8F7 O TOF5 

O8F8B 1 C500 0918 
O8FA 0 D20C 

OSFB 1 4400 OC4B 
O&FD O 1000 

02 JAN66 O1JUL66 
415490 415490C 
“) 7 a 
ee : 


PART NO. 
PAGE 
CNTLB LDX 11 RID | 1X EQUAL RTN ID 30906820 
LD Ll RTTBL GET. RTN ADRS 30906830 
* 30906840 
STO 2 RAD-TB SAVE RTN ADRS. 30906850 
LDX 1 LPCNT SET LOOP COUNT 30906860 
SLA 16 CLEAR ROUTINE ERROR SW 30906870 
STO 2 RTINER-TB- * 30906880 
B I RAD BRANCH TO TEST RIN - 30906890 
* 30906900 
CNILD STO 2 RID-TB SET IN RTN ID 30906910 
S SPRTN 30906920 
BN CNTLB- BRANCH IF SPECIAL RIN 30906930 
BSI 2 STMSG-TB ELSE PRINT MESSAGE 30906940 
DC /5A02 INVALID RTN SELECTED 30906950 
BSI 2 TEXIT-TB TERMINATE DET 30906960 
* 30906970 
x ROUTINE ADDRESS TABLE 30906980 
* 30906990 
RTTBL DC LRTN-RTTBL LENGTH OF RTN ADRS TABLE 30907000 
DC RTNL ADDRESS OF TEST ROUTINE 1 30907010 
DC RTN2 2 30907020 
DC RTN3 3 30907030 
DC RTN4 & 30907040 
DC RTNS 5 30907050 
DC RTNG 6 30907060 
DC RTNT 7 30907070 
DC RTNB 8 30907080 
DC RTNO 9 30907090 
DC RTNLO 10 30907100 
DC RTNL1 11 30907110 
DC RIN12 12 30907120 
LRTN EQU * END OF RTN TABLE 30907130 
x SPECIAL RTN TABLE 30907140 
DC RTN13 13 30907150 
SPRTN DC SPRTN-RTTBL 30907160 
#—-~—-----—--— + + -  e 30907170 
#—— ————-—- — ~~~ ~~ 30907180 
# KEK KK KKK KE EK EEK CK KEKE KEKE KKK KEKE KEKEKKKEKK. 30907190 
* 30907200 
* TEST ROUTINE ONE 30907210 
* 30907220 
ERK KKK KKK EEK KK CE EK EEE KEKE EKEC EEK. 30907230 
* 30907240 
RTNL LDX 1 20 LOOP COUNTER 30907250 
BSI 2 VERFY-TB SEEK CYLINDER ZERO 30907260 
DC 0 CYLINDER NUMBER 30907270 
DC RTNLA ERROR RETURN ADDRESS 30907280 
* - 30907290 
RTNLA STX 1 RTNLE+1 SAVE ROUTINE LOOP COUNTER 30907300 
LD 2 K1-TB INITIAL WORD COUNT 30907310 
STO WOCNT SET FOR CALL ON READ RTN 30907320 
* 30907330 
RTN1B LDX 1 -8 READ EIGHT SECTORS 30907340 
* ce 30907350 
RTNIC STX 1 SCTOR SET FOR MASK 30907360 
LD SCTOR GET PRESENT SECTOR 30907370 
AND 2 K7-TB SAVE BITS 13-15 30907380 
BSI ££ READ+/8000 READ WITHOUT CHECKING DATA 30907390 
WDCNT DC 1 WORD COUNT 30907400 
LD 2 ZSNS-TB GET INTERRUPT DSW 30907410 
BN RTNLD BRANCH IF ERROR INDICATED 30907420 
MDX 11 ELSE READ NEXT SECTOR 30907430 
B RTNLC LOOP | 30907440 
* | 30907450 
RTNID LD Ll STORG+7 GET DATA LAST READ 30907460 
STO 2 CMPTM-TB SET FOR COMPARE 30907470 
BSI & CMP GO COMPARE 30907480 
NOP 0 ERROR RETURN 30907490 
15NOV66 15JUN67  LSFEB68 O1OCT68 PRONG ID 
419643 420317 420403 571005  OIAPR69 O9MAY69 pace 
571036 571036C 
a ‘ ic % | o Sy ’ S e \ F » ? \ 
% ey ee ee. feo : Let Say =, NN ae Sc 


2310 8 DISK FUNCTION 


TEST 


O8EC 


090B 
0141 


0000 


OOCA 


O8FE 0 COF3 
OSFF O 1001 
0900 0 DOF1 
0901 0 1006 
0902 1 4C€30 
0904 0 1001 
0905 1 4C30 
0907 0 6700 
0909 0 6BEB 
090A 0 70E1 
090B 0 6500 
O090D 0 71FF 
O90E 0 TODA 
O90F 0 4220 
0910 0 FFF8 
0911 0 1313 
0912 0 E5E5 
6913 0 1313 
0914 0 E5E5 
0915 0 E5E5 
0916 0 1313 
0917 0 ES5E5 
0918 0 1313 
0919 0 63FF 
091A 0 6B1F 
091B 0 6302 
O91C O 6B1E 
091D 0 C2DA 
O91E 0 4007 
O91F O 63FE 
0920 0 6B19 
0921 0 6301 
0922 0 6818 
0923 0 C2E5 
0924 0 4001 
0925 0 4220 
0926 0 0000 
0927 0 BOOC 
0928 0 6500 
092A 0 C009 
092B 0 800E 
092C 0 D001 
092D 0 4238 
0¥ZE 0 C000 
092F 1 0930. 
0930 O COFD 
0931 0 #8co9 
uy32 0 DOO] 
0933 0 4238 
O2JAN66 


415490 


O1JUL66 
~ 415490C 


{BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


a a ee >) aa i 
| | nr a f a a 7 


pes 
: f PMS 
| 

_ 


PART NO. 
PAGE 
LD WDCNT GET LAST WORD COUNT 30907500 
SLA l DOUBLE WORD COUNT 30907510 
STO WOCNT SET FOR NEXT READ 30907520 
SLA 6 TEST FOR GREATER THAN 256 30907530 
BP RTN1B BRANCH IF NOT 30907540 
SLA l SHIFT LEFT 30907550 
BP RTNLE BRANCH IF WORD CNT _ 321 30907560 
LDX U3 321 ELSE SET MAX WORD COUNT 30907570 
STX 3 WOCNT SET FOR CALL 30907580 
B RTN1B GO pO IT 30907590 
* | 30907600 
RTNLE LDX Ll *-* GET RTN LOOP COUNTER 30907610 
MDX 1 -1 DECREMENT COUNT 30907620 
B RTNIA Loop 309076 30 
BSI 2 CNTLE-TB TERMINATE RTN 30907640 
* 30907650 
SCTOR DC —8 SECTOR POINTER 30907660 
* 30907670 
STORG DC 4/1313 SEQUENTIAL SECTOR DATA 30907680 
DC /ES5E5 % 30 907690 
DC 41313 x 30907700 
DC /E5E5 x 30907710 
DC JE5E5 * 30907720 
DC 41313 * 30907730 
DC /ES5ES x 30907740 
DC 41313 * 30907750 
x 30907760 
ERK KKK KEKE EEE EEK EEE KEE KKK EE EEK EEK 30907770 
* | 30907780 
* TEST ROUTINE TwO 30907790 
* 30907800 
* THIS ROUTINE WILL SEEK 2 IN AND 1 QUT FROM 30907810 
* CYLINDER ZERO TO CYLINDER 202 EXCEPT - 30907820 
x CYLINDERS 90-110. THE ROUTINE WILL THEN - 30907830 
x SEEK 2 OUT AND L IW FROM CYLINDER 202 TO 30907840 
x CYLINDER ZERO. EACH SEEK IS VERFIED FOR 30907850 
* PROPER CYLINDER REACHED. 30907860 
* 30907870 
BEE KKK KKK KEKE EERE KKK EE EEK EEK EEK «339078 B0 
RTN2 LDX 3-1 DECR SEEKS BY ONE 30907890 
STX 3 INCRL x 30907900 
LDX 32 INCR SEEKS BY TWO 30907910 
STX 3 INCR2 x 30907920 
LD 2 K1-TB FIRST CYL. WILL BE HOME 30907930 
BSI RTN2P EXECUTE SUCCESSIVE SEEKS 30907949 
x | : 30907950 
LDX 3 -2 DECR SEEKS BY TWO 30907960 
STX 3 INCRI * 30907970 
LOX 31 INCR SEEKS BY ONE 309079R0 
STX 3 INCR2 * 30907990 
LO 2 K203-TB8 INI. CYL. + 1 30908000 
BSI RTN2P EXECUTE SUCCESSIVE SEEKS 30908019 
BSI 2 CNTLE-TB EXIT ROUTINE 3090802) 
x 30908030 
RTN2P DC *— 3k ENTRY POINT 30908049 
STO RTN2T STOR FOR CALL 30908950 
LOX LI 202 NO. IF SEEKS 30908069 
* | 30908070 
RTN2Q LD RTN2T GET CYL. NO. 30908080 
A INCR1 INCR OR DECR 390903090 
STO RTN2R  —~=~STORE FOR SEEK _ 30908100 
BSI 2 VERFY-TB SEEK CYL. AND VERIFY 30908110 
RTN2R DC *— * CYLINDER NOw; 30908129 
DC RTN25S ADRS ERROR RETURN 30908139 
RTN2S LO RTN2R GET LAST CYL. NO. 30908140 
A INCR2 INCR OR DECR 30908150 
STO RTN2T STORE FOR SEEK 30908169 
BSI 2 VERFY-TB CALL VERFY ROUTINE 3N9N38170 
1 5NOV66 15 JUN67 15FE B68 010CT68 DIAPR69 OOMAY69 PROG ID.. 
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FOR THE L130 SYSTEM PART NO. 2191212 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191212 
: PAGE 7 PAGF TA 
2310 B DISK FUNCTION TEST 2310 B DISK FUNCTION TEST 
0934 0 0000 RTN2T DC x — CYLINDER DESIRED 30908180 SOC ECCEEERECEEEECEEEEEEEEEELECE ELE CE CEEEE ELE LES 309038460 
0935 1 0936 DC RTN2U INVALID ADRS RETURN 30908190 * 30908870 
0936 0 TIFF RTN2U MDX Lo =] DECR COUNTER 30908200 * TEST ROUTINE SIX 30908880 
0937 O TOF2 B RTN2Q NOT FINISHED 30908210 * WRITE AND READ 320 WORDS 30908890 
0938 1 4C€80 0926 B I RIN2P RETURN 30908229 * OF HEX 1313 ON CYL 2-SECT 30908909 
5 3 30908230 * O-CHECK DATA READ 30908910 
093A 0 0000 INCR1 DC @) 30908240 * 30908929 
093B O QO0O0O0 INCR2 DC 0 30908250 te CC CCE EC ECE CECE CEE EERE EEECE EEC EEC EE EEC ECE CECE ES 309089390 
tee So ee ee a ee Re eee eee oe ee ee 30908260 O95A 0 6302 RIN6 LDX 3 2 IX EQUAL CYL 30908940 
Kee ee ee a He 30908270 095B O 70F3 B CMN2 BRANCH TO COMPLETE SETUP 30908950 
BLE KKK KE EK ERE EE EE KEKE EEK KKK 330908280 SOC EEC ECEECE EC ECEEEE EEE EC ECEE EEE EC EE CECE EE CEE CECE ES 30908969 
* : 30908290 * 30908970 
* TEST ROUTINE THREE 30908300 * TEST ROUTINE SEVEN 30908980 
* ; 30908319 x WRITE AND READ 320 WORDS 30908990 
* THIS ROUTINE WILL ISSUE AND VERFY 100 RANDOM 30908320 * OF HEX E5E5 ON CYL 202- 30909090 
* SEEKS. CYLINDERS 90-110 WILL NEVER BE 30 90 8339 * SECTOR 6-CHECK DATA READ 309090190 
* ATTEMPTED. 30908340 % 30909920 
* 309083509 SC CREE CEC EEE CECCE EEE EE EEEEECEEEEEEEEECEEECEECEEEEC 30909030 
aC CECE CECE CEE CEE EC ECE EEE ECE CEE CE EC EEC ECE CEE CECE ECE E GEOL 1011-18) 095C O 6700 OOCA RTNT LDX L3 202 IX EQUAL CYL 30909949 
093C 0 7132 RTN3 MDX 1 LOO-LPCNT 100 LOOPS 30908370 Q95E 0 7OF8 B CMN3 BRANCH TO COMPLETE SETUP 30909050 
093D 0 C292 LD 2 RNDSK-TB GET RNOM SEEK SWITCH 30908330 %—-—-—--~- ~----------------~------------------------ 30909040 
O93E 0 4818 SKP +— USE AS FIRST IF NOT ZERO 30908399 ot COE CCECEK CECE EEEEECEECECECEECEECEE EEE CECE EEE EEE ES 30909070 
UV9I3F O C2F7 LD 2 PRNSK-TB ELSE USE LAST GENERATED 30908409 % 30909980 
0940 0 D2F6 STO 2 FRNSK-TB FIRST RANDOM NUMBER 30908410 wt THIS ROUTINE IS COMMON. TO 30909090 
0941 0 7002 B RTN3B * 30908420 % TEST ROUTINES 3249596;AND 7 30909199 
| * 30908430 * 309G9LLO 
0942 0 C2F7 RTN3A LD 2 PRNSK-TB GET LAST RNOM NUMBER 30908440 pt OC OCC CC ECECECEECEECECEECEECEEEEEEEEEECEEEEEEECECEES 30909120 
0943 0 4229 BSI 2 RNDOM-TB GENERATE NEXT 30908450 ; x 399091 30 
* 30908460 U95F 0 6B07 CMRT2 STX 3 CYL SET CYLINDER TO USE 30909149 
0944 Q D2FT7 RTN3B STO 2 PRNSK-TB SAVE 30908470 0960 0 6AT7T5 STX 2 SECTD * 30909150 
0945 0 1808 SRA 8 * FROM 0-202 30908480 0961 0 DOOF STO DATAL SET DATA EXPECTED 309091450 
0946 QO DOOl STO RTN3C STORE FOR SEEK 30908490 0962 0 DOQ1L5 STG DATA2 SET DATA EXPECTED 30909170 
* 30908500 0963 0 DOLB STO DATA3 SET DATA EXPECTED 39909180 
0947 0 4238 BSI 2 VERFY-TB SEEK AND VERIFY CYL. 30908510 0964 1 6600 065C LDX L2 TB INDEX EQUAL TBL ADRS 30909190 
0948 0 QO00 RTN3C OC ME — AK CYL. DESIRED 30908520 0966 0 4238 BSI 2 VERFY-TB SEEK DESIRED CYL AND 30909200 
0949 1 0942 DC RTN3A IF INVALIDs DON'T CQUNT 30908530 u967 0 C000 CYL DC X— & * VERIFY THE SEEK 30909219 
094A 0 7T1FF MDX | ce | ELSE COUNT 30908540 0968 1 O8B7 DC CNTL EXIT ON ERROR 30909220 
094B QO TCF6 B RTN3A LOOP 30908550 0969 0 C28B CMRTL LD 2 TERM-TB SET DATA EXPECTED 30909230 
094C 0 4220 BSI 2 CNILE-TB . END OF RTN 30908560 096A 0 0243 STO 2 COMA+1-TB SET FOR COMPARE RTN 30909249 
* 30908570 096B 0 CODC LD RTN3C 1S ROUTINE TO WRITE 30909250 
tS SS SSS SSeS SS eS SS 30908580 U96C 1 4C18 O9TA BZ CMRTB BRANCH TQ READ ONLY 30909260 
a 30908590 O96E O CO6T LD SEC TD GET SECTOR DESTRED 30909270 
ROSE EEEECEEEEEECEEEEC EE EE ECECEEEEECEECEECEECE CECE ES 30908600 US6&F 0 4238 BSI 2 WRITE-TB GO WRITE DATA 309092 89 
* 30908510 0970 O O141 DC 321 WORD, COUNT 30909290 
* | TEST ROUTINE FOUR 30908620 0971 0 QOD DATA1 DC K— XK DATA EXPECTED 309093909 
* READ AND CHECK 320 WORDS OF 30908630 V9I7T2Z 1 0973 . DC CMRTA ERROR EXIT ADDRESS 30909310 
* HEX 1313 FROM CYL 1-SECTOR O 30908640 O97T3 0 C2DA CMRTA LD 2 K1-TB SET SW FOR NO PRINT 390909320 
* . 30908659 U974 0 D2F5 < STO 2 PRSW-TB * 390909330 
wt CO OEE REC EEEECCEECCEEEEECEECECECEEE EEE ECEECEE CELE 30908660 v97T5 0 C060 LD SECTD GET DESIRED SECTOR 30909340 
094D 0 6301 RIN4 LOX 3 1 IX EQUAL CYL 30908570 U97T6 O 4226 BSI 2 READ-TB GO READ WITHOUT ERR PRINTS 30969350 
O094E 0 6100 LDX 1 O IX EQUAL WRITE SW 30908680 O97T7 O 0141 DC 321 WORD COUNT 30909360 
O94F 0 C2B2 CMN2 LD 2 H1313-TB GET DATA EXPECTED 30908690 U97T8B O OODD DATA2 DC K— K EXPECTED DATA 30909370 
0950 0 6200 LDX 7 oe | re IX EQUAL SECTOR 30908700 0979 1 Q9B4 DC CMRTG ERROR ADDRESS 3909909330 
0951 0 &9F6 CMNL STIX L RTIN3C SET RIN VALUES 30908710 % . | 30909399 
0952 0 6132 LDX 1 LPCNT IX EQUAL LOOP CTR 30908720 VITA O 1LOLO CMRTB SLA 16 CLEAR NO-PRINT SWITCH 30909400 
0953 0 7008 B CMRT2 BRANCH TQ COMMON RTN 309087 30 J97B 0 D2F5 STO 2 PRSW-TB * 39909419 
GEC CEE ECE ECEECECEECELECECEEEEEC EEE ECEECECEEECE CECE ES 30908740 uyTC O C059 LD SECTD GET DESIRED SECTOR 309094679 
* 7 . — 7 : 30908750 O97TD 0 4226 BSI 2 READ-TB GO READ DATA | | 30909430 
x TEST ROUTINE FIVE . . 30908760 Uu9TE O 0141 = — pC 321 WORD COUNT 30909440 
* READ AND CHECK 320 WORDS OF 30908770 V9ITF O OOOO DATA3 DC KK EXPECTED DATA. 3090945) 
* HEX E5E5 FROM CYL 201-SECTOR 6 30908780 UV980 1 O981 DC CMRTD CMP ERROR ADDRESS 30909469 
 5ts | | , 30908790 * | 309909470 
; | no CC EEC EC ECECECECECEECEE EEE EE ECECEC CECE CECE CECE EEEE EES 30908800 0981 0 7T71FF CMRTD MDX | =] DECREMENT LOOP COUNT (30909480 
0954 0 6700 O0C9 RTNS LOX 13 201 IX EQUAL CYL 30908810 U982 0 TCE6 MDX CMRTL | LOOP ROUTINE 30909490 
0956 0 6100 LDX Eta. go», 2 IX EQUAL WRT SW 30908820 0983 0 4220 . BSI 2 CNTLE-TB EXIT ROUTINE 30909590 
0957 0 C2C4 CMN3 LD- 2 HE5E5-TB GET DATA EXPECTED 30908830 * ee wae BR? phe Be 30909510 
0958 0 6206 LOX @ -ABoe ~ TX EQUAL - SECTOR. 30908840 0984 0 1010 CMRTG SLA 16- | CLEAR NO-PRINT SWITCH 30909520 
0959 0 TOFT MDX CMNI1 BRANCH TO COMPLETE SETUP 30908850 0985 0 D2F5 STO 2 PRSW-TB * 30909530 
DATE 02 JAN66 O1JUL66 L5NOV66 LSJUN67 1L5FEB68 0L0CT68 OIAPR69 OSMAY69 pROG ID 0309-4 DATE O02 JAN66 O1JUL66 1 5NOV66 15 JUN67 LSFEB68 OLOCT68 OIAPR69 O9MAY69 PROG IN 0309-4 
EC NO. . 415490: 415490C 419643 420317. 420403 571005 5/1036 571036C PAGE - 7 EC NU. 415490 415490C 419643 420317 | 420403 571005 571036 571036C PAGE TA 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


2310 B DISK FUNCTION TEST. 


VATE 
EC NU. 


0986 0 6309 
0987 0 4223 
0988 0 4232 
0989 0 5E0C 
098A 0 70EF 
098B 0 4238 
098C 0 0001 
098D 1 O8BT7 
O098E 0 10A0 
O98F O DAD4 
0990 0 C2D3 
0991 0 1003 

0992 0 D243 

0993 0 C2B6 
0994 0 4226 
0995 0 0141 

0996 O FFFF 

0997 1 0980 

0998 0 C2BA 

0999 1 4C10 09A2 
099B 1 7401 0630 
099D 0 421D 

099E 0 7001 

099F 0 7002 

O9A0 0 C2DA 

O9Al 0 D2F5 
O9A2 0 71FF 

0943 0 7OEC 

09A4 0 1010 

09A5 0 D2F5 

O9A6 O CABC 

O9A7 0 DACC 

O9A8 0 C2D5 

09A9 0 D2CE 
Q9AA O 82D4 

O9AB 1 4C18 0887 
O9AD 0 4232 

O9AE O 6E12 

OSAF 0 4220 

09B0 1 7401 0631 

0982 O 70EA 

09B3 0 4238 

09B4 0 0002 

0985 1 O8B7 

0986 O 6300 

09B7 0 C2F9 
O2JAN66 OL1JUL66 
415490 415490C 
\ \ \ 
ut en A 


LDX 
BSI 
BSI 
DC 
MDX 


NN WwW 


1130 SYSTEM 


HRDOWR-SUMRY COUNT 


COUNT-TB 
STMSG-TB 
/5E0C 
CMRTB 


WRIFE ERROR 
COUNT ERROR 


PRINT PROBABLE WRITE ERROR 


PROBABLE WRITE ERRRO 
GIVE PRINTOUTS OF ERRORS 


pS SSCCLE CECE EEE C ELEC EEE CECE ELE ELE EEC ELEC CEE E ES 


ete HHH HH 


TEST ROUTINE EIGHT- 
READ CYL 1-SECT O USING 
READ CK-CK FOR ANY DSW 


ERRORS 


AND CK THAT NO 


DATA IS TRANSFERRED TO 
MEMORY. 


wp SSS SEALE EES CCS ESCO CELE CEL CELE EEE EEE ELEC ECE EEC 


RTN8S 


RTNBL 


RTN8&M 
RTN8N 


RTNBA 


* 
* 


RTN8J 


BSI 
DC 
DC 


SLT 


STD 


MDX 
MDX 


2 


NN PO 


NNN NR Po 


N 


VERFY-TB 
l 

CNTL 

32 

ER SK1-TB 


* ERSKI & 


NCYL#-TB 
3 


COMA+1-TB 


RDCHK-TB 
READ-TB 
321 
/FFFF 
RTN8BJ 
ZSNS-TB 
RTN8A 
ERSKly»l 
CKPRT-TB 
RTNS8N 
RTNBA 
K1-TB 
PRSW-TB 


=I 

RTN8L 

16 
PRSW-TB 
ZX10—-TB 
MOD3-TB 
CNYB-TB 
MOD5-TB 
ERSK1-TB 
CNTL 
STMSG-TB 
/6E12 
CNTLE-TB 


CNTBel 
RTN8SM 


SEEK CYt 1 — VERIFY 
* THE SEEK 

EXIT IF ERROR 

CLEAR AQ 

CLEAR ERROR COUNTERS 
CNTB 


GET CYL. SOUGHT 
CREATE PROPER SECTOR ID 
SET IN 1/0 AREA 

SET READ CK MODIFIER 
READ ROUTINE 

321 WORDS 

DATA EXPECTED 

CMP ERROR RETURN 

GET INTRPT DSW 

BRANCH ON ERROR 

INCR ERROR CNT 

CK PRINT—ALL OPTION 
OPTION NOT SET 

OPTION SET 

SET PRINT SW NON-ZERO 


DECR RTN LOOP COUNT 
LOOP 

CLEAR A REG. 
CLEAR PRINT SWITCH 
GET IOCC LAST ISSUED 
STORE IN CASE PRINT 
GET ERROR COUNT 

SET FOR PRINT 

ADD OTHER ERROR COUNT 
EXIT ROUTINE IF ZERO 
PRINT MESSAGE 

DATA XFERD IN READ CHECK 
EXIT ROUTINE 


INCR ERROR COUNT 
LOOP 


np BSCS EECELE CEE EEE EE EC EEC CE CL ELEC ECAC CECE ECOL EEC 


HR He 


* 


ROUTINE NINE-WRITE 320 
RANDOM WORDS-READ AND CK- 
ON CYL 2-SECT 0. 


up OSES EEE ECE EL EE EE EEC CEC ECE EC EEL EEE ECE CECE EES 


RTNI 


BSI 
DC 
DC 
LDX 
LD 


15NOV 66 
419643 


PART NO. 2191212 


PAGE 


30909540 
30909550 
30909560 
30909570 
30909580 
30909590 
30909600 
30909610 
30909620 
30909630 
30909640 
30909650 
30909660 
30909670 
30909680 
30909690 
30909700 
30909710 
30909720 
30909730 
30909740 
30909750 
30909760 
30909770 
30909780 
30909790 
30909800 
30909810 
30909820 
309098 30 
30909840 
30909850 
30909860 
30909870 
30909880 
30909890 
30909900 
30909910 
30909920 
30909930 
30909940 
30909950 
30909960 
30909970 


30909980 ~ 


30909990 
30910000 
30919010 
30919920 
30910030 
30910040 
30910050 
30910060 
30910070 
30910080 
30910090 
30910100 
30910110 
30910120 
30910130 
30910140 
30910150 
30910160 
309190170 
30910180 
30910190 
30910200 
30910210 


971036C PAGE 


2 VERFY-TB SEEK CYL 2-VERIFY 
2 * THE SEEK 
CNTL TERMINATE ON ERROR 
30 IX EQUAL SECTOR oO 
2 LRNI1-TB GET BEGIN PATCH OPTION 
15 JUN67 15FEB68 010CT68 OTAPR69 OSMAY69 PROG ID 
420317 420403 571005 571036 
= “~\ - 7 
) . . \ 
B u Me Ae Z 


8 


0309-4 


DATE 
EC Nb. 


2310 B DISK FUNCTION TEST 


O9B8 O 7005 


09B9 0 4238 
O9BA O OOCA 
09BB 1 O8B7 
O9BC O C2FB 
O9BD 0 6306 
O9BE O 6BL1L7 
O9IBF O 4820 
09C0 0 DO39 
09C1l O C293 
O9C2 0 4818 
09C3 0 C036 
09C4 0 DO36 
09C5 0 C293 
09C6 0 4820 
09C7 0 D032 
09C8 0 6700 FECO 
O9CA O CO2F 
O9CB O DOl1 
O9CC O DOL? 
09CD 1 D700 O7EO 
O9CF 0 4229 
09D0 0 7301 
09D1 O 7OFB 
09D2 O D027 
09D3 0 C002 
09D4 0 4238 
09D5 0 8141 
09D6 O 0000 
O9D7 1 0908 
O9D8 0 C2DA 
09D9 0 D2F5 
O9DA O COFB 
O9DB O 4226 
O9DC O 8141 
YVIDD O 0000 
O9DE 1 O9F3 
O9DF O 1010 
VIEO O D2F5 
O9E1 0 COF4 
O9E2 0 4226 
O9E3 0 8141 
O9E4 O 0000 
OSE5 1 O9E6 
O9E6 O TIFF 
O9E7 0 7ODD 
O9E8 O COl2 
O9E9 1 6780 O5DD 
O2JAN66 O1JUL66 
415490 415490C 


ya 


MDX 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


RT910 


BRANCH TO COMMON 


np BSS SEEELEEEE CEL EE ECE CLEC EEE CEE EEE EE EE CELE CE EC 


e% HR 


* 


ROUTINE TEN-WRITE 320 
RANDOM WORDS-READ AND CK- 
CYL 202-SECT 6. 


pO SSSSEESEECEEEE CECE EEE ECC CEE CEE ELE LEELA LEE E EC 


RTN1O BSI 
DC 
DC 
LD 
LDX 


2 VERFY-1TB 
202 
CNTL 
2 LRN2-TB 
3 6 


SEEK CYL 202-VERIFY 

* THE SEEK 

TERMINATE ON ERROR 

GET BEGIN PATCH OPTION 


IX EQUAL SECTOR 6 


BRK KEKE KEKE EEK KK LEEK KE KEKE KKK KEKE KKK KEKE 


* 
* 
* 
x 


THIS PORTION COMMON TO 
ROUTINES NINE AND TEN. 


ub SD ESE SEL EEECEEE EEE EEL ELEC CECE EEE ELEC ELE CELE ES 


RT91LO STX 
SKP 
STO 
LD 
SK P 
LD 


STO | 


RTNOL LD 
SKP 
STO 


LDX 
LD 
STO 
STO 
RITNSA STO 
BSI 
MDX 
MDX 
STO 


LD 
BSI 
DC 
SECTD DC 


RTNOB LD 


RTNSC DC 


RTNID 


RTN9E DC 


RINOF 


15NOV66 
419643 


3 SECTD SAVE SECTOR NUMBER 
Z SKIP IF ZERO 
LSTNO SAVE BEGIN PATCH OPTION 
2 RNDWR-TB GET START OPTION 
&- SKIP IF NON ZERO 
LSTNO CONTINUE PATTERN 
FSTNO SET RTN FIRST NUMBER 
2 RNDWR-TB GET START OPTION 
zZ SKIP IF ZERO 
LSTNO SET AS LAST NUMBER 
L3 -320 NUMBER OF WORDS 
LSTNO GET LAST NUMBER 
RTNOC SET IN READ CALL 
RTNOE SET IN READ CALL 
L3 COMA&322 SET PATTERN 
2 RNDOM-TB GENERATE NEW NUMBER 
31 DECR WORD COUNT 
RTNIA Loop 
LSTNO SET NEW LAST NUMBER 
SECTD GET SECTOR NUMBER 
2 WRITE-TB WRITE DATA 
321+/8000 NO. OF WORDS/DON'T PRESET 
* THE 1/0 AREA 
*— SECTOR TO USE-O OR 6 
RTN9OB ERROR RETURN 
2 K1-TB SET NO-PRINT SWITCH 
2 PRSW-TB x 
SECTD GET DESIRED SECTOR 
2 READ-TB READ W/O ERROR PRINTOUTS 
321+/8000 RANDOM DATA 
i FIRST DATA WORD EXPECTED 
RTNIG ERROR ADDRESS RETURN 
16 CLEAR NOPRINT SWITCH 
2 PRSW-TB * 
SECTD GET DESIRED SECTOR 
2 READ-TB READ DATA—COMPARE 
3214/8000 WORD COUNT/RANDOM NUMBERS 
+ FIRST DATA WORD EXPECTED 
RTNOF ERROR RETURN ADDRESS 
l -1 DECREMENT LOOP COUNT 
RTNOL LOOP-NEW PATTERN 
FSTNO SET SUMMARY TABLE 
13 RID IX EQUAL RTN NUMBER 
15JUN67 1L5FEB68 O10CT68 COTAPR69 OIMAYE9 prog Ip 
420317 420403 571005 571036 


PART 
PAGE 


30910220 
30910230 
30910240 
30910250 
30910260 
30910270 
30910280 
30910290 
30910300 
30910310 
30910320 
390910330 
30910340 
30910350 
309103650 
30910370 
30910380 
30910390 
30910400 
30910410 
30910420 
30910430 
30910440 
30910450 
30910460 
30910470 
30910480 
30910490 
30910500 
30910510 
30910520 
30910530 
30910540 
30910550 
30910560 
30910570 
30910589 
30916590 
30910600 
30919610 
30910620 
30910630 
30910640 
30910650 
30910660 
30919670 
309106580 
30919690 
309107900 
30910710 
30919720 
30919730 
39919740 
30919750 
30919769 
3091077) 
30910780 
30919790 
309190800 
30910819 
30910820 
30910830 
30919849 
30910850 
39910850 
30910870 
30910880 
30910890 


571036C pace 


NO. 


2191212 
8A 


0309-4 
8A 








a 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


2310 B DISK FUNCTION TEST 
O9EB 0 73F7 
O9EC 0 7301 
O9ED 1 D700 0654 
O9EF 0 COOA 
O9FO 1 D700 0655 
O9F2 0 4220 
09F3 0 1010 
O9F4 0 D2F5 
O9F5 0 6309 
O9F& 0 4223 
O9FT 0 4232 
O9F8 0 5E0C 
O09F9 0 70E5 
O9FA 0 0078 
U9FB 0 0000 
O9FC O 4238 
O9FD 0 0002 
O9FE 1 O8B7 
O9FF O 700A 
QAO O 1010 
OAOL O 4238 
OAO2 0 8001 
0A03 0 0000 
OA04 1 OAOS 
O0A05 0 1010 
VA06 0 4226 
OAOT O O141 
OA0B 0 0000 
OA09 1 GAOA 
OAOA O 1010 . 
OAOB 0 4238 
QAOC O 0141 
QAOD O 1313 
VAOE 1 OAOF 
OAOF O 71FF 
QA10 O 7OEF 
QAL1 0 4220 

DATE O2JAN66. O1JUL66 
EC NOs -415490 415490C 


MDX 
MDX 
STG 


STO 
BSI 


RINOG SLA 
STO 
LDX 
BSI 
BSI 
DC 
MDX 
LSTNO OC 
FSTNO DC 


stp GLEE EECCEEEEECEE CECE ECCEEE CECE EEEEEC EE EL EEE CEES 


Hod tt tt te 4G ae Ot Gh OE dt dt oe oe 


RS CEECCECEECEEECEECCEEEECLECE CE CEEEEC CELE CECE CCC ELS 


RTNI1 BSI 
DC 
DC 


RTL 
AVG pc 
RTLI1A 


we 


RT11B SLA 


* 
RT11C MDX 
MD X 


BS1 


tt eH H 


15NOV64 
419643. 


NM MR WwW hy 


2 


1 


2 


~15JUN67 
420317 


1130 SYSTEM 


=9 

1 

FRNI 
LSTNO 
LRN 
CNTLE-TB 


SKP IF RTN 9 
INDEX _ 
SAVE FIRST NUMBER USED 
GET LAST NUMBER USED 


SAVE 


2 


EXIT ROUTINE 


READ OR COMPARE ERROR 


16 
PRSW-TB 


HRDWR-SUMRY 


COUNT-TB 
STMSG-TB 
/5EOC 
RTNID 
123 

ft — 3 


TEST ROUTINE ELEVEN- 


1. 
2. 


36 


4 


5 0 


VERFY-TB 
2 

CNEL 
RT118 


16 
WRITE-7TB 
1+/8000 
0 


RTLIA 


16 

RE AD-TB 
321 

0 

RT118 


16 
WRITE-TB 
321 
/1313 
RT11C 


RTLLL 
CNTLE-TB 


CLEAR NO-PRINT SWITCH 


fe 


COUNT WRITE ERROR 
COUNT ERROR 


PRINT ERROR MSG 


MESSAGE I0 


GO PRINT ERRORS 
LAST RANDOM NUMBER 
FIRST NUMBER USED 


WRITE SECTOR ID PLUS 


320 WORDS OF /1313 ON 
CYL 2-SECT O. 


REWRITE CYL 2-SECT 0 


WITH 1 WORD OF SECTOR 


ID ONLY. 


READ 321 WORDS FROM 


CYL 2-SECT OQ. 
CK DATA READ FOR 


CORRECT SECT ID AND 
DATA OF ALL ZEROS. 
RESTORE ORIGINAL DATA 


ON CYL 2-SECT 


Oo 


SEEK CYL 2-VERIFY 


* JHE SEEK 


EXIY ON ERROR 


WRITE 321 WORDS FIRST 


WRITE CYL 2-SECT 0 


* WITH SECTOR ID 


* ONLY 


AVERAGE OF 50 PASSES 


EXIT IF ERROR 


READ CYL 2-SECT 0 


* 
* 


DATA EXPECTED 
EXIT IF ERROR 


WRITE CYL 2-SECT O 


* WITH /1313 


321 WORDS 


DATA 


EXIT IF ERROR 


DECREMENT LOOP COUNT 

LOCP ROUTINE 

EXIT ROUTINE 

wh © CEEEERLECECEEEECEEEECCEEEEC EEE EELECECELELELEE EEL EES 


TEST ROUTINE 12-WRITE 400 
WORDS ON CYL 2-SECT O. 
READ AND CK NUMBER OF 
WORDS WRITTEN-SAVE IN 


15FEB68 
420403 





010CT68 OTAPR69 
571005 


571036 


PART NO. 


PAGE 


30910900 
30910910 
30910920 
30910930 
30910940 
30910950 
30910960 
30910970 
30910980 
30910990 
30911000 
30911010 
30911020 
30911030 
30911040 
30911050 
30911060 
30911070 
30911080 
30911090 
30911100 
30911110 
30911120 
30911130 
30911140 
30911150 
30911160 
30911170 
30911180 
30911190 
30911200 
30911210 
30911220 
30911230 
30911240 
30911250 
30911260 
30911270 
30911280 
30911290 
30911300 
30911310 
30911320 
30911330 
30911340 
30911350 
30911360 
30911370 


30911380 | 


30911390 
30911400 
30911410 
30911420 
30911430 
30911440 
30911450 
30911460 


30911470 


30911480 
30911490 
30911590 
30911510 
30911520 
30911530 
30911540 
30911550 
30911560 
30911570 


OOMAY69 pros Ip 
BI IO36C: eae 





2191212 
9 


0309-4 





2310 B DISK FUNC 


OA12 
OA13 
OA14 
OA1L5 
OA16 


ocrooe 


OA1LT 
OA18 
OALS 
OALA 


oooo 


OA1B 
OA1C 
OALE 
OA1F 
OAZ20 


oooro 


VA21 
OA2Z2 


Oo © 


QA23 
OA24 
OA26 
OA2T 
OA28 
OA29 


oooorea 


OAZA 
OA2C 
OAZE 
OAZF 
OA31 
DA32 


oorcr © 


0A33 
0A34 
VA36 


Oo mw © 


OA37 
0A38 
OA3A 
VA3B8 
OA3C 
VA3D 
OA3F 
OA40 
OA41 


ooorcocco°cro 


OA42 
OA43 
OA44 
VA4&5 
OA46 
OA4T 
JA4B 
QA49 
OASA 
OA4B 
OA4C 
UA4E 
OA4F 


=OmOOOr’-; OCC OO © 


02 JAN6 
415490 


“WATE 


4028 


TION TEST 


4238 
0002 
O8B7 
1€10 
DOEC 


COOE 
D242 
C2B2 
422C 


1010 
4400 
8190 
001B 
403C 


8697 


4232 
OEOE 


1019 
4400 
C172 
4035 
4232 
OEOF 


86 82 


6700 
C700 
F2B2 
4€18 
T3FF 
10F9 


0172 
O69E 


0A33 


6BCY 


1780 
6BCC 


0A03 


C2DA 
4400 
0001. 
C243 
F205 
4C18 
C208 
D2BA 
4018 


8682 


4232 
5E11 
C2DA 
423B 
0141 
E5E5 
0A49 
CoB1 
D2cc 
92E7 
OA51 
90D0 
4C08 OA55 


6  OLJUL66 
415490C 


OA49 


St tt 4 tt 


x 








GCOOOCCOOCOC 


IBM MAINTENANCE OJYAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


SUMMARY. 

RESTORE SECTOR 1 IF 
DESTROYED. 
NOTE-SUMMARY VALUE IS THE 
AVERAGE OF 50 PASSES. 


a OE CER E EE EE EECECEEECECECEE EEE ELE EEE CE ECE ELE CECE CECE CES 


RTN12 


RT122 


x 
RT12L 


K27 


K370 


RT1L2A 


RT12B 


RT12D 


BSI 
DC 
DC 
SLA 
STO 


LD 
STO 
LD 
BSI 


SLA 
BSI 


SLA 
BSI 
DC 
BSI 
BSI 
DC 


LDX 
LD 


MD X 


15NOV66 
419643 


PART NO. 


PAGE 


30911580 
30911590 
30911690 
30911610 
30911620 
30911630 
30911640 
30911650 
30911660 
30911670 


30911680 


2 VERFY-TB SEEK CYL 2 AND VERIFY 
2 * THE SEEK 
CNTL EXIT IF ERROR 
16 CLEAR AVERAGE 
AVG * 
K370 SET WORD COUNT 
2 COMA-TB IN I/O AREA 
2 H1313-TB GET DATA 
2 SETV-TB PRESET I/0 AREA 
16 WRITE CYL 2-SECT O 
tL WRITE&/8000 * WITH NO DSW CK 
4006/8000 NO PRESET OF I/O AREA 
27 CONSTANT 27 
R1L2CK CK OSW 
2 STMSG-TB PRINT IF ERROR 
/OEOE DSW ERROR BIT NOT SET 
16 READ SECTOR O 
L READE/8000 WITH NO CKING 
370 WORD COUNT 
R12CK CHECK DSW 
2 STMSG-TB PRINT IF ERROR . 
/OEOF DSW ERROR BIT NOT SET 
13 370 CK NUMBER OF WORDS 
L3 COMA * | 
2 H1313-TB % 
RT12B BRANCH IF FOUND 
3 -1 DECR WD COUNT 
RT12A LOOP | 
3 FSTNO SAVE NUMBER OF WORDS 
13 AVG ADD TO TOTAL 
3 AVG SAVE TOTAL 
2 K1-TB READ SECTOR 1 
L READE/8000 WITH NO CKING 
1 WORD COUNT 
2 COMAE&1-TB GET ID READ 
2 IDS#B-TB CHECK FOR CGRRECT ID 
RT12D BRANCH IF CORRECT 
2 RTNER-TB GET ERROR SW 
2 ZSNS-TB DUMMY ENTRY 
RL2CK CK PRINT SW ONLY 
2 STMSG-TB PRINT ERROR 
/5E11 WRITE 400 DESTROYED NXT SC 
2 K1-TB RESTORE SECTOR 1 
2 WRITE-TB # _— 
321 * 
/E5E5 * | 
RT12D ERROR RETURN 
FSTNO GET CURRENT wD CT 
2 MOD3-TB SET IN CASE PRINT 
2 K331-TB SUB 331 | 
RT12G BRANCH IF LESS 
K27 SUB 27 
RT12F BRANCH IF LESS THAN 358 
15JUN67 L5FEB68 O1LOCT68 O1APR69 O9MAY69 
420317 420403 571005 


571036 571036C 


30911690 
30911700 
30911710 
30911720 
30911730 
30911740 
30911750 
30911760 
30911770 
39911780 
30911790 
30911800 
30911810 
30911820 
30911830 
30911840 
30911850 
30911860 
30911870 
30911880 
30911890 
30911900 
30911910 
30911920 
30911930 
30911940 
30911950 
30911960 
30911970 
30911980 
30911990 
30912000 
30912010 


30912020) 


30912030 
30912040 
30912050 
30912060 
30912070 
30912080 
30912090 
30912100 
30912110 
30912120 
30912130 
30912140 
30912150 
30912160 
390912170 
30912130 
30912190 
30912290 
30912210 
30912220 
30912230 
30912240 
30912250 


PROG 10 


PAGE 


2191212 
9A 


0309-4 
JA 


ma, 








IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR 


2310 8B DISK FUNCTION TEST 


VATE 
ck NO 


_ QAG6D 


OA51 
OA52 
0A53 
VA54 


OA55 
VA56 
OA5T 
OA58 
QA59 
OA5A 
OA5SB 
OASC 


oooooooo oooo 


OVA5D 
OA5E 
OA5SF 
OA61 
UAGb2 
OA63 
OA64 
OA65 
OA66 
OA68 
OAGA 
OA6B 


oOrrOcoocr Co 


QA6C 


OAGE 
OAG6F 
OAT0 
OA71 
VA7T2 
OAT3 
VATS5 
OAT6 
OATT 
OAT8 
VAT9 
OATA 
OA@B 
OATC 
QA7D 


mMmooocooecocorcococoooo°o 


OATF 
OA80 


oo 


OA81 
OA82 
OAS3 
VA84 
OA85 
VA86& 
OA88 


OA89 
OABA 


(oe) Or oocoo 


O2JAN6 
415490 


C208 
400A 
4232 
4E10 


T1FF 
70CO 
COAB. 
18D0 
1010 
A810 
D2F4 
4220 


0000 

C2BA 

4C28 OA68 
C208 
421D 
1004 
COBA 
D208 
4C 80 
1402 
7OFB 
0032 


OA5D 
OA5D 


C2B0 
1890 
C2E5 
DABC 
423E 
C2CB 
1004 
4C10 
4232 
5A08 
C210 
A2C2 
AAEO 
D214 
C2DA 
D2BC 
6500 


OACC 


O69E 


C211 
D205 


C2BD 
F2DD 
D28D 
404C 
“101 
44FF 0631 
TOF8 


C2BC 


0100 


6 OLJUL66 
415490C 


RT12G LD 
BSI 
BSI 
DC 


RT12F MDX 


R1i2CK DC 


STO 
BSC 
MD X 
MDX 
NLOOP DC 
* 


RCKX1 
RCKX 


np BSE SEEELE EEE ECC CEEE EEE CECE EEC ECE ECE EC ECE CELE EEC EES 


e He# HHH HH HE 


np SE GEEE ES EEEE CEE EE ECECE EEC CEE EC CECE EEE EEL EECA CECE CEES 


RTN13 LD 
SRT 
LD 
STO 
BSI 
LD 
SLA 
BNN 
BSI 
DC 
LD 
M 
D 
STO 
LD 
STO 
LOX 


RT13A LD 
STO 


RT13B LD 
EOR 
STO 
BSI 
MDX 
MDX 
MDX 


LD 
STO 


L5NOV66 
419643 


THE 


2 


NN 


bung 


2 XSKBK-TB GET SEEK TOWARD HOME IOCC 
16 PUT IN Q 
2 K203-TB GET SEEK INCREMENT OF 203 
2 ZXI0-TB SET FOR XEQ ROUTINE 
2 XEQ-TB EXECUTE SEEK 
2 TBDSW-TB GET INTERRUPT DSW 
4 TEST HOME BIT IN DSW 
RT13J BRANCH IF NOT SET 
2 STMSG-TB = PRINT MESSAGE 
/5A08 FORM/MESSAGE ID 
2 TLP13-TB GET LOOP TIME (NSEC) 
2 SNSTY-TB MULT BY CPU TIME X 10 
2 TEN-TB. NORMALIZE TO NSEC 
2 TIMSL-TB SAVE FOR LATER CALCULATION 
2 K1-TB SET FIRST SEEK INCREMENT 
2 ZX10-T8 * TO ONE 
Ll COMA SET SINK POINTER 
2 KLP13-TB GET RTN13 LP CNT 
2 CNTB8-TB SET FOR LOOPING CNT 
2 ZX10+¢1-TB GET SEEK IOCC 
2 K4-TB CHANGE DIRECTION MODIFIER 
2 ZX10+1-TB PUT IT BACK FOR SEEKING 
TIMET GO ISSUE SEEK AND TIME IT 
11 INCREMENT STORE POINTER 
L  CNTB,-1l DECREMENT LOOP COUNT 
RT13B LOOP IF NOT THROUGH 
2 ZXI10-TB GET SEEK INCREMENT 
X10 SAVE FOR LATER USE 
15JUN67 15FEB68 010CT68. OIAPR69 OOMAY69 
420317 420403 571005 571036 571036C 
~ me os cea < 


1130 SYSTEM 


RTNER-TB 
R1L2CK 
STHSG-TB 
/4E10 


=| 
RT1L2L 
AVG 


CNTLE-TB 


xK— * 
ZSNS-TB 
RC KX 
RTNER-TB 
CKPRT-TB 
RCKX 

K27 
RTNER-TB 
R1i2CK 
RL2CK,2 
RCKX1 
LPCNT 


GET ERROR Sw 
CHECK PRT SH ONLY 
PRINT ERROR 


SECTOR WORD COUNT NOT WITH 


* IN LIMITS 331-358 
DECREMENT LOOP COUNT 
LOOP 

GET TOTAL WORDS 
EXCHANGE REGISTERS 
CLEAR A REGISTER 
DIVIDE BY 50 

SET IN SUMMARY 

EXIT ROUTINE 


ENTRY 

GET INTERRUPT DSW 
BRANCH IF ON 

GET ERROR Sw 

CHECK PRINT ALL SW 
RETURN IF OFF 

SET ERROR SW 

x 


EXIT ROUTINE 

INCR RETURN TO NO PRINT 
GO EXIT 

LOOP COUNT 


SPECIAL ROUTINE THIRTEEN 


SPECIAL ROUTINE -- 


SEEK TIMING * 


TIME SEEKS OF 19294987 16932364,128,200 
CALCULATE AVERAGE, 


MAXIMUM, MINIMUM 


Re ae Be a ee. oe, i J 


PART 
PAGE 


30912260 
30912270 
30912280 
30912290 
30912300 
30912310 
30912320 
30912330 
30912340 
30912350 
30912360 
30912370 
30912380 
30912390 
30912400 
30912410 
30912420 
30912430 
30912440 


NO. 2191212 


10 


30912450. 


30912460 
30912470 
30912480 
30912490 
30912500 
30912510 
30912520 
30912530 
30912540 
30912550 
30912560 
30912570 
30912580 
30912590 
30912600 
30912610 
30912620 
30912630 
30912640 
30912650 
30912640 
30912670 
30912680 
30912690 
30912790 
30912710 
30912720 
30912730 
30912740 
30912750 
30912760 
30912770 
30912780 
30912790 
30912800 
30912810 
30912820 
30912830 
30912840 
30912850 
30912860 
30912870 
30912880 
30912890 
30912500 
30912910 
30912920 
30912930 


PRONG ID 


PAGE 


Sami 


os 


0309-4 
19 


[6M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


2310 8 DISK FUNCTION TEST 


DATE 


EC Nu. 


OA8B 
OA8C 
OA8D 
OAGE 
OA8F 
OA9IL 
QOA92 
OA94 
OA95 
OA96 
VAST 


oocoocror oco°o 


OA98B 
OA99 
QA9A 
QA9SC 
QA9D 


oOordo 


VASE 
QAAO 


oO = 


QOAAI1 
OAA2 
VAA3 
OAA4 
QAA5 
OAA6 
OAAT 
OAAB 


oooo00oc]o 


OAASY 
OAAA 
OAAB 
QAAC 
VAAD 
UVAAE 
OAAF 
OABO 
OAB2 
OAK3 


oOCEM OoOOo0O8o 


OAB4 
OAB5 
OAB6 
VABB 
OABY9 


Ooroo 


OABA 
OABB 
QOABD 


creo 


OABE 
OABF 
QACO 
OAC1 
OAC2 
VAC3 
OAC4 
QAC6 
OACT 
OAC8 


Ooorc0c0o0o0o 


OAC9 
OACB 


— © 


OALC O 
VACD 0 
OACE O 


O2JAN6 
415490 


7101 
1001 
D2BC 
1007 
4C 10 
F2B9 
4030 
C2E4 
92DB 
D2BC 
TOE7 


C2CB 
1004 
4C28 
4232 
5E18 


6500 
6309 


C211 
D205 
C28B 
1801 
1890 
DACC 
1890 
DACE 


1090 
C100 
18D0 
BACE 
DACE 
C2CC 
9100 
4C30 
C100 
D2CC 


C2CD 
9100 
4C28 
C100 
D2CD 


7104 
74F F 
70EB 


CACE 
AAL1 
D2CE 
C100 
7101 
D2CF 
4400 
1619 
U3FF 
1008 


4480 
O5DC 


1010 
D2CC 
4232 


OA TF 


0A98 


OAQE 


O69E 


OAB4 


OABA 


0631 


868E 


0164 


6 O1LJUL 66 


415490C 


RT13E 


RT13G 


RT 13H 


RT13J 


RT13K LD 


RT13C LDX 


LDX 


RT13D LO 


STD 


RT13F LO 


MD X 


BSI 
DC 


SLA 
STO 
BSI 


L5NOV66 
419643 


1130 SYSTEM 


1 1 BUMP SAVE POINTER 
l DOUBLE SEEK INCREMENT 
2 Zx10-TB SET IN IOCC 
7 TEST FOR 128 
RT13A BRANCH IF LESS THAN 128 
2 H8000-TB ELSE CLEAR BIT O 
RT13K BRANCH IF INCR 200 
2 K202-TB SET SEEK INCREMENT 
2 K2-TB *kx TO 200 
2 ZXI10-TB SET FOR EXECUTION 
RT13A GOD SEEK 
2 TBOSwW-TB GET INTERRUPT DSW 
4 CHECK HOME BIT 
RT13C BRANCH IF OK 
2 STMSG-TB ELSE PRINT ERROR MESSAGE 
4/5E18 FORM/MESSAGE ID 
L1 COMA SET FROM POINTER 
3 9 SET LOOP COUNTER 
2 KLP13-TB GET LOOP COUNT 
2 CNTB-TB SET FOR LOOPING 
2 TERM-TB SET A-REG TO GREATEST 
ee | * POSITIVE NUMBER 
16 MOVE TO Q/ZERO A-REG 
2 MOD3-TB SET INITIAL COUNTS 
16 CLEAR Q-REG NOW 
2 MOD5-TB SET INITIAL TOTAL 
16 CLEAR Q-REG 
X1 0 GET TIME COUNT 
16 PUT IN POSITION TO ADD 
2 MOD5-TB ADD IN EXISTING TOTAL 
2 MODS5-TB SAVE IN MOD5 
2 MOD3-TB GET MAXIMUM COUNT SINK 
Xl O TEST FOR GREATER 
RT13F BRANCH IF NOT | 
Xl O FLSE SET IN NEW MAXIMUM 
2 MO003-TB A 
2 MOD4-TS GET MINIMUM TIME SINK 
X1 0 TEST FOR LESS THAN MINIMUM 
RT13G BRANCH IF GREATER 
Xl O ELSE SET IN NEW MINIMUM 
2 M0D4-TB * & 
1 1 INCREMENT SOURCE POINTER 
L CNTB,-1l DECREMENT LOOP COUNTER 
RTL3E LOOP IF NOT THROUGH 
2 MOD5-TB GET TOTAL COUNT 
2 KLP13-TB CALCULATE AVERAGE SFEK TIM 
2 MODS5-TB SET FOR PRINT 
Xl 0 GET SEEK INCREMENT 
1 1 INCREMENT POINTER 
2 MOD6-TB SET FR PRINT 
L STMSG+/8000 PRINT W/O PID-MID.. 
/1E19 FORM/MSG ID 
be | DECREMENT LOOP COUNT 
RT13D LOOP IF NOT THROUGH 
I END GO TO MONITOR END 
PID ADDRESS OF PRG ID 
16 SET CYL ZERO IN MSG WORD 
2 MOD3-TB * & | 
2 STMSG-TB CALL MSG ROUTINE 
15 JUN67 15FEB68 010CT68 OTAPR69 OOMAY69 
420317 420403 571005 571036 571036C 
i, Rae o aa —~ ars 
yo : us ) 
at ee e eA / Re 


PART NO. 


PAGE 


30912940 
30912950 
30912960 
30912970 
30912980 
30912990 
30913000 
30913010 
30913020 
30913030 
30913040 
30913050 
30913060 
30913070 
30913080 
30913090 
39913100 
30913110 
30913120 
30913130 
30913140 
30913150 
30913160 
30913170 
30913180 
30913190 
30913290 
30913210 
30913220 
30913230 
30913240 
30913250 
30913240 
30913270 
30913280 
30913290 
30913300 
30913310 
3091332n 
30913330 
30913340 
30913350 
309133460 
30913370 
30913380 
309132390 
30913490 
39913410 
30913429 
30913430 
39913449 
39913450 
39913460 
39913470 
30913480 
30913499 
30913500 
30913510 
30913520 
30913530 
30913540 
30913550 


30913560 | 


30913570 
30913580 
30913599 
30913600 
30913610 


PROG ID 


PAGE 


2191212 


10A 


ae ( “ 


ae 
/ an 
( yf 
iS a 


fe OR 


( i 
— 


I8M MAINTENANCE OITAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2310 B DISK FUNCTION 


DATE 
EC NO. 


TEST 
OACF 0 4E17 
OADO O 7TOF8 
OAD1 O 0000 
OAD2 O C217 
OAD3 1 D480 OAFB 
OAD5 O OABC 
_QAD6 O 10A0 
OAD? 1 8400 0636 
QAD9 1 4C€20 OADT 
OADB 1 8COO O66E 
OADD 1 4C18 OAD7 
OADF 0 70FF 
QOAEO O 0000 
OAE1 O OABA 
OAE2 1 C480 OAEO 
OAE4 O 1008 
OAE5 0 1808 
QAE6 O 82DA 
OAET O 80F8 
OAE8 O DOO] 
QAEO9 O CCOO 0000 
OAEB O 18D0 
OAEC O AAE8 
OAED O DACC 
OAEE O A214 
OAEF O DACE 
OAFO 0 C2CD 
VAF1 O A214 
OAF2 O AAEB 
OAF3 O 1890 
OAF4 O 8ACE 
OAF5 O AAE8 
OAF6 O D100 
OAF7 1 4CCO OADL 
O2JAN66 O1JUL66 
415490 415490C 


DC /4E17 FORM/MSG ID | 
MDX RT13H CONTINUE PROCESSING ANYWAY 
* 
® TIMING ROUTINE 
* 
TIMIT DC *—%* ENTRY POINT 
LD 2 ADIN2-TB SET INT ADRS IN MONITOR 
STO I XEQAtL * 
XIO 2 ZXIO-TB EXECUTE SEEK 
SLT 32 CLEAR AQ 
* 
TIM2 A L Kl BUMP TIMER 
BNZ TIM2 BRANCH IF NOT OV AND CARRY 
AD tt TIMCN ADD DOUBLE WORD COUNT 
BZ TIM2 IF Q OVERFLOWS/A NONZERO 
; 
* 10 MINUTE TIMEQUT 
x 
TIMOT MDX TIMOT TRAP STOP/NO INTRPT 
* 
* INTERRUPT ROUTINE FOR TIMER 
* 
INT2 DC *—* ENTRY POINT 
X10 2 ZSNS-TB SENSE WITH RESET 
LD I INT2 GET INSTRUCTION AT CALL+1 
SLA 8 GET DISPLACEMENT 
SRA 8 * 
A 2 K1-TB 1X2 NOT DISTURBED 
A INT 2 ADD CALL ADDRESS 
STO INT2A+1 SET ABS ADDRESS 
INT2A LDD L *-* GET SAVED AQ REGISTERS 
: RTE 16 ATO Q/Q TO A 
D 2 THOUS-TB DIVIDE BY 1000 
STD 2 MOD3-TB SAVE AQ 
M 2 TIMSL-TB MULT BY LOOP TIME 
STD 2 MOD5-TB SAVE AQ 
LD 2 MOD4-TB GET PREVIOUS REMAINDER 
M 2 TIMSL-TB MULT BY SINGLE LP TIME 
D 2 THOUS-TB DIVIDE BY 1000 
SRT 16 ATO Q 
AD 2 MOD5-TB ADD DOUBLE SAVED AQ 
D 2 THOUS-TB DIVIDE BY 1000 
STO Xl O SAVE FOR LATER 
BOSC I TIMIT EXIT TO MY RTN 
a Ea Se et a eS 
KEKE KEKE KKK EE EK KEKE EEE K KE KKK EK EEE E KK KEKE KEKE KEKE KK 
* 
* SUB-ROUTINE XEQ 
* 


wi SOS ESEES EE EEE ECECECCECEEECEEECECECEECE EE CEE ECECEE EGG 


4 

% 

* THIS ROUTINE WILL BUILD AND ISSUE 

* AN XIQ INSTRUCTION. 

* 

* IT WILL THEN WAIT FOR AN INTERRUPT, 

‘ LOOPING THROUGH THE MONITOR. THE 

a LOCATION (XCNT) WILL KEEP 

* THE CURRENT DELAY COUNT FOR A LOST 

+ INTERRUPT. 

a 

* IF AN INTERRUPT IS LOST AN ERROR 

* MESSAGE IS PRINTED AND THE ROUTINE 

* TERMINATES THE DFT 

a 

*e&% ROUTINE CALL 

* BSI 2 XEQ-TB 

* IOCC MUST BE PRESET AT LOCATION (ZXI0). 
15NOV65  15JUN67 =15FEB68 010CT6S OIAPR69 O9MAY69 
419643 420317 420403 571005 571036 571036C 





PART NO. 


PAGE 


30913620 
30913630 
30913640 
30913650 
30913660 
30913670 
30913580 
30913690 
30913700 
30913710 
30913720 
30913730 
30913740 
30913750 
30913760 
30913770 
30913780 
30913790 
30913800 
30913810 
30913820 
30913830 
30913840 
30913850 
30913860 
30913870 
30913880 
30913890 
30913900 
30913910 
30913920 
30913930 
30913940 
30913950 
30913960 
30913970 
30913980 
30913990 
30914000 
30914010 
30914020 
30914030 
30914040 
30914050 
30914060 
30914070 
30914080 


. 30914090 


30914100 
30914110 
30914120 
30914130 
30914140 
309141590 
30914160 
30914170 
30914180 
30914190 
30914290 
30914210 
30914220 
30914230 
30914240 
30914250 
30914260 
30914270 
30914280 
30914290 


PROG ID 


PAGE 


Pe om ms . : mont th # cake isi a ~, i a : , 
\ { 4 : \ \ ‘ : : \ ; \ 
| | | 
C Z K / ( ) / | C / ( z ( ( j q / 
ee 4 es eee ie ep 2, eee Sa a ee 


2191212 


ll 


0309-4 


11 


oo 





feo oo. 7 a a 
ew) C) ca C) 


2310 &B DISK FUNCTION 


OAF9S 
OAFA 
OAFC 
QAFD 
OAFE 
OAFF 
Q0B00 
0601 
UBO2 


OB04 
Ub05 
0B06 
ObOT 


UBO9 
OBOA 


0BOB 
OBOC 
OBOD 


OBOE 
0B10 
Ob1l1 


OB12 
0B13 


OB1L5 


0616 
Ob17 
0B18 
OB19 
OBLA 


Ob1C 
O06 1D 
OB1LE 
OBLF 


JbB2Z0 


Ob21 
UB22 
OB24 
UB26 
OB27 
Ub28 
UB29 


OBZA 


DATE 
EC NU. 





mOooedoo0o0o 


—- © © © 


mm OOO 


ooo o 


omr © 


Oooo 


C216 
D400 
C2BD 
EASB 
D2BD 
D29A 
E2B5 
F2B5 
4€18 


OABE 


D2CB 
E2B1 
4C18 


4232 
5E£03 


C2E9 
D207 
422F 


74FF 
7OFC 
T0F2 


C242 
4098 


CABC 


OABE 
D2CB 
E2B1 
F2B1 
4€18 


4232 
OE04 
C2E9 
D207 


422F 


C29A 
4C18 
74FF 
70F9 


4232 
OE OL 
4235 


C2BA 


O02 JAN66 
415490 





—_ 
ra 
f 


TEST 


0000 


OB12 


OB12 


0663 


O69A 


OBLE 


OB2A 
0663 


OLJUL66 
415490C 


* 
«— ————- —- - Soe ee ee eee ee aa a ae eee’ Ee OT Oy eee Ee tn ee 
XEQE LD 2 ADINT-TB GET INTRPT RTN ADDRESS 
XEQA STO L_ *-* 
LO 2 ZX10+1-TB GET IOCC 
OR 2 DVA-TB COMBINE WITH AREA CODE 
STO 2 ZXIQ&1-TB SAVE 
STO 2 INTSW-TB SET INTRPT SWITCH 
AND 2 DSKMD-TB TEST FOR READ IQCC 
EOQR 2 OSKMD-TB ** 
b 8 BZ XEQB 
* 
CKRD1 XIO 2 SNXIO-TB SENSE DSW 
STO 2 TBDSW-TB- SAVE 
AND 2 H3000-TB TEST FOR BITS 2-3_00. 
BZ XEQB BRANCH IF OK 
x 
# DISK IS BUSY AND/OR NOT READY 
x 
BSI 2 STMSG-TB CALL MSG SETUP RTN 
DC /5€03 MESSAGE ID 
.* 
% LOOP THRU MONITOR 
x 
LD 2 Ki0TH-TB SET LOOP COUNT TO 10,000 
STO 2 ZCNT-TB * 
CKRD3 BSI 2 STMLS-TB SET RETURN AND EXIT 
x 
* MONITOR RETURNS HERE 
* 
MDX Lb  ZCNTy-1 DECR COUNT 
MD X CKRD3 Loop 
MDX CKRD1 TEST AGAIN 
* 
* 
x 
XEQB LO 2 COMA-TB GET CK-ONLY-RDY SWITCH 
BZ I XEQ EXIT IF ZERO 
* EXECUTE I/O COMMAND 
X10 2 ZXIO-TB ISSUE COMMAND 
* | 
XIQ 2 SNXIG-TB SENSE DSW 
STO 2 TBDSW-TB SAVE © 
AND 2 H3000-TB . TEST FOR BITS 2-3_11 
EOR 2 H3000-TB = **x 
BZ XEQC BRANCH IF OK 
x 
BSI 2 STMSG-TB NOT READY ERROR MSG 
pc 4 0E 04 MESSAGE ID 
XEQC LO 2 KLOTH-TB SET. TIMEQUT COUNT 
STO 2 Z2CNT-TB * TO 10,000 
* ; , | 
* EXIT TO MONITOR 
ak 
XEQLP BSI 2 STMLS-TB 
* 
* MONITOR RETURNS HERE 
a 
LO 2 INTSW-TB GET INTRPT SWITCH 
BZ XEQX BRANCH IF OFF 
MDX L  ZCNTy-1 DECR LOOP COUNT 
B XEQLP BRANCH IF NOT ZERO 
x 
BSI 2 STMSG-TB PRINT LOST INTRPT 
DC /OEO1 MESSAGE ID 
BSI 2 TEXIT-TB TERMINATE DFT 
*x 
XEQX LD 2 ZSNS-TB GET INTERRUPT 
15NOV66  15JUN67 15FEB68 
419643 420317 420403 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


DEVICE REQUEST ADDRESS - 


SET MLSCF ENTRY AND EXIT 


NO RDY CK IF READ OPERATIO 


OLOCT68 O1APR69 OIMAY69 
571005 571036 571036C 


C, (> 


PART NO. 


PAGE 


30914300. 
30914310. 


30914370 
30914330 


30914340 © 


30914350 
30914360 
30914370 


30914380 


30914390 
30914400 
30914410 
30914420 
30914430 
30914440 
30914450 
309144609 


~—309144790 


30914480 
30914490 
30914590 
30914510 
30914520 
30914530 
30914540 
30914550 
30914560 
30914570 
30914580 
30914590 
30914600 
30914610 
30914620 
30914630 
30914640 
30914650 
30914660 
30914670 
30914680 
30914690 
30914700 
30914710 
30914720 
309147 30 
30914740 
30914750 
30914760 
30914770 
30914780 
30914790 
30914800 
30914810 
30914820 
30914830 
30914840 
30914850 
30914860 
3909148790 
30914880 
399148990 
30914900 
30914910 
30914920 


30914930 | 


30914940 
30914950 
30914960 
30914979 


PROG ID 


PAGE 


a 


2191212 
LIA 


0309-4 
LIA 








18M MAINTENANCE DIAGNOSTIC 


2310 B DISK FUNCTION TEST 


DATE 


cG NGe 


OB2B O D2CB 
O62C QO CABC 
062D Q DACC 
OBZE 1 4C80. 
0B30 0 6908 
0331 0 6609. 
0832 0 CO0OB 
0B33 0 D28A 
0B34 0 4480 
0636 1 6600 
0B38 0 6500 
OB3A O 6700 
OB3C. 1 4C80 
O0B3E 1 QB36 
OB3F 0 CADF 
0B40 0 DAO0S— 
0B41 1 6D00 
~—60B43 1 «6780. 
0B45 0 C301 
05646 0 D014 
OB4¢7 1 7402 
0B49 0 C300 
OB4A 0 D2D3. 
064B 0 6303 
0B4C OG .C2D3_ 
0B4D 1 F700 
OB4F 1 4€18 
0B51 0 73FF 
0OB52 0 T0F9 
0853 1 6780 
O2JAN66 
415490 


069A 


0161. 


065C 
0000 


0000 | 


0688 


OBDE 
0694 


0694 


OSEF . 
OBDSA . 


062F > 


O1LJUL66 
415490C 


PROGRAM FOR THE 


STO 
i DD 
STD. 


B 


MN ho Nh 


i 


1130 SYSTEM 


TBDSW-TB 


ZX1TO-TB 


 MOD3-TB 


XEQ 


STORE FOR PRINT. 
SET LAST [OCC IN MSG 
x 


EXIT. 


BKK EE EK EK KKK KK KEK EK EK KK EK KLEE EK EK EEK E KEKE KEKE 


KEKE KEE KKK KE EEK EEE EEE KLEE EK EEE EEL LEEK EE EEL EEK 


2 


a 
( ) 


PART NO. 2191212 - 


PAGE 


30914980 


30914990 


30915600 | 


30915010 
30915020 
30915030 
30915040 


30915050 


ROUTINE TGQ SAVE INDEX REGS 
AND EXIT TG MONITOR 


eee ROUTINE CALL 


STMLS-TB 


STMLR+3_ 


STMLR+5 


 STML | 


MLSCF#1-TB SET IN MLSCF-TABLE 


START 


SAVE IX 1. 


30915060 
30915070 


30915080 


30915090 


SAVE IX 3. 
GET RETURN ADRS 


EXIT TO MONITOR 


MONITOR RETURNS HERE | 


RESTORE 
4 

x. 

EXIT VIA ENTRANCE 
ADRS OF RETURN 


INDEX REGS 


BE KEKE KEKE KKK EEE EEK EEE EEE EEE EEL EEE 


x 
* 
B 
* 
x 
* BSI. 
x 
x 
STMLE STX 
STX 
LD 
STO 
BSI 
* 
ss 
se 
STMLR LOX 
~ LDX 
LDX 
B 
STML DC 
te 
5 se 
x 


SUB-ROUTINE VERFY 


KEKE KKK EL KEKE KKK KEL EK EK EK EEK K KEKE KEKE KK EEK EE 


x THIS ROUTINE CALLS THE SEEK SUB-ROUTINE 
# TO LOCATE DESIRED CYLINDER. THE CORRECT - 
* CYLINDER IS VERIFIED BY READING ALL EIGHT 
x SECTOR ID'S. 
* 
tke ROUTINE CALL 
* 
a BSI 2 VERFY-1B 
x DC CYL # DESIRED 
x DC. ADDRS OF ADDRESS ERROR RETURN 
Se ea a a ws a as ie Sa a se wy et pe ee a a eee 
e 
VRFYE LDD 2 K8-TB ~— SET_- BOTH CGUNTERS TO EIGHT 
STD 2 RTICNT-TB * b> 7 
STX LL VERFX€1 SAVE INDEX 1. | 
LDX 13 VERFY. GET CALLING ADRS+41_ 
LD 31 (GET CONTENTS OF CALL+2 
sto TSTCF4L SET FOR EXIT. 
MDX LL  VERFYe2 SET FOR NORMAL RETURN 
iD 30. GET CYL. DESIRED 
STO 2 NCYL#-TB SAVE 
LDX 33. COUNTER 
BS : , 
VERFA LD 2 NCYL#-TB GET DESIRED CYL. 
EOR L3 BADCY-1 CMP WITH BAD CYLS 
BZ -TSTCF. BRANCH IF CMP 
MDX 3 -1. DECR COUNT | 
B VERFA Loop 
ae 
LDX 13 NCYL# CYL DESIRED TO IX1_ 
-LSNOV66 I15JUN67 15FEB68  0O10CT68 OTAPR69 O9MAY69 
419643 420317 571005 


420403 | 


571036 571036C 


30915100 
30915110 
30915120 
30915130 


30915140 
30915150 
30915160 
309L 5170 


30915180 
30915190 
30915200 
30915210 


30915220 


30915230 
30915240 
30915250 
30915260 
30915270 
30915280 
30915290 
30915300 
30915310 


30915320 


30915330 
30915340 
30915350 
30915360 
30915370 
309153 B80 
30915390 
30915400 
30915410 
30915420 
30915430 
30915440 
30915450 
30915460 
30915470 
30915480 


30915490 | 
- 30915500 
30915510 


30915520 
30915530 
30915540 
30919556 
30915560 


30915570 
30915580. 
30915590 

30915600 | 
30915610 
30915620 | 
30915630 - 
30915640 


30915650 


PAGE 


PROG ID 


12 


( 
os / 


0309-4 ~ 


12 


























LO) IBM MAINTENANCE DIAGNOSTIC ‘PROGRAM 


Se 2310 8 DISK FUNCTION TEST. 
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= 
eed 
i 
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co Su 


Lr. fom ss, of, a 
; : 


OO 


eae 


c y 


= " 2G oi ee yee es i a 2h ces _ on 
SEeeeeerere sea sets ere eer ase 


fo, 
(| 
Sy 


} 


\ 


f aN f a ‘ ees 4, | ease 
| | 
é Py Me Meola 


i ~~ oer 
C) & 


DATE 


EG NG. 


0855" 
-0B56 
0B57 


OB58 


OB59 - 
OBSA 


—OB5C 
0B5D 


OBSE 
-OB5F 
0B60 
OB61 
“OB62 


06 63 
0B65 
OB 67 
OB68 
OB69 


OBOA 
OB6B 


‘OB6C 
'QOB6D 
—OB6E 

Ob6E 
OBOE 


UBTO 
OBT1 
0872 
OBY3 
O0B74 
UB/5 
OBT76 
OBI 
Q0B78 
OBTA 
OB7C 
OBTD 
OB TF 


OB 80 


0B81- 
“OB82 
OBB4 
OB &5 | 


UBBS& 


OBST 


0B 88. 
0689 
OB8A 
OBBC: 
—OB8D 
‘OBBE. 
“0B90. 
0891 


OB92 
0B93 


OHOOCKOOrFOO 


oo ooo np 


oO O0CORFOOCOCO 


cs ab iakedasiy dedi Weis ke 


ocro$o 


© 


-73A7 
7001 
7006 


- 73EB 
7002 © 
4C00 


C2B0 

1890. 
D242 - 
C2D3 . 


92D2 


4C18 
4028 
~=1883 
1083 
1002 


F28B 
82DA 


DABC 
423E 


C2DF - 


D208 
6301 
4223 
OABC 
C2E9 
D207 


422F 


OABE 


1003. 


4C€10 


T4FF 


iCF8 
1412 
fO9E 


OABE 
D2CB 


4C10 
4232 
OE05. 


~OABE 


61F8 


E2DE_ 
DOD1 - 
4400 
0001 
C243 
D500 
COCA . 
82DA - 
7101 


T0F4 


02 JAN66 
415490 


0000 


—73A4 - 
TOE 


OB86 
OB6A - 


0B80 . 


0663 


O69A 


0B86 — 


8682 


0814 ° 


O1JUL66 . 
415490C 


4 i 


TSTCC 
“TSTCF> 

se 
TSTCD. 


; 
SEEKB 


* 
SEEKD 


SEEICE 


SEEKF 


-VERFB 


x 


“VERFC. 


1 SNOV66 
419643 


FOR 


STD 


BSI. 


EQU 


STO 
LDX 


BSI. 


X10 


STO 


BSI. 


X10 
SLA 
BNN 
MD X 
MDX 
MD X 
MDX 


Xi 


MDX 
8B | 
FALL 


THE 


L 


3 


‘THRU TO 


| an 
ote fc pee 


1130 SYSTEM 


ao ee 
TSICB 
Smt 


92 


TSTCE 


XSKBK-TB 


16. 


COMA-TB. 
NC YL#-TB 


PCYL#-TB 
VERFB 
SEEKB 

3 

a. 


-. SEEKD. 


NJ 


Nh RO 


PRM PO rm Dh WD fh 


po ND 


15 JUNOT 
420317 


TERM-TB 
K1-TB 


ZX1OQ-TB 
XEQ-TB 
ak 

K8-TB 
RTCNT-TB 


SKONT-SUMRY 


COUNT-TB 
ZX10-TB 
KLOTH-TB 
ZCNI-TB 
STMLS-TB 
SNX1IO-TB 
3 

SEEKG 
ZCNT o- 1 
SEEKF 


XEQ »SEEKG-SEEKE 


XE QC. 


SNXITOQ-TB > 


TBDSW-TB 


-VERFB 
STMSG-TB | 
7OEOS: 


en eT Oe 1 E 


—8 


K7-TB 
TSTCFHT 


_READ+/8000 
a aa 
.COMA+1-TB. 
- BDCY1L+8° . 
“TSTCR#1 
_K1-TB. 


1 3 


-VERFC~ 


2 TEST. FOR CYLINDERS: o- 89 
y gh 90-6554 a te £4 iy 
Deeg. 


STORE FOR XEQ ROUTINE. ~ =~ 
GO To TEST FOR READY ONLY 


SET READ 


' BRANCH IF. NO ERROR: 


~1TSFEB68 
420403 - 


TEST FOR 
Llil-. es) Ee 
90-110 TAKE noe ERR | Ene 


mw 


90- 110 


TEST. FOR CYLS 111-202 
GREATER THAN 202. 


vel eee CYLINDER | 


GET. 
PUT IN Q REGISTER. |. 
CLEAR COMA. .DON*T XEQ 10 
GET DESTRED CYLINDER | © 
CREATE DISPLACEMENT: 
DON’T SEEK IF ZERO 

IF NEGATIVE-BRANCH. .: 
ELSE CLEAR SEEK GUT BIT” 
* IN LOCC 


. GO EXECUTE SEEK. 


FORM TWO"S COMPLEMENT OF 


* SEEK DISPLACEMENT : 


RETURN FROM XEQ_ - 

RETRY COUNTER) © 

* FOR SEEK VERIFIES 
COUNT SEEK 

COUNT 

EXECUTE SEEK IDCC 

SET COUNT IN ACC. 

SET PRIMARY COUNTER - 

GO TG MONITOR 

SENSE DSW 

SHIFT.DISK BUSY BIT 

BRANCH IF NOT BUSY 

DECREMENT COUNT | 

Loop 

SET RETURN TO SEEKG 

GO WAIT FOR INTERRUPT. 


SENSE DISK DSW 
SET EIN-CASE- PRINT . 


ELSE PRINT E005. S NESSAGE, . 


SENSE DISK DSW — 
SET LOOP ‘COUNTER —e 


ge BITS. 13-15 FOR SECTOR 


WANTED . 2 = ee ee 
READ DESTRED SECTOR 
ONE WORD. a ae 
GET SECTOR ID READ : 
SAVE IN TABLE =~ 9-5 = | 
GET SECTOR POINTER 
INCREMENT BY ONE~ 
BUMP LOOP COUNTER 
LOOP IF NOT. THROUGH 


571005 


SEEK TOWARD HOME TOCC .. 


“o1ocTés. 01APR69 OOMAYE9 
571036 571036 


PARTY NO. 


PAGE 


- °° 30915640-~ 
~ Se SO9TSS70 >: 
30915680 2° 


30915690 
30915700 


30915710 
30915720 

30915730: 

20915740 - 
30915750. © 
30915760. 
30915770: = 
30915780." _ 
; 309157596. < 
=. 30915800 4... 


30915810 


30915820 
30915830. 
30915840: | 
~ 30915850 -. 
30915860 © 
30915870 

30915880 
~ 30915890. 


30915900 
30915910 
30915920 
30915930 
30915940 
30915950 


~ 530915960 © - 
30915970.” 
“30915980 > ~ 
,+ 30915990 2° 


30916010 
30916020 
30916030 
30916040 
3091 6050 
30916060 
30916070 
30916080 
30916090 
30916100 
30916110 
30916120 


30916130 


30916140 
30916150 


=. s= 30916160. . 
Jf =. BO09LB1TO ) | 
30916180°° 
© ..30916190: .- 


30916200 
30916210 
30916220 
30916230 
30916240 


30916250 
30916260 @. 
“30916270 . 
30916280 + 
30916290 
“30916300. 
“30916310 ©. 
30916320 


30916330 


PAGE 


PROG 1D- 


219121? 
A224 


0309-4 
12A 





IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


DATE 
EC NU. 


. 2310 8 DISK FUNCTION 


TEST. 
0694 0 DOC6 

OB95 O 61F8 

0B96 0 COC4 | 
0897 1 F500 0814 
0899 0 E2D0E 
OB9A 1 4€20 OBBD 
OB9C 1 7401 OB5B 
OB9E O 7101 

OB9F 0 70F6 

OBAO O 61F9 
OBAl 1 C400 080C 
OBA3 1 F500 0814 
OBAS 0 1803 
OBA6 1 4C20 OBBD 
OBAB O 7101 

OHAS O 7O0F7 

OBAA 0 CAD2 

OBAB O DACC 

OBAC 0 C243 

OBAD 0 1883 

OBAE 0 D2CE 

OBAF 0 D2D2 

OBBO O F2D3 | 
0881 1 4C€18 08D2 
0BB3 0 4232 

0884 0 2E09 

08BS 0 6302 
(0BB6 0 4223) 
OBBT 1 74FF 0665 
0BB9 0 70A4 

OBBA 0 6303 
OBBB:0 4223 

OBBC 0 4235 

OBBD O 61FB 

OBBE 1 CDOO 0811 
OBCO O DACC 

OBC1 1 CDOO 0813 — 
OBC3 O DACE 

OBC4 0 7104 

OBC5 0 7009 
OBC6 1 4400 868E 
OBC8 0 8E0O 

OBC9 1 T74FF 0664 
OBCB O 7OBA 

OBCC 0 4232 
OBCD O 5A0L 

OBCE 0 4235 

OBCF 0 4232 

OBDO 0 8E14 

OBD1 O 7OEC 

OBD2 0 CAOB 

0BD3 0 9ADF 

0BD4 1 4C20 0BD9 
0BD6 0 1090 

O’D7 1 4C18 OBDD 

O2JAN66 O1LJUL66 

415490 415490C 


VERFD 


* 


, VERFE 


e % & 


STO 


LDX | 


LD 


AND 
BNZ 


MDX.- 


MD X 


-LDX 


LD 


EOR 
SRA 
BNZ 
MDX 


MDX 


LOD 
STD 


SRT 


t+ & 


VERFF. 


VERFG 


VERFH 


+ + &% % 


VERFI 


STO 
$TO 


EOR 


BZ 


BSI 


LDX 


MD X 


LDX 
BSI 
BSI 


LDX 
LOD 


STD 


LDD 
STD 
MD X 
MOX 
BSI 


MD X 
MDX 
BSI 
BSI 
BSI 


LOD 
BNZ 
SLT 
BZ 


15NOV66 
419643 > 


EOR 


 TSTCF+H 
1 -8 


_. TSTCFel 
Ll BDOCYL+8 
2 K7-TB 
VERFF 
L TSTCF+l,1l 
11 | 
VERFD 


ed 
t BDCY 
Ll BDCYL+8 
3 
VE RFF 
11 
VERFE 


CHECK 
PCYL#-TB 


MOD 3-TB 
COMAE1—-TB 
3 . 


NNN. 


-MOD5-TB 
PCYL#-TB 
NCYL#-TB 
VERFI 


NNN 


1130 SYSTEM 


ELSE SAVE FIRST SECTOR 


SET LOOP COUNTER 


GET SECTOR POINTER 
TEST CORRECT SECTOR 
SAVE BITS 13-15 

ERROR MESSAGE IF ERROR 
BUMP SECTOR POINTER 
BUMP LOOP COUNTER 

LOGP IF NOT THRU 


SET LOOP COUNTER | 
GET FIRST SECTOR ID READ 
COMPARE WITH NEXT ONE 
* FOR SAME CYLINDER NUM. 
BRANCH CH IF NOT SAME 
ELSE BUMP LOOP COUNTER 
LOOP IF NOT THROUGH © 


FOR EXPECTED CYLINDER 


SET PRINT MESSAGE 


_ 


CK FOR EXPECTED CYLINDER 
x - ; 


SAVE FOR PRINT . 

SET AS PRESENT CYLINDER 
IS IT EXPECTED 

BRANCH IF YES 


CYLINDER ID NOT AS EXPECTED 


2 STMSG-TB PRINT MESSAGE 
/2€09 SEEK ERROR | 
3 SFTSK-SUMRY COUNT SOFT SEEK ERROR 
(2 COUNT-TB- * 
L WRRTY,-1 DECR RETRY COUNTER 
SEEK | RETRY THE SEEK © | 
3 HRDSK-SUMRY . COUNT HARD SEEK ERROR 
2 COUNT-TB- * 
2 TEXIT-TB TERMINATE DFT 
1-5 SET LOOP COUNTER 
Ll BDCYLES SET HARD ERROR MSG 
2 MO03-TB * 
Ll BOCYLE7 
2 MOD5-TB * 
1 4 - -_DECR CTR 
VERFH BRANCH 
L STMSGE/8000 PRINT SECOND LINE 
/8E00 MSG ID NOT PRINTED 
-L RTCNT»-1 BUMP ERROR RETRY COUNTER 
VERFB LOOP IF NOT MAXIMUM 
2 STMSG-TB = PRINT MESSAGE 
 /5A01 DSK NOT INIT 
2 TEXIT-TB TERMINATE DFT 
2 STMSG-TB = PRINT LINE 1 
/8E14 HARD READ ERROR 
VERFG BRANCH 


REACHED PROPER CYL INDER-CHECK 
FOR PREVIOUS ERRORS 


2 RTCNT-TB CK PREVIOUS ERRORS 
2 K8-TB * | 
VERFJ BRANCH IF ERROR OCCURRED 
16 GET Q REG 
VERFX GO EXIT RTN 
1L5JUN67 L5FEB68 010CT68 OJAPR69 O9MAY69 
420317 420403 571005 571036 571036C 
ao ~\ ~~ = 


PART NO. 


PAGE 


30916340 
30916350 
30916360 


30916370 


30916380 
30916390 
30916400 
30916410 
30916420 
30916430 
(30916440 
30916450 
30916460 
30916470 
30916480 
30916490 
30916500 
30916510 
30916520 
30916530 
30916540 
30916550 
30916560 
30916570 
30916580 
30916590 
30916600 
30916610 


30916620 


30916630 
30916640 
30916650 
30916660 
30916670 
30916680 


30916690 


30916700 
30915710 
30916720 
30916730 
30916740 
30916750 
30916760 
30916770 
30916780 
30916790 
30916800 


. 30916810 


30916820 
309168 39 
30916840 
30916850 
30916860 
30916870 
30916880 
30916890 
30916900 
30916910 
30916929 


30916930 


30916940 
30916950 
30916960 
30916970 
30916980 
30916990 
30917000 
30917010 


PROG ID 
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2191212 
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uM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


2310 & DISK FUNCTION TEST | 


DATE 
EC NO. 


QBD9 O 421A 

OBDA 1 OBSE 

OBDB O 4232 

OB80C O 5A06 

OBDD 0 6500 0000 

UBDF 0 C202 

OBEO O D2cc 

OBEL 0 4820 

OBE2 0 C28B 

OBE3 O F2BA 

OBE4 0 1004 

OBES 1 4CA8B 0694 

OBET 0 4232 

UBEB O 4E0D 

OBE 1 4C80 0694 
BEB 0 EABS5 

QBEC 0 1890 

OBED O D2D8 

OBEE 0 D2D9 

OBEF O C218 

OBFO O DABC 
O2JAN66 O1JUL66 
415490 415490C. 


aoe ie 
Hy N ; a <3 


RRR HRAHREHKRHHRHA HHA RHR RE HHH HHH 


~~ 


— : woe 
; y : 
/ ; 
| 
\ \ , ; 
NN Bl ae 


1130 SYSTEM 


PART NO. 2191212 


PAGE 

VERFJ BSI 2 CKLK-TB CHECK LOCK ON ERROR 30917020 

| DC SEEK RETURN IF ON 30917030 

BSI 2 STMSG-TB = PRINT RECOVERED ERROR — 30917040 

DC. /5A06 MESSAGE ID 30917050 

VERFX.LDX LL *-* © RESTORE INDEX 1 | 30917060 

* | | | ht te ae ee 30917070 
* CHECK HOME BIT FOR EXPECTED 30917080. 

* 7 | het co. ecg by | 30917090 
| LD 2 PCYL#-TB GET PRESENT CYLINDER 30917100 | 
STO 2 MOD3-TB * > 30917110 

SKP zZ SKIP IF CYL ZERO | 30917120 

LD 2 TERM-TS MAKE HOME BIT ZERO 30917130 

EOR 2 ZSNS-TB- * | ; 30917140 

SLA 4 = CHECK HOME BIT 30917150 

BN I VERFY EXIT ROUTINE | | 30917160 

BSI 2 STMSG-TB PRINT HOME 81T INCORRECT 30917170 

DC /4E0D FORM/MESSAGE IO 30917180. 

B I VERFY © EXIT ROUTINE 30917190 

Ma en rn rn rr een na enn n enn 30917200 
Bn ee See ----- wanna 30917210 
#EKKKKE KEE KEKE EE EEE EEE EE EEE EEL EEE EEE EEE EE EEK EEE EE 30917220 
30917230. 

; | READ SUB-ROUTINE 30917240 
e cee | | — , 30917250 
#K KEK KEK KKK KEE KEK EK EEE EEE EEE EK EEE EEK EERE K KKK KKK KK 30917260 
| 7 a | | - 30917270 

THIS ROUTINE WILL ISSUE THE 30917290. 

READ QPERATION, CHECK THE OSW 30917299 

FOR ERRORS AND CALL THE 30917300 

COMPARE SUB-ROUTINE TO CHECK 30917310 

FGR ANY ERRORS. 30917320 

| _ 30917330 

A MAXIMUM OF EIGHT RETRYS WILL 30917340 

BE MADE ON BOTH A DSW OR A 30917350 

-. COMPARE ERROR. | 30917360 

- ee 30917370 

THE LOCK ON ERROR OPTION WILL 30917380. 

LOCK THE ROUTINE IN THE READ 30917390. 

OPTION AS LONG AS THE SWITCH © 30917400 

IS ON EVEN IF THE ERROR IS 30917410 

INTERMITTENT. 30917420 

30917430 

tkk* ROUTINE. CALL 30917440 
30917450 

(A) SECTOR COUNT | 30917460 

BSI 2 READ-TB | | | ~ 30917470 

DC WOCNT NO. OF WORDS TO BE READ 30917480 

: * BIT O EQUAL L MEANS USE . 30917490 

OO * RANDOM DATA FOR COMPARE 30917500 

DC NUMBER USED IN COMPARE — 30917510 

DC CMPERR ADRS OF CMP ERROR RFTURN 30917520 

| | 30917530 

*#** ALTERNATE CALL USED 30917540 
(A) _ SECTOR COUNT 30917550 

BSI L READ+/8000 30917560 

DC WD CNT 30917570 

7 | 30917539 

THE ALTERNATE CALL WILL CAUSE THE ROUTINE 30917590 

TO READ AND RETURN WITHOUT CHECKING EITHER 30917690 

THE DSW OR THE DATA READ. 30917610 

| | 30917620 

wr en ne wae ---------- == 30917630 
RDEN OR 2 DSKMD-TB COMBINE WITH READ 30917640 
SRT 16 ATO Q | 30917650 

STO 2 RDDSW-TB CLEAR DSW ERROR: CQUNTER | 30917640 

STO 2 RDCMP-TB CLEAR CMP ERROR COUNTER 39917670 

LD 2 ADCMA-TB | 30917680 

STD . 2 ZXIO-TB  ~—- SET _-FOR XEQ CALL 30917690 
1SNOV66 15JUN67 15FEB68 O1LOCT68 O1APR69 OOMAY69 PROG ID 
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IBM MAaNTENANCE DIAGNGSTIC PROGRAM FOR THE 


2310 B DISK FUNCTION TEST’ 


DATE 


cC NO. 


0682 


0682 


OC20 | 


OC 2D | 


OCLE 


0682 


0682 


0635 


0632 


OBFL O 108D_ 
UBF2 0 C2D3 
OBF3 0 1083 
OBF4 0 D205 
OBF5 1 6780 
OBFY O C3FF_ 
OBF8 O D2FE 
OBFS 0 C300 
OBFA 0 D2FD 
OBFB 0 1001 — 
OBFC O 1801 
OBFD 0 D242 
 OBFE G D2FF. 
OBFF O C301 
OC00 0 D20C 
OCO1 0 C302 
OCO02 0 D029 
OC03 1 7401 
OCO5 0 6304 
0CO06 0 4223 
OCO7? O CADF 
O0C08 OQ DADE 
OCO9 0 C2BB 
OCDA 0 422C 
OCOB 0 423E 
 OCOC O C2FE 
OCOD i 4€28 
OCOF O C2BA 
OC 10 1 4C€28 
OC12Z2 0 4038 
0C13 0 f00E 
0014 0 @T2D8 
0C15 0 82D9 . 
O0C16 1 4C18 
OC 18 O 421A 
OC19 1 OCO7 
OCLA O 6305 
~0C1B 0 4223 
OC1C 0 4232 
OC1D QO 5A03 
OC1lE 1 71402 
OC20 1 4C80 
OC22 1. 7401 
OC24 1 (4FF 
OC26 0 10E2 
OC27 0 4232 
0C28 0 5A04 
OZ2JAN66 


01JUL66 
415490  415490C 


SLT. 


LD © 


SLT 


STO | 


EADB LD 


BSI. 


*# %# H +H 


HoH tt 


BSI > 


LD 
BN 


+ st tt 


LD. 


BSI 


LD 


BZ 


BSI. 


LDX 


BSI. 
BSI. 


DC . 


READX MDX 


RDNCK B 


RDER1 


MDX 
MDX 


BSI 
pc 


~LSNOV66 


419643 





DSW ERRORS, 


1130 SYSTEM. 


IF NOCK NEG DONT CHECK FOR 
BUT EXIT AS IF NORMAL READ. 


SECTOR TO 0-2 Q REG. 


13 
2 NCYL#-TB GET CYL. # WHERE DISK S/B 
* AFTER LAST SEEK 
a COMBINE FOR COMPARE 
2 10S #8-TB. PRESENT SECTOR ID 
3 READ GET CALLING ADRS+1 
ee, | SET NOCK SW 
2 NOCK-TB. = 
3 0 3 GET WORD COUNT. 
2 RNDCK-TB IF NEG. USE RANDOM NUMBERS 
i. CLEAR BIT ‘0. 
i OO | 
2 COMA-TB> WORD COUNT. 
2 LNGTH-TB * FOR COMPARE RTN 
31 GET NUMBER > 
2 CMPTM-TB  * FOR COMPARE RTN- 
3 2 GET CMP ERROR ADRS 
RDCPX+1 SET FOR CMP ERROR EXIT 
_.. READ,1. INCR FOR NO-CHECK RETURN 
3 RDCNT-SUMRY POINTER FOR SUMMARY 
2 COUNT-TB INCR READ COUNT 
2 K8-TB SET RETRY COUNTER 
2 RIRYA-TB * TO 8 
PRESET 17/0 AREA TO /FFFF 
2 TERM-TB /FFFF 
2 SETV-TB CALL PRESET ROUTINE 
ISSUE A READ OPERATION 
THRU THE XEQ SUB-ROUTINE 
2 XEQ-TB ISSUE READ COMMAND 


2 NOCK-TB GET NO CHECK SWITCH 
RDNCK EXIT IF NEGATIVE. 
CHECK DSW FOR ERRORS 
2 ZSNS-TB INTRPT DSW 
RDER2 BRANCH ON ERROR - 
CMP | CALL COMPARE RTN 
RDER1 COMPARE ERROR RETURN 
2 RDDSW-TB GET ERROR CONT 
2 RDCMP-TB ADD COMPARE ERRORS 
-READX BRANCH IF NO ERRORS 
2 CKLK-TB CHECK LOCK ON ERROR SW 
READA IF SET 
3 SFTRD-SUMRY — POINTER | 
2 COUNT-TB SOFT READ ERROR. 
2 STMSG-TB — PRINT MESSAGE 
/5A03 SOFT READ ERROR- 
READ »2_ INCR FOR NORMAL RETURN 
- READ. RETURN 
L RDCMP,1. COUNT COMPARE ERROR 
L RTRYAy-L DECR RETRY COUNTER 
READB LOOP 
2 STMSG-TB PRINT MESSAGE. 
/5A04_ HARD CMP ERROR- 
15JUN67  15FEB68  O10CT68 OTAPR69 O9MAY69 
420317 420403 





PART NO. 


PAGE 


30917700 
30917710 
30917720 


30917730 
30917740 


30917750 
30917760 
30917770 
30917780 


30917790, 


30917800 
30917810 
30917820 
30917830 
30917840 
30917850 
30917860 


—30917870 


30917880 
30917890 
30917900 
30917910 
30917920 
30917930 
30917940 
30917950 
30917960 
30917970 
30917980 
30917990 
30918000 
30918010 
30918020 
30918030 
3091 8040 
30918050 
30918060 


~—30918070 


30918080 
30918090 
30918100 
30918110 


30918120. 


309181390 
30918140 
30918150 
30918160 
30918170 


30918180. 


30918190 
30918200 
30918210 
30918220 
30918230 
30918240 
30918250 
30918260 
30918270 
30918280 
30918290 
30918300 
30918310 
3091 8320 
30918330 
30918340 
30918350 
30918360 
30918370 


PROG ID 
571005 5/1036 571036C PAGE 


2191212 
14 


0309-4 
14 





BM MAINTENANCE DIAGNOSTIC PROGRAM 


2310 B DISK FUNCTION TEST. 


DATE 


tC NOe 


0629. 


OC2ZA 
OC2B 


OC2D 
OC2E 


0C30 
O0C31 
0C32 


0C33 


0034 


0C35_ 
0036 
0C38— 


OC39. 


OC3A 
OC3B 


OC3C 


OC 3D 


OC3E 
OC3F 


0C40 
OC4l1 
0C42 


0044 


OC45: 


OC47 


0c49 
OC4A 


0C 4B 


OC4C 


0C 4D 
OC4&E 
—OC4F 
OC 50 


OC51 
Ol 52 


~“OOOCOmMO00. 


OOo 


Sod skesane | 


eoooog 


OOo 


6306 
$4223 
- 4000 


C208 
7401 


421D 


7002 
4232 
QE06 


4016 


TOOF - 
T4FF 
~70D0 


‘CABC 


CACC 


421A_ 


cCCO7 


(4232 


0000 


0634 


0632. 


OEO7 


 FOE6 


61401 
T4FF 


7 CBF 


TOEE 


~Q000 
~1010 


D201 


D206 


C2DA 
D200 


~C20C 


D204 


02 JAN66 


415490 


6306 — 
©4223, 
C2d6 
- 4C18 


OC1E 


0635 — 
0633 . 


O1JUL66 
415490C 


ee 


FOR THE 


1130 


SYSTEM 


571036 571036C 


PART NO. 2191212 ( — 


PAGE 

LDX 3 HRDRD-SUMRY POINTER TO HRD RD ERR CNT 30918380 
BST. 62° COUNT-TB) = COUNT ERROR 30918390 
~ RDCPX B LL. *—* COMPARE ERROR EXIT 30918400 
. i a ee | 30918410 
RDER2 LD 2 RDODSW-TB. GET. DSW ERROR COUNT 30918420 
MDX RDDSW,l = BUMP COUNT 30918436 

BSI 2 CKPRT-TB CK PRINT-ALL-ERRORS OPTION 30918440 
BR  MRR DR 2B BR ARDUND PRINT. 30918450 
RDR2ZA. BSI. 2 STMSG-TB PRINT MESSAGE 30918460 
DC /OE06 HARD DSW ERROR - 3091 8470 

RDR2B BSI CMP CALL COMPARE RTN 30918480 
ee. oe RDER4. COMPARE ERROR RETURN 30918490 
MDX. RTIRYA,-1L. DECR RETRY CQUNTER 30918500 

B READB L1ocoP 30918510 

* ae te i? yt 3 _ | 30918520 
RDER3 LDD 2 ZXIG-TB. GET LAST I0CC ISSUED 30918530 
STD. 2 MOD3-TB STORE IN CASE PRINT 30918540 

BSI 2 CKLK-TB | CHECK LOCK-GN-ERROR . 30918550 

DC. READA .. IF SET | 30918560 
BSI. 2 STMSG-TB PRINT MESSAGE 30918570 

DC /0EO7 © DSW ERROR 30918580 
LDX 3 HRDRD—-SUMRY POINTER 30918590. 

BSI 2 COUNT-T8B HARD READ ERROR - 30918600 

LD 2 RTRYA-TB GET DSW RETRY COUNTER. 30918610 
om BZ ~READX NORMAL EXIT/NG. CMP ERRORS 30918620. 
k | | * . ON LAST READ 30918630 
B 7 RDCPX TAKE CMP ERROR EXIT. 30918640 

ae 7 30918650 
RDER4 MDX RDCMP,1~ INCR CMP ERROR COUNT 30918660 
MDX -RTRYBy-1 DETR CMP ERROR COUNT. 30918670 

es READB 100P 30918680 
B RDER3 GO EXIT 30918690 
Ag ea ee ee eae —————— + + + + 30918700 
Km + 30918710 
BEE EKEE EEE KEE EEE EEE ELEEEEEEEEEEEKE 30918720 
ae 30918730 
* COMPARE SUB-ROUTINE 30918740 
x 30918750 
HE KEELE EEE EEL ELLE KEEL EEE ELLE ELLE ELLE LEE 30918760 
* THIS ROUTINE WILL CHECK ADRS 30918770 
Oe READ AGAINST ADRS EXPECTED AND. 30918780 
x COMPARE DATA EXPECTED AGAINST. 30918790 
* DATA READ. 30918800 
x eae YS. 30918810 
x ERROR PRINTOUTS WILL INCLUDE 30918820 
* ADRS, WORD NUMBER, EXPECTED, 30918830 
ed RECEIVED AND TOTAL NUMBER OF. 30918840 
x ERRORS « 30918850 
of | > | 30918860 
x “AN OPTION GF PRINT ONLY FIRST. 30918870 
% ERROR OR PRINT ALL ERRORS 15 30918880 
ome: PROVIDED | | 30918890 
x 30918900. 
see a a ROUTINE CALL 30918910 
He 30918920 
x BSI “CMP. , 30918930 
% MD X CMPERR ERROR RETURN 30918940 
Km ee 30918950 
* 309189460 
CMP DC a ROUTINE ENTRANCE 30918970 
SLA  =-:«'16 ZERO A 30918980 

STO 2 ERCT-TB CLEAR ERROR COUNT. 30918990 

STG 2 LPRNT-TB CLEAR LAST-WORD-PRINTED 30919000 

LD 2 K1-TB. ~ SET INDEX TO GONE 30919010 
= STO. 2 INDEX-TB * | 30919020 
x i 30919030 
1D 2 CMPTM-TB GET NUMBER TO COMPARE WITH 30919040 

STO 2 S#BE&1-TB SET 30919050 
LSNGV66 1SJUN67. 8 15FEB68 O10CT68 O1APR69 O9MAY69 pROG ID 

419643 420317 420403 . 571005. PAGE 


144 
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LBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM ae PART NO. 2191212 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM = PART NO. 2191212 


: PAGE 15 PAGE — LSA 
2310 B DISK FUNCTION TEST 2310 B DISK FUNCTION TEST | 

0C53 0 CAOS LDD 2 IDS#B-TB GET ID EXPECTED 30919060 OCA3 0 TEOA. DC /TEOA MESSAGE ID 30919740 
0C54 0 DAO2 STD 2 S#B-1-TB SET 30919070 OCA4 0 C200 ~~ CMP2A LD 2 INDEX-TB GET POINTER 30919750 
0C55 0 402D BSI CMPB GO MAKE COMPARISION 30919080 OCAS5 0 92DA S 2 K1-TB * TO ONE (1) 30919760 
0C56 0 C20C LD 2 CMPTM—-TB SET NUMBER 30919090 OCA6 1 4€20 0094 | BNZ CMPB1 BRANCH IF NOT EQUAL 30919770 
0C57 0 0203 STO 2 S#B-TB SET 30919100 OCAB O 7002 7 B CMPB4 PRINT BAD WORD 30919780 
OC58 0 7004 B CMP2 CHECK FOR FINISHED 30919110 | * | | 30919790 
0C59 O C2FD CMP1 LD 2 RNDCK-TB GET RANDOM INDICATOR 30919120 | * PRINT WORD PREVIOUS TO BAD WORD 30919800 
OC5A 1 4C28 OCB5 BN CMRND BRANCH IF ON Z 30919130 # 30919810 
OC5C 0 705B B CMRN1 GO TEST FOR BAD DAT 30919140 | OCA9 0 63FF CMPB3 LDX 3-1 INDEX-1 30919820 
OC5D 1 7401 065C CMP2 MDX L_ INDEXsl INCR INDEX 30919150 | OCAA 0 4014 BSI PNTB PRINT 30919830 
OC5F 0 C200 LD . 2 INDEX-TB GET CONTENTS INDEX 30919160 * 30919840 
0C60 0 92FF S 2 LNGTH-TB CK FOR COMPLETE 30919170 | * PRINT BAD WORD | : 30919850 
OC61 1 4C08 0C59 BNP CMPL BRANCH IF NOT FINISHED 30919180 * | 30919860 
0C63 0 C201 | LD 2 ERCT-TB GET ERROR CNT 30919190 OCAB 0 6300 CMPB4 LDX 30 SET POINTER 30919870 
0C64 0° D2CC STO 2 MOD3-TB STORE FOR PRINT 30919200 OCAC 0 4012 BSI PNTB PRINT 30919880 

—0C65 1 4C18 0Cé6D BZ CMP3 BRANCH IF ZERO 30919210 * | 30919890 : 
0C67 0 C209 LD 2 RDOCMP-TB GET CMP ERROR COUNT 30919220 * TEST IF LAST WORD | 30919900 
0€68 0 421D BSI 2 CKPRT-TB CK PRINT=ALL-ERRORS 30919230 | 3% % | 30919910 
0C69 0 7003 B cMP3 BRANCH IF NOT SET 30919240 OCAD O C2FF CMPB5 LD 2 LNGTH-TB GET RECORD LNGTH 30919920 
OC6A 1 4400 868E BSI L  STMSG&/8000 PRINT NO. ERRORS 30919250 OCAE 0 9200 S 2 INDEX-TB TEST FOR END 30919930 
Uc6C 0 4E15 DC /4E15 # OF COMPARE ERRORS 30919260 OCAF 1 4C98 0C83 | BZ I CMPB EXIT IF LAST WORD WAS JUST 30919940 
| | | ¥ = | 30919270 * * PRINTED 30919950 
0C6D 1 6780 065C CMP3 LDX I3 INDEX IX EQUAL WD CT 30919280 * 30919960 
OC6F 1 C700 069E LD £3 COMA GET REC LNGTH 61 | 30919290 * PRINT WORD FOLLOWING BAD WORD 30919970 
-0C71 1 8700 069F A L3 COMAE1 ADD REC LNGTH &2 30919300 * | 30919980 
0C73 0 820B A  . 2 K2-TB ADD 2 30919310 OCB1 0 6301 LDX 31 SET POINTER 30919990 
0C74 1 4€18 OC7C BZ CMPX BRANCH IF AS EXPECTED 30919320 OCB2 0 400C BSI PNTB PRINT FORM 2 30920000 
OC76 0 C2D9 LD 2 RDCMP-TB GET CMP ERROR COUNT 30919330 0CB3 1 4C€80 0C83 CMPB6 B I CMPB RETURN 30920010 
0C77 0 421D BSI 2 CKPRT-TB CK PRINT—ALL-ERRORS OPTION 30919340 * | | 30920020 
0C78 0 7002 B CMP4 BRANCH IF NOT SET 30919350 OCB5 0 C203 CMRND LD 2 SHB-TB GET CURRENT NUMBER 30920030 
0C79 0 4232 - BSI 2 STMSG-TB PRINT OVERREAD 30919360 OCB6 0 4229 BSI 2 RNDOM-TB GET NEXT NUMBER - 30920040 
OCTA O 7EOB DC  ~—/ TEOB a | _ | 30919370 :  OCBT O 0204 STO 2 S#BE1-TB SET 30920050 
OC7B O C2DA CMP4 1D. 2 K1-TB © MAKE SURE A REG. NON-ZERO 30919380 OCBB 0 C203 CMRN1 LD 2 S#B-TB CK CURRENT NUMBER 30920060 
OCTC 0 8201 CMPX A 2 ERCT-TB CK IF ANY ERRORS 30919390 0CB9 0 4CC9 BSI §CMPB x 30920070 
_0C7D 1 4C20 0C8L BNZ CMPEX = BRANCH IF YES | 30919400 OCBA 0 C203 LD 2 S#B-TB SET PREVIOUS NUMBER 30929980 
OC7F 1 7401 0C4B_ MDX Lb CMP,l - — INCR RETURN 30919410 oCBB O 0202 STO 2 S#B8-1-TB * | 30920090 
0C81 1 4C80 0C4B CMPEX BSC I CMP EXIT ROUTINE 30919420. OCBC 0 C204 LD 2 S#BE1-TB SET CURRENT NUMBER 30920100 
* ves 7 | 30919430 OCBD 0 D203 7 STO 2 S#B-TB * 30920110 
0C383 0 0000 CMPB DC a ENTRY 30919440 OCBE 0 709E B CMP2 CK FOR COMPLETE 30920120 
0C84 1 6780 065C - LDX 13 INDEX GET INDEX | 30919450 * | 30920130 
0C86 1 F700 069E EOR £3 COMA COMPARE WITH S/B . 30919460 7 OCBF 0 0000 PNTB DC #-* = - ENTRY 30920140 
0C88 1 4C98 0C83 BZ I CMPB EXIT IF EQUAL 30919470 OCCO O C2D9 LD $2 RDCMP-TB- GET CMP ERROR COUNT 30920150 
OC8A 1 7700 069E MDX 3 COMA INCR IX BY ADRS OF COMA 30919480 OCC1 O 421D 7 BSI 2 CKPRT-TB CK PRINT-ALL-ERRORS OPTION 30920160 
OC8C 0 6B37 STX 3 PNTC#l SET FOR POINTER 30919490 - OCC2 0 7010 | B PNTBX DON'T PRINT IF NOT SET 30920170 
oC8D 0 C201 LD 2 ERCT—-TB GET ERROR CNT MINUS 1 30919500 . oCC3 0 C700 0000 PNTC LD L3 *-* | GET WORD READ 30920180 
OCBE 1 7401 065D MDX L  ERCTel INCREMENT ERRGR COUNT 30919510 | OCC5 O DB2CE STO 2 MODS-TB SET FOR PRINT 30920190 
0C90 1 4C18 OC9F BZ |  CMPB2.. BRANCH IF FIRST CMP ERROR 30919520 OCC6 1 C700 065F LD 13 S#B GET WORD EXPECTED | 30920200 
* | - 30919530 occs O D2CD STO 2 MOD4-TB SET FOR PRINT 30920210 
S CHECK PRINT ALL ERRORS OPTION 30919540 : ~OCC9 1 7780 065C: MDX 13 INDEX ADJUST INDEX 30920220 
7 30919550 OCCB O 1000 NOP i? IN CASE SKIP OCCURS 30920230 
0C92 0 421D 7 BSI 2 CKPRT-TB CK PRINT—ALL-ERRORS OPTION 30919560 OCCC 1 6FOO 0628 STX £3 MOD3 SET FOR PRINT 30920240 
0C93 0 701F B CMPB6 BRANCH IF NOT SET 30919570 OCCE 1 6FOO 0662 STX &3 LPRNT SET AS LAST WORD PRINTED 30920250 
* | : : 30919580 OCDO 1 4400 868E BSI L  STMSG+/8000 PRINT W/O MID-PID--- 30920260 
* PRINT ADDITIONAL ERRORS © | | 30919590 OCD2 0 6E16 DC /6E16 S/B WAS 30920270 
2 30919600 | 0CD3 1 4C80 OCBF PNTBX B ~~ PNTB EXIT | 30920280 
0C94 0 C206 CMPB1 LD 2 LPRNT-TB TEST TO SEE IF BAD WORDS 30919610 *——~—--———- ---~---+--~---------- — ------------------ 30920290 
0C95 0 82DA A 2 K1-TB * AND PREVIOUS WORD HAVE 30919620 | | 4—————-—— --— -—- + -------- --- --- ---------+---------- 30920300 
0C96 G 9200 S 2 INDEX-TB * BEEN PRINTED YET 30919630 BEKELE KK KEKE KEK KEKE KEKE EEE EEK EEK EKER E EEK KEKKKEEK EK 30920310 
O0C97 1 4C18 OCAB BZ CMPB4 BRANCH TO PRINT BAD WORD 30919640 ne .. 30920320 
0C99 1 4C28 OCA9 BN CMPB3 - BRANCH/PRINT PREVIOUS WORD 30919650 as. * 7 WRITE ROUTINE: 30920330 
UCSB O 92DA 5 2 K1-TB ~~—* TEST FOR NEXT WORD PRINTED 30919660 | # a oO 30920340 
OC9C 1 4CAO 0C83 BNZ 1 CMPB EXIT IF LAST WORD. 30919670 | | REE KKK KKK KK EK KEKE KEK KEELE KEE KLEE KEELE KKEKKKK KKK 30920350 
OC9E 0 700E B CMPB5 BAD WORD+1 NOT PRINTED YET 30919680 * 30920360 
* | 30919690 % 2 ee : 3 eS ge 30920370 
UC9F O C2D9 CMPB2 LD 2 RDCMP-TB GET CMP ERROR COUNT 30919700 * THE ROUTINE WILL INSERT 30920380 
UCAO 0 421D BSI 2 CKPRT-TB CK PRINT-ALL-ERRORS OPTION 30919710. 8 THE WORD COUNT AND THE DISK ADRS 30920390 
OCA1L 0 7002 B CMP2A — BRANCH IF NOT SET 30919720 * AS THE FIRST TWO WORDS OF THE 30920400 
UCA2 0 4232 BSI 2 STMSG-TB PRINT MESSAGE 30919730 * 1/0 AREA AND ISSUE THE WRITE 30920410 

DATE U2JAN66 OLJUL66 LS5NOV66 15JUN67  15FEB68 O10CT68 OTAPR69 O9MAY69 PROG ID 0309-4 DATE O2JAN66 O1JUL66 15NOV66 15JUN67 15FEB68  O10CT68 OTAPR69 COMAY6g PROG ID 2209 


cC NUe 415490 415490C 419643 420317 420403 571005 571036 571036C PAGE 15 EC NOew 415490 415490C 419643 420317 420403 571005 571036 571036c PAGE 154 
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18M MALNTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM | 


2310 B DISK FUNCTION 


VATE 


cl NUs. 


we 
= 


OCcD5 
OCDé6 
OCDT 
ocoD8 
OCD9 
OCDA 
OCDB 
OCDC 
OCDD 
OCDE 
OCDF . 
OCEO. 
OCE2 
OCE4 
OCE5S 
OCE6 
OCE7 
OCES 
OCE9 
OCEA 


et ae ee ae 


OCEC 
OCED 


OCEE O 
OCEF O 


U2 JANG 
415490 


— EABS 
-1890- 
C218 
DABC 
108D_ 
C202 


1083 
D205 
D243 
6307 


(4223. 
(0697 


6780 


7402 
C3FF 
D2FE. 
C302: 
D018 


C300 


D242 


4C28 


C301 
~422C 


423E 


C28B 


6  O1JUL66 


TEST 


0697 


OCEE 


415490C 


HHH HHH HH HH tH 


WRTA 


“THE LOCK WILL REMAIN 


“THRU THE XEQ. ROUTINE. 


AFTER INTRPT THE DSW IS CHECKED 


FOR ‘ANY e RECS? 


IF ERRORS ARE FOUND THE ROUT INE 
WILL RETRY UP TO cela TIMES. | 


LOCK ON ERROR OPTION Is. 
PROVIDED AND WILL LOCK THE 
ROUTINE IN WRITE ON EITHER AN 


INTERMITTENT OR SOLID ERROR. 


IN EFFECT 
UNTIL THE SWITCH IS CLEARED. 


**#* ROUTINE CALL 


BSI 
DC 


—6=BSI 
DC 
oc 


DC 
DC 


A REG. 


2 


**#AL TERNATE 


A REG _ 


1 


— SECTOR COUNT 


WRITE-TB 

WORD COUNT 

BIT O EQUAL 1 MEANS. 
DON'T PRESET I/O AREA. 


NUMBER USED AS PRESET | 


ADRS TO RETURN TO 
IF 8 RETRYS FAIL 


CALL: USED 
SECTOR COUNT 


WRITE+/8000 © 
WORD COUNT 


“NUMBER USED AS PRESET 


THE ALTERNATE CALL WILL CAUSE THE ROUTINE TO” 
PRESET THE I/D AREA, 
OUT CHECKING THE DSW. 


WRITE AND RETURN WITH- 


ae GY ES SN SD SS SD NS EAS A SS SE ES SD AS ED SEE GS AS SAO OU SED RE EE SED WD SORE SENDS GE OS SES Oe ee ee ae ee 


et %& % & 


LD 


-L5NOV66 
419643 — 


BSI 


age * 


WRMOD-TB COMBINE WITH WRT FNC 
16 ATO Q 

ADCMA-TB ADRS OF COMA 

ZXIO-TB SET FOR XEQ 

cs Ge POSITION SECTOR. COUNT 
PCYL#-TB GET PRESENT CYLINDER 


3 CREATE SECTOR ID 


2 IDS#B-TB UPDATE SECTOR ID 

2 COMA+1-TB SET FOR WRITE OP 

3 WRCNT-SUMRY POINTER 

2 COUNT-TB  INCR WRITE COUNT 

13 WRITE GET ADRS OF CALL#1 

L WRITE,2 CREATE NORMAL RETURN ADRS 
3-1]: ° os 

2 NOCK-TB SET FOR NO CHECK IF NEG. 
32. DSW ERR ADRS 

WRTE#1 SET FOR ERROR RETURN 
30 GET WORD COUNT 
2 COMA-TB SET FOR XIO 
WRTA BIT O SET MEANS DON'T 
* PRESET THE 1/0 AREA 

31 NUMBER 

2 SETV-TB PRESET I/O AREA 

ISSUE WRITE THRU XEQ RIN 

2 XEQ-TB - ISSUE WRITE COMMAND 

2 TERM-TB GET ALL F°S 

15JUN67 15FEB68 O10CT68 OTAPR69 OOMAYES 
420317 420403 571005 571036 571036C 

7K a rs 


PART NO. 


PAGE 


30920420 > 


30920430 


30920440 
30920450 — 
30920460 
30920470 
30920480 


30920490 


30920500 
30920510 © 
30920520 
30920530: 
30920540. 
30920550 
30920560 
30920570: 
30920580 
30920590 
30920600 
30920610 
30920620 
30920630 
30920640 
30920650 
30920660 
30920670 
30920680 
30920690 
30920700 
30920710 
30920720 
30920730 
30920740 
30920750 
30920760 
30920770 
30920780 
30920790 
30920800 
30920810 
30920820. 
30920830 
30920840 
30920850 
30920860 
30920870 
30920880 
30920890 
30920900 
30920910 
30920920: 
30920930 
30920940 
30920950 
30920960 
30920970 
30920980 
30920990 
30921000 
30921010 
30921020 
30921030 
30921040 
30921050 
30921060 
30921070 
30921080 
30921090 


PROG ID 


PAGE 


2191212. 
16 


0309-4 
16 


18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM ~ 


2310 B DISK FUNCTION TEST 


VATE 
EC NU. 


OCFO 


OCF1 
OCF2 
OCF4 


OCF6 
OCF? 


OCF9 
OCFA 
OCFB 


~OCFC 


OCFD 


OCFE. 


OCFF 


ODO1 
ODO2 
ODO3 
0U04 
OD05 


ODOT 
OD09 
ODOB 
ODOC 


O2JAN66 
415490 © 


C000) 


oO - = 


0 


i) 


O00 


~~ OOO © 


C480 


sa 
“ 


D243 


C2FE 
4CA8 
7401 


0697 
0697 


C2BA 


4C90 0697 


CABC 


DACC 
4232, 


(OE08 


6308 
4223 


4C00 0000 


A2E6 
1090 
4818 
820D 


4C80 0685 


OD11 
0676 


4C18 


D004 
1800 


OLJUL66 © 
4154900 


i - fr yee os a 
NO . a ae , ) Y 
S ae gy Sy SSE tg) 7 Se. NL NN Bet 


Ke SD UD A AS ENP ND OS SS UN SS CO SD SED AD AS OO CS SOE MD ORS ENS ANE ED OND GS AO aN SEES SEP DE SE A MD SU ES SS weno am te 


pp DS SEECELE SESE SERA EEG GCLELE CE GLELIGCLALE CELE GCL GAC 


| STO 
re 
x 
* 
x. 
Lo 
BN 
MD X 
x 
* 
x. 
~ LD 
BNN 
* 
* 
* a 2 
LDD 
STD 
BSI 
DC 
* .& 
LDX 
Lf BSt 
WRTE 8B 
x 
* 
* 


NUMBER 

2 RNDOM-TB 

2 K253- TB GENERATE RANDOM NUMBER 
16 QTOA | | 
+— SKIP IF NON-ZERO 

2 K123- TB ELSE ADD 123 BASE 10 

I  RNDOM © 


#EKKEK KKK KEKE KK KK KKK KEK KK EEE KEKE EK KEKE KK KEKE KKK KECK 


x 

* 

x 

x 

* 

* 

*.. 

* 

re 

*x 

* BSI 

x: . 

x 

RNDME M . 
SLT 
SKP 
A 
B 

x 

x 

x 


te 


2 COMAFI-TB 


IF NOCK NEGATIVE, 


PRESETS 10 AREA 


DON'T CHECK. FOR 


DSW ERRORS BUT EXIT AS IF NORMAL WRITE. 


2 NOCK-TB GET NO CHECK SWITCH 
I WRITE IF NEGATIVE, EXIT 
L WRITE,1 ~INCR RETURN 
CHECK FOR DSW ERRORS © 
2 ZSNS-TB INTRPT DSW | 
I WRITE EXIT IF ND ERRORS 
PRINT UNRECOVERABLE aay 
2 2X10-18 GET LAST YfOCC ISSUED 
2 MOD3-TB SET FOR PRINTING | 
2 STMSG-TB DSW WRITE ERROR 


/0E08 


3 SFTWR-SUMRY 
2 COUNT- TB 


L *=* 


POINTER: 


DSW ERROR EXIT 


SUB-ROUTINE RNDOM 


ROUTINE IS ENTERED WITH PREVIOUS NUMBER 
THAT WAS GENERATED, 


ROUTINE EXITS WITH A NEW 


NUMBER-IN 


**e* ROUTINE CALL 
A REG _ 


sn CESS EEEC ECE EEE CECE CEC EEE CEE CCE CEE EE CLE EE EEE E CE CEES 
RANDOM NUMBER GENERATOR © 


IN THE A REG. 


16-BIT 
THE A REGISTER. Pas ee 


EXIT ROUTINE 


ROUTINE TO CHECK FOR LOCK 
ON ERROR OPTION 


***e ROUTINE CALL 


CRORE E CELE CECE CEE LECCE LECCE CEE ELE EERE RCCL ECE CEES 
ZERO 


* 
* BSI 
* DC 
x 
CKLKE BZ 
7 LD 
STO 
RTE 
15NOV66 
419643 — 


2 CKLK-TB 
ADRS TO RETURN TO 


CKLK2 
I CKLK | 
CKLK1L41 
16 
15JUN67 
420317 - 


— 420403 


IF SW IS SET. 


DON'T CK IF A REG. 
GET LOCK ADRS 

SET AS RETURN 

SET IN Q 


15FEB68 
571005 


ba 
; x 
“. 


INCR HARD WRITE ERROR- 


OLOCT68 OIAPR69 OIMAY69 
571036 571936C 


PART NO. 


PAGE 


30921190 


30921110 


30921120 
30921130 | 


30921140 
30921150 
30921160 
30921170 


30921180: 


30921190 


30921200 — 
30921210 


30921220 
30921230 


30921240. 
30921250 © 
30921260 © 
30921270 > 


30921280 
30921290 
30921300 
30921310 
30921320 
30921330 


30921340 


30921350 
30921360 
30921370 
30921380 


30921390 


30921400 
30921410 
30921420 


30921430 


30921440 
30921450 
30921460 
30921470 


30921480 


30921490 


30921500 


30921510 
30921520. 


30921530 


30921540: 


30921550 
30921560 


30921570 


30921580 


30921590 


30921600 
30921610 
30921620 
30921630 
30921640 


30921650 


30921660 
30921670 
30921680 
30921690 
30921790 
30921710 
30921720 
30921730 
30921740 
30921750 
30921760 
30921770 


PRNS I 
PAGE 


: 


2191212 
116A 


0399-4 
16a 


a; 
a. 





—1BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2310 8 O1SK FUNCTION TEST 
ODOUD O C283 
ODOE O 108C 
UDUF O 4C€28 0000 
UD11 1 7401 O6T6 
OD13 1 4C80 0676 
OD15 1 4€18 OD1B 
OD17 O C283 
UU018 0 1OOA 
0V19 1 4C90 0679 
VD1B 1 7401 0679 
OD1D 1 4C80 0679 
UD1F 1 6780 O69E 
OD21 O 7301 
YO22 1 DI00 O69F 
O024 O 73FF 
OD25 0 TOFC 
OD26 1 4€C80 0688 
0D28 0 C283 
O0D29 O EADA 
OD2A 0 D283 
OD2B 0 4232 
OD2C O SAOT 
Ov2D 1 7401 0646 
OD2F 1 6700 0647 
0D31 0 6500 1A09 
0D33 0 6922 
0D34 0 C035 
0D35 O DOLF 
0036 0 6103 
O0D37 O 4013 
0D38 0 7303 
0D39 0 71FF 
Ob3A 0 TOFC 
O0D3B 0 6500 3A05 
VATE O2 JAN66 OLJUL 66 
EC NO.o 415490 415490C 


GET SW FNC O 


LO 2 SWO-TB 
SLT 12 CK FOR LOCK ON ERROR 
CKLKL BN LL *-# BRANCH LF ON 
CKLK2 MDX L.  CKLKyl INCR RETURN 
BSC I CKLK EXIT SUB-ROUT INE 
a a a ag a at ar cS a ee Sat 
acta a reo eee a eas aa ee ewe ee er eae alas Ste aes 
CKPRE BZ CKPRA DON'T TEST IF ZERO 
LD 2 SWO-TB GET FNC SW 00 
SLA 10 BIT 10 
BNN I CKPRT EXIT IF NOT SET 
CKPRA MDX L_  CKPRT 1 BUMP RETURN 
B I CKPRT EXIT 
COREE CCECE CEE CEE CEE CEELE RCC CEECEE CE CECCE CECE CECE 
* 
* SUB-ROUTINE SETV 
& 
LOCC E CECE LECCE RE CECE RERERE ECE E CECE RC ERE E EC CE ERE E ES 
* 
**** ROUTINE CALL 
* 
x (A)_WORD TO BE PRESET IN I/O AREA 
+ BSI 2 SETV-TB 
cs sa a ao ea es ee 
* . 
SETVE LDX 13 COMA GET NO. OF WORDS TO BE SET 
MDX 31 INCR BY ONE 
SETVA STO 13 COMAE1 STORE WORD IN 1/0 AREA 
MDX 3-1 DECR COUNT 
B SETVA Loop 
B I SETV EXIT 
Sa a i a a re 
, aoa RE ne ee ee ee eee ee eee ee ee ee ee ee ee eee ee ee eee ee ee eee ee ee ee, ee ee a ee a ae ae ae 
LACE ECE CEE CECEE CECE CREE EERE CEE LER CCEA CCE ES 
x 
* PRINT SUMMARY TABLE 
4 
*#*&% ROUTINE CALL 
+ BSI 2 TEXIT-TB 
x 
**#** ALTERNATE CALL 
* BSC L DFTXT 
& 
* THIS ROUTINE WILL PRINT THE SUMMARY TABLE 
AND SET SW 15 IN FUNCTION ZERO. 
KLE KEK KEKE KK LEE E LEEK LE ELEC ELEC EEE EKEKKE 
te . 
x 
* TERMINATE DFT 
x 
DFTXT LO 2 SWO-TB. FUNCTION 00 
OR 2 K1-TB SET BIT 15 TO TERMINATE 
STO 2 SWO-TB * DFT PROGRAM 
BSI 2 STMSG-TB TERMINATE DFT 
DC /5A07 TERMINATE DFT 
PRSUM MDX LL PSSCTo9l INCR PASS COUNT 
" = 
LDX L3 SUMRY+1 SET POINTER 
LDX tl /1A09 FORM/MESSAGE ID 
STX LID | SET FOR STMSG CALL 
LD STMAD+1 GET ADDRESS OF STMSG RIN 
STO FRM+1 | SET FOR CALL 
LOX 13 SET LOOP COUNT 
PRLNI BSI PRSML GO PRINT A LINE 
MDX 33 | INCREMENT POINTER 
MDX 1-1 DECREMENT LOOP COUNT 
MD X PRLNL LOOP IF NOT THROUGH 
LOX Ll /3A05 MESSAGE ID 
LSNOV6G 15JUN67 15FEB68 010CT68 DIAPR69 O9MAY69 
419643 420317 © 420403 571005 271036 571036C 





C 
(>) 
> 


420 





PART NM. 


PAGF 


30922460 
30922470 
30922480 
30922490 
30922500 
30922510 
30922570 
30922530 
30922540 
30922550 
30922560 
30922570 
30922580 
30922590 
30922600 
30922610 
30922620 
30922630 
30922640 
30922650 
30922660 


30922670 | 


30922680 
30922690 
390922700 


30922710 


30922720 
30922730 
30922740 
30922750 
30922760 
30922770 
30922780 
30922790 
30922800 
30922810 
30922820 
30922830 
30922840 
30922850 
30922860 


30922870 


30922880 
30922890 


(30922900 


30922919 
30922920 
30922930 
30922940 
30922950 
30922960 
30922970 
30922980 
30922990 
30923000 
30923010 
30923020 
30923030 
30923049 
30923050 


30923060 


PART NO. 2191212 16M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
PAGE 17 | | 
2310 B DISK FUNCTION TEST 
30921780 0D3D 0 6918 STX 1 ID SET FOR CALL 
30921790 OU3E 0 400C BSI PRSML PRINT A LINE. 
30921800 OD3F 0 7302 MDX 3 2 BUMP POINTER 
30921810 0D40 0 6500 6A0C LOX tl /6A0C MESSAGE ID 
30921820 0042 0 6913 STX 1 ID SEY FOR CALL. 
39921830 UD43 0 6103 LDX 13 SET LOOP COUNTER 
30921840 0044 0 4C06 PRLN2 BSI PRSML PRINT A LINE 
30921850 0D45 0 7302 MOX 3 2 INCREMENT POINTER 
30921860 0D46 0 71FF MDX 1-1 DECREMENT LOOP COUNTER 
30921870 OD47 O TOFC MD X PRLN2 LOOP IF NOT THROUGH 
30921880 0048 0 4480 0164 BSI 1 END ELSE GO TO MONITOR END RTN 
30921890 0D4A 1 O05DC DC PID ADDRESS OF PROGRAM ID 
30921900 a | 
30921910 0D4B 0 0000 PRSML DC x— % ENTRY 
30921920 UL4C O C2EA LD 2 PSSCT-TB GET PASS COUNT 
30921930 0D4D 0 D2CC STO 2 MOD3-TB SET IN MSG 
30921940 OD4E 0 C300 LD 3 0 GET MODIFIER WORD 
30921950 OD4F 0 D2CD STO 2 MOD4—-TB SET IN MSG 
30921960 0050 0 C301 LD 31 GET MODIFIER 
30921970 0D51 0 D2CE STO 2 MOD5—TB SET IN MSG 
30921980 O0D52 0 C302 LD 3 2 GET MODIFIER 
30921990 0D53 0 D2CF STO 2 MOD6-TB SET IN MSG 
30922000 0054 1 4400 068E FRM BSI LL STMSG GO PRINT LINE 
30922010 vD56 0 0000 ID pc #— & FORM/MSG ID 
30922020 OD57 O COFD LD FRMEL SET NO PID-MID----PRINT 
30922030 UD58 0 EAB9 OR 2 8000-TB 
30922040 uv59 G DOFB STO FRME1 
30922050 OU5A 1 7401 0D56 MDX L ID9l INCREMENT MSG ID 
30922960 005C 1 4C80 0D48 BSC I PRSML EXIT 
30922070 * 
30922080 EK KKK KK KKK KKK KKK KE KEKE EK KK KEKE KLEE EEK EEK EKK KK 
30922090 + | 
30922100 * INCREMENT AN ENTRY IN THE SUMMARY. 
30922110 x 
30922120 TO CCECERLECEECLEECEEEREEEEEEREEEEL CER EE EE EEEEECE EEC 
30922130 * IX L IS THE POSITION IN THE SUMMARY 
30922140 x TABLE TO BE INCREMENTED. IF THE 
30922150 ix COUNT EXCEEDS 9999, THE COUNTER IS 
30922160 * RESET TO ZERO SO THAT A MODULO 10,000 
30922170 * IS SIMULATED. THIS IS TO RELIEVE 
30922180 * PRINTOUT PROBLEMS. 
30922190 x* | 
30922200 OD5E 1 C700 0646 COUNE LD L3 SUMRY GET PROPER COUNTER 
30922210 OD60 0 820A | A 2 K1-TB ADD DONE 
30922220 | i 
30922230 UD61 1 D700 0646 COUNA STO L3 SUMRY STORE 
30922240 UD63 0 92E9 S 2 KLOTH-TB SUBTRACT 10,000. THIS WIL 
30922250 & * BE MEANINGLESS ON LOOP. 
30922260 0D64 1 4CAO 067F BNZ I COUNT EXIT IF NOT 10,000 
30922270 0066 O 7OFA B COQUNA ELSE LOOP 
30922280 * 
30922290 #—~———-—-—- ----- ~~ +--+ ~- ++ -- --~ ++ +--+ ~--+---------- 
30922300 OC ECEEEECECEEEE EERE CECE EEE E ECACC OER CEE CECE EERE CEE 
30922310 * | 
30922320 * SUB-ROUTINE STMSG 
30922330 * 
30922340  COCCC EECCA CE CECEEEEEE ECE ECEE EERE EEE ER EEE EEE ERELE EC 
30922350 x 
30922360 * COMMON MESSAGE SETUP RTN 
30922370 * 
309223380 * THIS ROUTINE WILL BUILD THE 
30922390 i MESSAGE DESIRED AND CALL RTN 
30922400 * PRINT TO PRINT THE MESSAGE. 
30922410 * 3 
30922420 kee ROUTINE CALL 
30922430 * 
30922440 * BSI 2 STMSG-TB 
30922450 * DC MSG ID 
PROG ID 0309-4 DATE O2JAN66 O1JUL66 L5NCV66 I15JUN67 15FEB68 O1L0CT68 OTAPR69 OIMAY69 
PAGE 17 EL NUe 415490 415490C 419643 317 420403 571005 °571036 571036C 


30923079 
30923080 
30923990 
30923100 
30923110 
30923120 
30923130 


PROG ID 


PAGE 


ALIVLAI2 
}TA 


0309-4 
LTA 














S 


TBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2310 B DISK FUNCTION TEST 


VATE 


ct 


NU. 


o~ 


es 


QD67 O 691C 

0D68 0 6B1F 
OD69 1 6580. 068E 
OD6B 0 C1FF 

OD6C 0 E289 
OD6D O D2C7 

OD6E O 10A0 

OD6F 0 C100 

OD70 O 1808 

GD7L O 1808 

OD72 O D2C5 

0073 O 1010 

0074 O 108C 

0075 0 DOOA 

OD76 O 1083 

OD77 0 D2C9 

OD78 1 7401 068E 
OD7TA O C2F5 ~ 
OD7B 1. 4€20 0083 
QU7D 0 6301 

OD7E O C2DB 

OL7F 0 6500 0000 
O0b81 1 4080 0D88 
0083. 0 6500 0000 
OD85 1 6600 065C 
0U87 0 6700 0000 
0U89 1 4C80 068E 
UZJAN66 O1JUL66 
415490  415490C 


/ 


MSG ID _ FMMM (WHERE) 


x 
* F _ FORM NUMBER 
* MMM _ MESSAGE ID. | 
* a 
**£X ALTERNATE CALL USED 
* BSI Lt STMSG+/8000 
* DC MSG ID 
* 
* THE ALTERNATE CALL WILL PRINT. THE MESSAGE 
ce AS AN ADDITIONAL LINE WHERE PID—-MID-RID-RAD 
* ARE NOT PRINTED. 
* 
Kt a Ha 
* FORM MOD MOD MOD MOD MOD MOD MOD * 
* NO. 1 2 3 4 5 6 7 * 
Mm a ft a a + 
* 0 FILE# DSW HEX HEX * 
TR th a ann Fa ha tan Ha 
* 1 FILE# DSW DEC DEC DEC DEC * 
*—-—-—-——— $———--— t--- -—- $———— — $—--— —— - $$ -- 4+----- +----— * 
* 2 FILE# DSW DEC DEC DEC * 
Km et a $a te $——--— $—-~--— $-----—* 
* 3 FILE# DSW DEC DEC | * 
En fe Fe Fr rn Farr tar n Fenrnn ton n  & 
x 4 FILE# DSW DEC * 
a a he a a an a tt 
* 5 FILE# DSW ad & 
Wm a ha a an a an a 
* 6 FILE# OSW DEC HE X HEX * 
X—— oe et +----- $a - +----- +—----- * 
* 7 FILE# DSW CYL OOHS' #WDS * 
Km $$ tH 
* 8 FILE# DSW HE X HEX HEX HEX * 
*—~———-— +—— -—-- t -- - —- + -- -—- - - - -- - +--+ -- - -- + - 
* 9 FILE# DSW HE X 
a a a a a a a i es Sa Ss a a el 
* = 
STMSE STX 1 STMSX#1L SAVE IX 1 
STX 3 STMSX*#5 SAVE 1X3 
STMAD LDX I1 STMSG GET CALL ADRS 
LD 1-1 * 
AND 2 H8000-TB SAVE BIT O . 
STO 2 MSGID-TB STORE FOR LOG CALL 
SLT 32 CLEAR AQ 
LD 1 0 | GET FORM NUJBER 
RTE 24 % 
SRA 8 GET MSG ID 
STG 2 MSGO-TB SAVE FOR LATER 
SLA 16 CLEAR A-REG 
SLT 12 GET FORM NUMBER TO A-REG 
STO STMSA+1 SAVE FOR INDEXING 
SLT 3 GET TYPE MSG INDICATOR 
STO 2 ADOR2-TB SAVE FOR LATER TEST 
MDX &t STMSGosl INCR RETURN 
* 
LD 2 PRSW-TB GET PRINTER SWITCH 
BNZ STMSX EXIT IF SW IS NON-ZERO 
* 
LDX 31 SET CONV CTR 
LO 2 K2-TB GET MOD WD CT 
STMSA LDX Ll *-* 
B Il FRMTB 
* 
x 
STMSX LOX Ll *-* RESTORE 
LDX L2 TB SET UP TABLE POINTER 
LOX L3 *-* RESTORE 1X 
B I STMSG EXIT 
LSNOV66 15JUN67 15FEB68 O10CT68 OIAPR69 O9MAY69 
419643 420317 420403 571005 571036 571036C 
aN pe _ v “ TOR at 
Cm eS ee 
Z z ‘ ee ee 


PART NO. 2191212 


PAGE 


30923140 
30923150 
30923160 
30923170 


30923180 


30923190 
30923200 
30923210 
30923220 
30923230 
30923240 
30923250 
30923260 
30923270 
30923280 
30923290 
30923300 
30923310 
30923320 
30923330 
30923340 
30923350 
30923360 
30923370 
30923380 
30923390 
30923400 


18 


30923410. 


30923420 


30923430. 


30923440 
30923450 
30923460 
30923470 
30923480 
30923490 


30923500 


30923510 
390923520 
3092 3530 
30923540 
30923550 
30923560 
30923570 
30923580 
30923590 
30923600 
30923610 
30923620 
30923630 
30923640 
30923650 
30923660 
30923670 
30923680 
30923690 
30923700 
30923710 
30923720 
30923730 
30923749 
30923750 
30923760 
30923770 
30923780 
30923790 
30923800 
30923810 


PROG ID 


PAGE 


0309-4 
TR 


\ 


I8M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


2310 B DISK FUNCTION TEST 


DATE 
ti NU. 


O0D8B 1 0095 
obec 1 0097 
OD8D 1 0D98 
OD8E 1 0D99 
OD8F 1 OD9A 
0690 1 OD9C 
OD91 1 ODAS 
0092 1 ODA8 
0093 1 ODB6 
0b94 1 ODB7 
0b95 0 82DB 
0096 0 7005 
0D97 0 82DA 
O0bD98 0 82DA 
0099 0 82DA 
OD9A 0 82DA 
OD9B 0 6306 
Ob9C O D2D1 
QOD9D 1 6580 062D 
OU9F O CABB 
QUAO O 1010 
ODA1 0 11C0 
ODA2 0 EACT 
ODA3 O D2CT 
ODA4 0 7019 
ObA5 O 82DC 
ODA6 0 6302 
ODAT 0 T0F4 
ODA8 O C205 
ODA9 O 1803 
ODAA 0 4037 
UUAB 0 C2CC 
ODAC O C205 
ODAD 0 E2DE | 
ODAE O 1882 
ODAF 0 1002 
00B0 0 1082 
UDB1 O D2CD 
O2JAN66  O1JUL66 
415490 415490C 


* : ans 3 
Ha — 
* FORM TABLE 
. 
FRMTB DC FORMO ADRS OF RITN FORM O 
DC FORML aac 
DC FORM2 2 
DC FORM3 3 
DC FORMG 4 
DC FORMS = 5 
DC FORM6 6 
DC FORMT 7 
DC FORMB 8 
DC FORMS 9 
* 
* FORM IS 0 
e 
FORMO A 2 K2-TB INCR MOD CNT 
B FORMS COMMON ROUTINE 
* 
*x FORM IS 1 
* 
FORM1 A 2 K1-TB INCR MOD CNT 
x : , 
* FORM IS 2 
x . 
FORM2 A 2 K1-TB INCR MOD CNT 
* 
*  - FORM ITS 3 
* | | 
FORM3 A 2 K1-TB INCR MOD CNT. 
-d 
* FORM IS 4 
* : | 
FORM4 A 2 K1-TS8 INCR MOD CNT 
LDX 3 6 SET CCNVERSION CTR 
* 
* FORM IS 5 
* - COMMGN ROUTINE 
* 
FORMS STO 2 BNTMP-TB SAVE IN TEMP STORAGE 
LDX Il BNTMP SET CDUNT IN IXl 
LoD 2 TERM-TB SET AQ TO FOXES 
SLA 16 CLEAR A REGISTER 
SLC 1 O SET BITS FGR MODIFIERS 
OR 2 MSGID-TB GET BIT O 
STO 2 MSGID-TB SET IN TABLE 
B PRINT PRINT 
x 
% FORM IS 6 
x 
FORM6 A 2 K3-TB INCR MOD CNTR 
i1DXx ae a SET CONVERSION CNTR 
B FORMS 
* 
* FORM IS 7 
* 
FORM? LD 2 IDS#8-TB GET PRESENT SECTOR 
SRA 3 SAVE CYLINDER NUMBER ONLY 
BSI BNDEC CONVERT YQ DECIMAL 
STO 2 MOD3-TB SET FOR PRINTFTING 
LD 2 IDS#B-TB GET PRESENT SECTOR ID 
AND 2 K7-TB SAVE SECTOR ONLY . 
SRT 2 -SET .SECTOR COUNT IN Q 
SLA 2 CLEAR TwO BITS 
SLT 2 MOVE. BACK SECTOR CNT 
STO 2 MOD4-TB SET FOR PRINTING 
LSNOV66 LSJUNGT LSFEB68 OLOCT68 OTAPRE69 OIMAY69 
419643 420317 420493 571005 571036 571036C 
> oe 7 is 2 sie 
oo Cy Poe = eo 
4 es ae ee — ae ze asee i 


PART NO. 


PAGE 


30923820 
30923830 
30923840 
30923850 
30923860 
30923870 
30923880 
30923890 
30923990 
30923910 
30923920 
30923930 
30923940 


30923950 | 


30923960 
30923970 
30923980 
30923990 
30924000 
30924010 
30924020 
30924030 
30924040 
30924050 
30924060 
30924070 
30924080 
30924090 
30924100 
30924110 
30924120 
30924130 
30924140 
30924150 
30924160 
30924170 
30924180 
30924190 
30924200 
30924210 
30924220 
30924230 
30924240 
30924250 
30924260 
30924270 
309242 80 
30924290 
30924300 
30924310 
30924329 
30924330 
30924340 
30924350 
30924360 
30924370 
30924380 
30924390 
30924400 
30924410 
30924420 
30924430 
30924440 
30924450 
30924460 
30924470 
30924429 
30924490 
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PAGE 
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a \ af A 
| 
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Se 


2191212 


184 


0300-4 
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2310 B DISK FUNCTION TEST 2310 B DISK FUNCTION TEST 


NEXT SIGNIF. DIGIT 











ODB2 O C2FF LD 2 LNGTH-TB GET READ LENGTH 30924500 ODEA O AAE3 D HUNDR-TB 30925180 
0Db3 0 402E BSI BNDEC CONVERT TO DECIMAL 30924510 OVEB O 1008 SLA 8 POSITION 30925190 
ODB4 0 D2CE STO 2 MOD5—-TB SET IN PRINT MOD 30924520 ODEC O EABE OR SNXIO-TB COMBINE IN HEX WORD 30925200 
ODB5 O C2DA LD 2 K1-TB SET WORD CNT 30924530 ODED O D2BE STO SNXIO-TB  =SAVE | 30925210 
* FALL THRU TO GET WRD CNT_5 30924540 ODEE O 1008 SLA B CLEAR A 30925220 
* 30924550 OBEF O AAEO D TEN-TB NEXT SIGNIF. DIGIT 30925230 
* FORM IS 8 30924560 ODFO O 108C SLT 12 COMBINE LAST TWO DIGITS 30925240 
* | 30924570 UDF1 O 180C SRA 12 * 30925250 
OLB6 O 82DC FORM8 A 2 K3-TB BUMP MSG WD COUNT 30924580 ODF2 O 1084 SLT 4 * 30925260 
* | : 30924590 ODF3 0 EABE OR SNXIO-TB COMBINE IN HEX WORD 30925270 
* FORM IS 9 30924600 ODF4 1 4C80 ODE2 BSC BNDEC EXIT WITH WORD IN A REG. 30925280 
* 30924610 * 30925290 
ODB7? O 82DA FORMS A 2 K1-TB INCR MOD CNT 30924620 Mi ann ae a ee a nn en ee nn 30925309 
ODB8 O 70E3 B FORMS COMMON ROUTINE 30924630 OUF6 1 OE24 AALPH DC ALPAO 30925310 
| ¥en nn en 30924640 ODFT 1 0E38 DC ALPAL 30925320 
oe Brn a + + = 30924650 ODF8 1 OE41 DC ALPA2 30925330 
OOB9 1:C700 0627 MSGCl LD £3 MOD3-1 GET MODIFIER 30924660 ODF9 1 OE49 DC ALPA3 30925340 
ODBB 0 4026 BSI BNDEC CONVERT TO DECIMAL 30924670 ODFA 1 OE54 DC ALPAS 30925350 
ODBC 1 D700 0627 STO L3 MOD3-1 SET IN MOOIFIER 30924680 ODFB 1 OESC DC ALPA5 30925360 
ODBE 0 73FF PRINT MDX 3 -1l DECR CONVERSION CTR 30924690 ODFC 1 OF69° DC ALPA6 30925370 © 
ODBF O 70F9 MDX MSGC1 LOOP 30924700 ODFD 1 OET4 DC ALPAT 30925380. 
ODCO 1 6780 0621 PRINB LDX 13 MSGO GET MSG ID NUMBER 30924710 UDFE 1 OETE DC ALPA8 30925390 © 
O0C2.0 C2C5 LD. 2 MSGO-TB GET SAME TO A-REG 30924720 | ODFF 1 OE8B DC ALPAQ 30925400 
ObC3 0 4O0L1E BSI BNDEC CONVERT TO DECIMAL 30924730 OEFO00 1 OESC DC ALPAA 30925410. 
OoDC4% O D2C5 STO 2 MSGO-TB SET FOR MSG ID 30924740 OEO1 1 OEA7 DC ALPAB 30925420 © 
opC5 0 C2c9 LD 2 ADDR2-TB GET MSG TYPE INDICATOR 30924750 OEO02 1 OEB2 DC ALPAC 30925430 
ODC6 O E2DE AND 2 K7-TB SAVE BITS 13-15 30924760 OEO3-1 OEBC pc ALPAD 30925440 
OOC7 O F2DE EOR 2 K7-TB (NO MESSAGES WITH F) 30924770 OE04 1 OEC9 DC ALPAE 30925450 
ODC8 1 4C18 ODDS BZ PRINA BRANCH FOR ERROR MESSAGE’  : 30924780 VEO5 O C000 EALPH DC o) 30925460 
ODCA 1 C700 ODF6 LD L3 AALPH GET ALPHA ADDRESS 30924790 VE06 1 OEDT DC ALPEL 30925470 
oocc O 02C9 STO 2 ADDR2-TB SET ALPHA ADDRS FOR LOG 30924800 OEU7 1 OEE3 Oc ALPE2 30925480 
OO0CD 0 C283 LD 2 SWO-TB GET SW FNC 0 30924810 OE08 1 OEEA DC ALPE3 30925490 
ODCE-0 1000 SLA 13 BIT 13-BYPASS ALL LOGS 30924820 OEO9 1 OEF2 DC ALPE4 30925500. 
ODCF 1 4C28 0D83 BN STMSX EXIT IF SET 30924830 OEOA 1 OEFE DC. ALPES 30925510. 
- | | * . 7 | 30924840 QEOB 1 OFOB DC - ALPE6 30925520 
ODD1 O 4480 0163 BSI I LOG MONITOR LOG CALL 30924850 QEOC 1 OF18 Dc ALPET 30925530. 
ODD3 1 0621 DC MSGO ADRS MSG © 30924860 O£O0D 1 OF27 DC ALPE8 30925540 
ODD4 0 TOAE : B STMSX EXIT PRINT ROUTINE 30924870. OEOE 1 0F34 DC ALPE 30925550 
ee oF * | 30924880 OLOF 1 OF42 DC ALPEA 30925560 
ObDD5 1 C700 OE05 PRINA LD L3 EALPH GET ALPHA ADDRESS 30924890 QE10 1 OF50 DC ALPEB 30925570 
ODD? 0 De2c9 STO 2 ADDR2-TB SET ALPHA ADDRS FOR ERROR 30924900 Or1l 1 OFSE DC ALPEC 30925580 
ODD8 0 4480 0162 BSI I ERROR MONITOR ERROR CALL 30924910 VE12 1 OF66 DC ALPED 30925590 
ODDA 1 0621. DC MS GO ADRS MSG 30924920 OEL3 1 OF73 DC ALPEE 30925600 
ODDB 1 ODDD -. DC. PRLP LOOP RETURN 30924930 O14 1 OF 84 DC ALPEF 30925610 
ODDC O 70A6. B STMSX EXIT 30924940 OE15 1 OF94 DC ALPFO 30925629 
3 * 30924950 O&16 1 OFA2 DC ALPF1 30925639 
* LOOP ON ERROR RETURN 30924960 OEL? 1 OFAF DC AL PF2 30925640 
. * 7 a .30924970 O£18 1 OFCO DC ALPF3 30925659 
ODDD O C281 PRLP LD 2 RID-TB GET PRESENT ROUTINE NUMBER 30924980 O£19 1 OFC9 DC ALPF4 30925660 
ODDE 1, 4C€18 0869 BZ PRECN IF ZERO, GO TO PRE-CONTROL 30924990 OE1A 1 OFD2 DC ALPF5 30925670 
ODEO 1 4€00 O8CF B tL CNTLD ELSE LOOP SAME ROUTINE 30925000 0E1B 1 OFD6 DC ALPF6 30925680 
ye , ¥en ne + 30925010 OEIC 1 GF66 DC ALPFT 30925690 
* 30925920 QJE1D 1 OFDE OC ALPF8 30925700 
* CONVERT A POSITIVE NUMBER IN THE 30925030 QE1E 1 OFET7 DC ALPF9 30925710 
* RANGE FROM 0-9999 TO IT*S DECI- 30925040 | : * 30925729 
* MAL EQUIVALENT. 30925050 OL1LF O ALPHO EQU * 30925730 
* 30925960 VE1LF 0004 TYPE eFILE DSW. 30925740 
* ENTER ROUTINE WITH THE NUMBER 30925070 VE23 O FFFF DC /FFFF . 30925750 
* IN THE A REGISTER. EXIT WITH 30925980 OE24 0 ALPAO EQU * 30925760 
* THE CONVERTED NUMBER IN THE A REG. 30925090 0c24 0009 TYPE « CPU CYCLE TIME _. 30925770 
ee a * ji es 30925100 0&2D 0 C000 CPUTO DC Sat CPU TIME ~ X: 100 30925780 
ODE2 0 0000 BNDEC DC +—* ENTRY POINT 30925110 OE2ZE 0009 TYPE é 2310 DFT START. 30925790 
ODE3 1 4CA8 ODE2 BN I BNDEC EXIT IF NEGATIVE 30925120 OE37 O FFFF DC /FFFF 30925800 
ODE5 0 189C — SRT 16 co SAOTO-Q 30925130 OE38 O- ALPAL EQU * | 30925810 
ODE6 O AAE8 OD 2 THOUS-TB MOST SIGNIF. DIGIT 30925140 OE38 0008 «TYPE - DSK NOT INIT. 30925820 
ODET O 100C SLA 12 POSITION DIGIT 30925150 OE40 O FFFF DC /FFFF 30925830 
ODE8 O D2BE STO 2 SNXIQ-TB- = SAVE 30925160 O0&41 0 ALPA2 EQU eS ae 30925840 
ODES O 1004 | SLA 4 CLEAR A REG 30925170 OE41 0007 TYPE ° INVLD RTN#. 39925850 
DATE O2JAN66 OLJUL66 LSNOV66 IL5JUN67 15FEB68 O10CT68 OIAPR69 OIMAY69 PROG ID 0309-4 DATE O2JAN66 O1JUL66 15NOV66 15JUN67 15FEB68 OLOCT68 OIAPR69 O9MAY69 PROG ID 0309-4 
EC NO. 415490 415490C 419643 420317 420403 571005 571036 571036C PAGE 19 EC NU. 415490 415490C 419643 420317 420403 571005 571036 571036C PAGE LOA 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


2310 B DISK FUNCTION TEST 


OE48 0 

0E49 0° 
0E49 0010 
OE53 O FFFF 
0E54 0 

QE54 0007 
OE5B 0 FFFF 
OE5C 0 
OE5C 0012 
OE68 O FFFF 
OE69 0 

0£E69 0010 
OE73 0 FFFF 
OET4 0 

0E74 0009 
OE7D O FFFF 
OETE O 
OETE 0012 
OE8A O FFFF 
OE8B 0 

OE8B 0016 
OE9B O FFFF 
OESC 0 

O£E9C 0010 
OEA6 O FFFF 
OEAT 0 

OEA7 0010 
O£B1 O FFFF 
OEB2 0 

O£B2 0009 
OEBB O FFFF 
OEBC 0 

OEBC 0012 
OEC8 O FFFF 
OEC9 0 

OEC9 0013 
OED6 O FFFF 
OEDT 0 

OED? 0011 
OEE2 O FFFF 
OEE3 0 
OEE3 0006 
OEE O FFFF 
OEEA 0 

OEEA 0co7 
OEF1 O FFFF 
OEF2 0 

OEF2 0011 
OEFD O FFFF 
OEFE 0 
OEFE 0012 
OFOA O FFFF 
OFOB O 

OFOB 0012 
OF17 0 FFFF 
OF18 0 
OF18 0014 
OF26 O FFFF 
OF27 0 

OF27 0012 
OF33 0 FFFF 
OF 34 0 

OF34 0013 
OF41 O FFFF 
OF42 0 

OF42 0013 
OF4F O FFFF 
OF50 0 

U2 JANG6 
415490 


FFFF 


O1JUL 66 
415490C 


ALPA3 
ALPA4 
ALPAS 
ALPA6 
ALPAT 
ALPAB 
ALPAQ 
ALPAA 
ALPAB 
ALPAC 
ALPAD 
ALPAE 
ALPE1 
ALPE2 
ALPE3 


ALPE4S 


ALPES. 


ALPE6 


ALPET7 


ALPES 


ALPES 


ALPEA 


ALPEB 


DC 


EQU 
TY PE 


EQU 
TYPE 


EQU 
TYPE 


EQU 


TYPE | 


EQU 
TYPE 


EQU 


TYPE 


EQU 
TYPE 
DC 

EQU 
TY PE 


£ QU 
TYPE 


EQU 
TYPE 


EQU 
TYPE 
DC 

E QU 
TY PE 
DC 

EQU 
TY PE 


EQU 
TYPE 
DC 
EQU 
TYPE 


EQU 


TY PE 


EQU 
TYPE 


EQU 
TYPE 


EQU 
TYPE 


EQU 
TYPE 


EQU 
TY PE 


EQU 
TYPE 


EQU 


L5NOV66 
419643 


15 JUN67 
420317 


‘FOR THE 1130 SYSTEM 


/FFFF 
, oe se 
- RECOVERED RD ERR. 


/FEFF . 


x . 
- HRD CMP ERR. 
/FFFF 

- PASS #WDS WRIN IN SECT. 
/FFFF 

* 


» RECOVERED SK ERR. 
/FFFF 
x 


- OFT TERMINATED. 
/FFFF 
* 


.SEEK TIMING IN PROGRESS. 
/FFFF 

* 
- PASS SKS SFT HRD 7-LINE SMRY. 
/EFFF . 

* 

« PASS RDS SFT HRD. 

/FFFF 

x 


- PASS WRTS SFT HRD. 
/FEFF 
e 


« PASS SK-RNDM WDS. 
/FFFF 
* 


¢ PASS WRT-RNDM WDS/RTNOY. 
/FFFF 

* 

/FFFF - , 

* . 

e LAST IO0CC 
/FFFF 

& 

e EXTRA INT. 
/FFFF 

* 

° DSK NOT RDY. 
/EFFF , 

* 


LOST INT. 


- LAST IOCC OSW WRONG. 
/FFFF 
* . 


» LAST IOCC DSW SK ERR. 
/F EFF 
* 


- LAST IOCC DSW RD ERR. 
/FFFF 
* 


- LAST IOCC HRD DSW RD ERR. 
/FFFF a 

* 

- LAST IOCC OSW-WRT ERR. 
/FFFF 

Ag | 

- FROM S/B_ WAS SEEK ERR. 
/FFFF | 
* 

. CYL# OOHS #wWDS 
/FRFF 

* 


CMP ERR. 


15FEB68 
420403 


O10CT68 OIAPR69 O9MAYE9 
371005 571036 571036C 


ae >) .) > i: 2 2 Ca a 
| i : 
ey hua ‘ Say OS anes a a a . ee ) i : 
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PAGE 


30925860 
30925870 
30925880 
30925890 
30925900 
30925910 
30925920 
30925930 
30925940 
30925950 
30925960 
30925970 
30925980 
30925990 
30926000 
30926010 
30926020 
30926030 
30926040 
30926050 
30926060 
30926070 
30926080 
30926090 
30926100 
30926110 
30926120 
30926130 
30926140 
30926150 
30926160 
30926170 
30926180 
30926190 
30926200 
30926210 
30926220 
30926230 
30926240 
30926250 
30926260 
30926270 
30926280 
30926290 
30926300 
30926310 
30926320 
30926330 
30926340 
30926350 
30926360 
30926370 
30926380 
30926390 
30926400 
30926410 
30926420 
30926430 
30926440 
30926450 
30926460 
30926470 
30926480 
30926490 
30926500 
30926510 
30926520 
30926530 


PROG ID 
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20 


0309-4 
29 


-_ * = we Eo 
| | 
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DATE O2JAN66 


18M MAINTENANCE DIAGNOSTIC PROGRAM. 


2310 & DISK FUNCTION TEST 


OF50. 0013 


OF5D O FFFF 
OF5E O 
OF5E 0007 
OF65 O FFFF 
OF66 0. 


OF66 0012 
OF72 O FFFF 
OF73 0 
OF73 0016 
OF83 0 FFFF 
OF 84 0 

OF84 0015 
OF93 O FFFF 
OF94 0 

OF94 0013 
OFAL O FFFF 


OFA2 0 
OFA2 0012 
OF AE O FFFF 
OFAF 0 
OFAF 0016 
OFBF O FFFF 
“OFCO 0 
OFCO 0008 
OFC8 O FFFF 
OFC9 0 
OFC9 0008 
OFD1 0 FFFF 
OFD2 0 
OFD2 0003 
OFD5 O FFFF 
OFD6 0 
OFD6 0007 
GFDD O FFFF 
OF 66 0 
OFDE 0 
OFDE 0008 
OFE6 O FFFF 
OFET 0 


OFET 0018 
OFF9 0 FFFF 


OFFA 0 


OFFA O5F3 


FOR THE 1130 SYSTEM 


‘TYPE 


ALPEC 


ALPED 


DC 
EQU 
TY PE 
DC 
EQU 


_ TYPE 


ALPEE 
ALPEF 
ALPFO 
ALPF1 
ALPF2 
ALPF3 
ALPF4 
ALPFS5 
ALPF6 


ALPFT 
ALPF8 


ALPF9 


PEND 


wip GSE ECEECE ECE ECECEECCECEECEEEEECEEECEEECEEECE CECE ECLECE CS 


DC 
EQU 
TYPE 
DC 
EQU 
TYPE 
DC 
EQU 
TY PE 
pc 
EQU 
TYPE 
DC 
EQU 
TYPE 
DC 
EQu 
TYPE 
DC 
EQU 
TYPE 
DC 
EQU 
TYPE 
DC 
EQU 
TYPE 
DC 
EQU 
EQU 
TYPE 
DC 
EQU 
TYPE 
DC 


EQU 


END 


» CYL# OOHS #WDS 
/FFFF 
* 


OVERREAD. 


- WRITE ERROR. 
/FEFF 

* 

. CYL# 
/FFEF 

* 

» LAST IOCC 
/FFFF 

4 

« LAST IOCC 
/FEFF 

* 


HOME BIT WRONG. 
NO DSW ERR/WRT 400. 
NO DSW ERR/RD 370. 


e WDCNT SECT WD CNT WRONG. 
/FFFF 

. 

« WRT 400 WROTE NEXT SECT. 
/FFFF 

* 

LAST IOCC #TMS 
/FFFF 

* 

‘ SECT CNTR BAD. 
/FFFF 

* 

- 8 CYLINDER IDS. 
/FEFF 

x 

- #ERS. 

/FFFF 

os 


RDCK XFRD DATA. 


- WO S/B WAS. 
/PFFF 

ALPED 

x 


- SK/HOME BIT ERR. 
/FFFF 

x 

- MAX MIN AVG INCR 
/FFFF 


* LAST PROGRAM ADRS 


BEG INITIAL XFER ADDRESS 


NO STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 


cEC NUe 415490 


O1JUL 66 
415490C 


-15NOQV66 
419643 


15 JUN67 
420317 


15FEB68 
420403 


St Awe? 


SK TIME (MS). 


O10CT68 OI1APR69 OSMAY69 
571005 571036 571036C 


=~ / ia 7 o ae Ue ot see a ETO 
| | | | | : 
Pa \ \ me ; . © ie ‘ \ 

it te SSG SQ ae i Se at rg Se Soe - = - 3h e 
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30926540 
30926550 
30926560 
30926570 
30926580 
30926590 
30926600 
30926610 
30926620 
30926630 
30926640 
30926650 
30926660 
30926670 
30926680 
30926690 
30926700 
30926710 
30926720 
30926730 
30926740 
30926750 
30926760 
30926770 
30926780 
30926790 
30926800 
30926810 
309268 20 
30926830 
30926840 
30926850 
30926860 
30926870 
30926880 
30926890 
30926900 
30926910 
30926920 
30926930 
30926940 
30926950 
30926960 
30926970 
30926980 
30926990 
30927000 
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1BM MAINTENANCE OLAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191212 18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191712 
: | PAGE 21 | PAGE 214 
2310 8B DISK FUNCTION TEST 2310 B DISK FUNCTION TEST 
AALPH ODF6 ODCA CMN3 0957 O95E 
ADCMA 0674 OBEF OCDT CMP OC4B O8FR OC1L2 0C34 OC7F 0C81 
ADDRS 0168 | : CMPB O0C83 OC55 OC88 OC9C OCAF 0CB3 OCB9 
ALDDRL 0624 | | CMPB1l O0C94 OCA6 
ADDR2 0625 OD77 OCCS5 ODCC ODD7 CMPB2 CC9F O0C90 
ADIL2 0671 0826 CMPB3 GCA9 0C99 
ADINT 0672 083A OAF9 CMPB4 OCAB OC97 OCA8 
ADIN2 0673 OAD2 3 : CMPB5 OCAD OC9E 
ADPCN C675 O85A CMPB6 OCB3 O0C93 
ALPAA OQOE9C OEO0O | CMPEX OC81 OC7D 
ALPAB OEA? OEOL CMPTM 0668 O8FA OCOO 0C51 0C56 
ALPAC OEB2 OE02 CMPX OC7C OCT4 
ALPAD OEBC 0E03 CMPL’ 0OC59 OC6l 
ALPAE OEG9 OE04 CMP2 CC5D 0C58 OCBE 
ALPAQ CE24 ODF6 CMP2A OCA4 OCAL 
ALPAlL OE38 ODFT CMP3 CC6D O0C65 O0C69 
ALPA2Z O€41 ODF8 | CMP4 OC7B OC78 
ALPA3 O£49 ODF9 CMRND OCBS OC5A 
ALPAG 0E54 OODFA CMRN1L OCB8 OC5C 
ALPAS OES5C ODFB CMRTA 0973 0972 
ALPA6 QE69 ODFC | CMRTB O97A 0O96C 098A 
ALPAT OE74 ODFD CMRTD O0S81 0980 
ALPAS OETE ODFE CMRTG 0984 0979 
ALPAQ OE8B  ODFF CMRTL C969 0982 
ALPEA OF42 OEOF CMRT2 O95F 0953 
ALPEB OF50 0OE10 CNIA 0658 - 
ALPEC OF5SE OE1L CNTB 0631 O9A8 09B0 OA80 OA86 OAA2 OABB 
ALPED OF66 0OE12 r CNTL O8BT 0670 O8A5 0968 098D O09AB 0985 098B O9FE OALS 
ALPEE OF73 0€E13 | ) CNTLB O8C5 O8D1L 7 
ALPEF OF84 OE14 CNILD O8CF O8BD ODEO 
ALPE1L OED7T OE06 CNTLE O67C O90F 0925 094C 0983 O9AF O9F2 OAl11 OASC 
ALPE2 OQEE3  OE07 COMA O69E 0674 085D 0875 0893 089A OB9E 096A 0992 O9CD OALB8 OA2C 0A38B OATD 
ALPE3 OEEA OE08 OAIE OB12 0860 OB8D OBAC OBFD OC6F OCT1 OC86 OCBA OCDD OCEX OCFO 
ALPE4 OEF2 0QE09 : be 7 OD1F OD22 
ALPES OEFE OE£OA | z | | | CUUNA OD61l OD66 
ALPES OFOB OEOB | CUUNE OD5E 0680 
ALPET OF18 ‘OEOC CGUNT O67F 0987 O9F6 OB71. 0386 OBBB OC06 OC1B OC2A OC40 OCDF OCFE 0064 
ALPES OF27 OEOD CPUTO O€£2D 0841 084C 
ALPES OF34 ‘OEOE CPUT2 066A 0848 
ALPFO OF94 OE15 . _ CPUT3 O66B 0840 
ALPF1l OFA2 0OE£16 | : CYi . 0967 O95F 
ALPF2 OFAF OELT © DATA1L OS7L 0961 
ALPF3 OFCO 0£18 DATA2 0978 0962 
ALPF4 OFC9 0E19 . | DATA3 O97F 0963 | 
ALPF5 OFD2 OELA | DFTXT OD28 0692 088B O88E O8BA 
ALPF6 OFD6 OF1B | DSKMD 0611 0OB00 OBO1 OBEB 
ALPF7 OF66 OEIC DVA OSF7 0823 0861 OAFD 
ALPF8 OFDE OELD ~ DVAS O5E9 O82l 
ALPF9 OFET O€E1E | EALPH OE05 ODD5 : 
ALPHO OELF 0624 END 0164 OAC9 OD48 
AVG 0A03. OA16 0A34 0A36 OAST ERCT 065D OC4D 0C63 OC7C OC8D OCSE 
BADCY O5FO 089C 0B4D ERLCK 0166 
BDOCYL O80C OBBE OB97 OBA1 0BA3 OBBE OBC1 ERROR 0162 ODD8 
BEG  05F3 OFFB EKSK1L 0630 O98F 099B O9AA 
BEGIN. 0160 O5F3 FILE# 0626 0824 0827 
BNDEC ODE2 ODAA 0DB3 ODBB ODC3 ODE3 ODF4 FORMO 0095 OD8B 
BNIMP 062D OD9C OD9D FORM1 OD97 ODS8C 
CKLK 0676 OBD9 0C18 0C3B ODO9 OD11 OD13 FORM2 0098 ODS8D 
CKLKE ODOT 0677 FURM3 OD99 OD8E 
CKLKL ODOF 0008 | | FORM4 OD9A_ OD8F 
CKLK2 OD1L ODO7 | FURM5 OD9C 0D90 0D96 ODAT ODBB 
CKPRA OO018 ODL5 : FORM6 ODAS OD91 — : 
CKPRE O015 O67A | FORM7T ODA8 0D92 
CKPRT 0679 099D O0A62 0C30 OC68 OC77 OC92 OCAO OCC1 0019 OD1B ODID FURMB ODB6 .0093 
CKRD1 OBO04 OB11L | | FURM9 ODB7Y 0094 
CKRD3 OBOD 08610 FRM $0D54 0D35 OD57 0D59 
CMN1 0951 0959 FRMTB OD8B OD81 
CMN2 O94F 0958 | FRNSK 0652 0940 
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O9E8 


OC 3F 


O9F5 


0A19 
0818 
0D58 
0D3D 
OBF4 


0920 
0922 
oC 5D 
0672 


O5FF 
OAE2 
OAA1 


o8sco 
OC 4F 


OBOB 
oC 73 
0923 


OA64 
O88F 


0B 88 
OB6E 
OC 60 


093C 
0C94 


O9FO 


09C3 


0858 
O9AT7. 
Occc 
OAB9 
OAA8 
0D53 


L5NOV66 
419643 — 


0654 
FRN2 ©0656 | 
FSINO O9FB 09C4 
HCEDC 0868 0894 
 HESE5 0620 0957 
HRORD O64C 0C€29 
_HRDSK 0649 OBBA 
 HRDWR O064F 0986 
HUNDR 063F ODEA 
~  HXOC 0622 
H1313 O60E 094F 
H3000 060D 0806 
H8000 0615 OAQ91 
ID 0D56 0D33 
IDS#B 0661 OQA3C 
ILo C17A 
Iul 018A 
IL2 019A 0671 
AL3 CLAA 
144 OC1BA 
INCR1 093A O91A 
INCR2 ©93B O91C 
INDEX 065C 0C50 
INTR  O5F8 0602 
INTRB 0604 O5FA 
INTRC O5FE | 
INTSW O5F6 O5F9 
INT2 OAEO 0673 
INT2A OAE9 OAESB 
IPA 05E4 
KLP13 O66D OATF 
KM14 063D O84E 
Kl 0636 0864 
| OB91 
ODB7 
KLOTH 0645 OB8A9 
K123 0669 OD04 
K2 0637 OAIS 
K202 0640 O0A94 
K203 0641 0870 
K253 0642 ODO1l 
K27 OA1IF OAGE 
K3 0638 O8TA 
K331 0643 OA4B 
K36 063E 084F 
K370 OA26 OA1LT 
K4 0639 0A82 
K7 063A O8EF 
KB - 0638 OB3F 
LNGTH 065B OBFE 
LOG. 0163 ODD1 
LOGBY 0167 O82A 
LPA 05E3 
LPCNT 0032 O8CA 
LPRNT 0662 ° OC4E 
iP13 0014 066D 
LRN1 0655 0987 
LKN2 0657 0O9BC 
LRIN O8E3 O8D6 
LSTNO O9FA 09CO0 
MASK: O60F 0881 
MLSCF O5€5 O5FD 
MOD3 0628 0880 
tis ~~ QOC64 
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OAE7 
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O8EA 
OC7B 


OBLE 
ODTE 


OAG6GE 


O8AE 


0899 
OBD3 
OCAD 


0952 
OCCE 


Oo9C7 


0B33 
OA4A 
OCFA 
OAFO 
OAAC 


0OA49 


OD 5A 
oc OC 


océ6D 


0846 


09 1D 
oC 95 


0B 73 


0D95 


ODA5 


OD AD 
OC 07 
ODB2 


OA6B 


O9CA 
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0D4D 
oc C8 
OA AD 
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ODA8B ODAC 


0C84 0C96 OCA4 OCAE OCC9 


OAFF OB21 


0973 O9A0 
OC9B OCA5 


O09D8 OA37 0A44 OATB OAD7T OAE6 OB6B 
0D29 OD60 O0D97 0D98 0D99 ODIA ODBS 


0D63 


ODB6 


ODC6 ODC7 


O9D2 O9EF . 


OAAE OAB3 
ODAB ODB9 
OD4F ODB1 
OABE OACO OAEF OAF4 OBAE OBC3 OCC5 0051 ODB4 
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ODBF 
006D 
OD72 
0990 
OASA 
OBF8 
086F 
O5E8 
O5F5 
OCAA 
occ2 
OC 8C 
0888 
O87E 
0882 


O8A4 


0895 — 


0878 
08B3 
08B6 
0675 
0879 
ODC8 


ODA4 
OD3A 
0047 
ODDB 
093F 
0D37 
08C3 
0860 
op2D 
O85C 
OASF 
OAGA 
0993 
OBEE 
OCO5 
0c02 
OBED 
0683 
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ODA2 
ODCO 
OB4A 


OcOoc 
0B62 


OACB 
oc AC 


O8AF 


ODDE 
O8A8 


0942 
OD3E 


0974 
OD4C 
08C9 
0A 63 


0C15 


0C44 
0C14 


0C13_ 


0C10 
OC4A 
0C35 
OCOD 


OC31 
0890 
OC1E 
0c19 
0C26 
0C16 
085F 
OBFA 
0686 
0943 
093D 
09C1 


.083B 
0B40 


08D7 
O8E8 


O1LJUL66 
415490C 


MSGCl ODB9 
MSGID 0623 
MSGO 0621 
NCYL# 062F 
NLOOP OA6B 
NOCK 065A 
PCYL# 062E 
PEND OFFA 
PID- O5DC 
PNTB OCBF 
PNTBX OCD3 
PNIC OCC3 
PRECA 0874 
PKECB 0878 
PRECD 0887 
PRECE 0889 
PRECF O89E 
PRECG 0Q89A 
PRECJ O8A7 
PRECL OG8AB 
PRECM O8AF 
PRECN 0869 
PRECT O8A6 
PRINA ODD5 
PRINB ODCO 
PRINT ODBE 
PRLNL 0D37 
PRLN2 0OD44 
PRLP ODDD 
PRNSK 0653 
PRSML OD4B 
PRSUM OD2D 
PRSW 0651 
PSSCT 0646 
RAD O5DE 
RCKX  QA68 
RCKX1L  OA66 
RDOCHK 0612 
- RBCMP 0635 
-RDCNT 064A 
RDCPX OC2B 
RODSW. 0634 
RDEN OBEB 
XKDER1 .0C22 
RDER2 (0C2D 
RDER3  0C39 
RDER4 -0C45 
KONCK OC20. © 
RDR2A OC32. 
RDR2B : 0C34. 
READ | 0682 
READA. CCOT 
READB -0CO9 
READX CCLE 
RID O5DD 
RNDCK 0659 
RNDME ODO] 
RNDOM 0685 
RNDSK O5EE 
RNOWR O5EF 
-RQKB ~~ O1BC 
RETY 0168 | 
RTCNT 0664 — 
RTINER 0667 - 
RINSW 0165 
RTN1 O8E5 
RINLA OQ8E9 
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2310 B DISK FUNCTION TEST 2310 B DISK FUNCTION TEST 
RTNLB O8EC 0902 090A SEEKB OB6A 0865 
RIN1C O8ED O8F7 . SEEKD OB6C 0B69 
RTN1D O8F8 O8F4 - SEEKE OB6E 0870 
RTNLE 0908 O8E9 0905 SEEKF OB75 OB7C 
RTN1O 0989 O8E0 | | SEEKG OB80 0B78 OB7D 
RTN11 OS9FC O8E1 SETV 0688 OALA OCOA OCED 0D26 
RTN12 OA12 O8E2 | SETVA OD22 0D25 
RTN13 OA6C. O8E3 SETVE ODLF 0689 
RTN2 0919 08D8 SFTRD 0648 OC1LA 
RIN2P 0926 O9LE 0924 0938 SFISK 0648 OBB5 
RTIN2Q O92A 0937 SFTWR O64E OCFD 
RTN2R O92E 092C 0930 SKCNT 0647 OBT7O 
RTN2S 0930 092F SMLNG OO00C 0814 
RTN2T 0934 0927 092A 0932 SNRES 0613 0862 
RTN2U 0936 0935 : SNSTY O61E 0832 0834 0838 0843 0850 0851 OA78 
RTN3 093C O08D9 | SNXIOQ 061A 0863 O8AB OBO4 0816 0876 OB80 OB86 ODES ODEC ODED ODF3 
RIN3A 0942 0949 0948 SPRTN O8E4 O8DO O8E4 
RTIN3B 0944 0941 START 0161 060A 0866 0834 
RIN3C 0948 0946 0951 096B STMAD OD69 0D34 
RTN&4 094D O8DA | STML OB3E 0832 
RTINS 0954 08DB | STMLE 0B30 068C 
RTN6 095A O8DC STMLR 0B36 0830 0B31 OB3E 
RINT O95C O8DD STMLS 068B O82E OBOD 0B20 0B3C 0B75 
RTNS 0988 O8DE STMSA OD7F ODT75 
RTN8A O9A2 0999 099F STMSE OD67 O068F 
RIN8J 0980 0997 STMSG 068E 0608 086B 0884 0897 08D3 0988 O9AD O9FT 0A21 0A28 0A42 0A53 OATS 
RTNBL C990 09A3 | OAIC OAC4 OACE 0B09 OBLC 0827 0884 08BB3 OBC6 OBCC OBCF OBDB OBET 
RTN8M 099D 0982 OC1C 0C27 0C32 0C3D OC6A 0C79 OCA2 OCDO OCFB 0D2B 0D54 0D69 O0D78 
RTNSN O9A0 O99E 0D89 
RTNS 0983 O8DF STMSX 0D83 OD67 OD68 OD7B ODCF ODD4 ODDC 
RTNSA O9CD 09D1 STORG O911 O8F8 | 
RINSB O9D8 0O9D7 SUMRY 0646 0816 0986 O9F5 0B70 0BB5 OBBA OCO5 OCLA 0C29 OC3F OCDE OCFD OD2F 
RTN9C O9DD 09CB 7 | 7 OD5E OD61 
RTN9D O9DF O9F9 SVKB  O1BD | 
RTNSE O9E4 O9CC SWO OSDF 0857 0889 ODOD 0D17 0D28 OD2A ODCD 
RINOF O9E6 O9ES5 , | SW1. O5EQ O8BC 
RINSG O09F3 O9DE . SW2 O5ElL O81C 
RTN9SL O9C5 O9E7 SW3 O5E2 
RTRYA 0632 OCOB 0C24 0C36 041 TB 065C 0606 0608 081A O81C 0823 0826 0827 O82E 0834 083A 083D 0840 0843 
RTRYB 0633 O0C47 0844 0845 0846 0848 084E 084F 0850 0851 0855 0857 085A 0858 085C 
RTTBL O8D6 O8C2 O8C7 O8BDS OBES O85D 085F 0860 0861 0862 0863 0864 0865 0869 0868 086D O86F 0870 
RTLLA. OAO5 OA04 0871 0872 0875 0876 O87A 0880 0881 0884 0886 0889 O88C O88F 0893 
RT11B OAOA O9FF OA09 | 0897 0899 O8A9 OBAA O8AB O8AC OSAE 0887 O8B9 OB8BC O8BF O8CO OBC 
RTLIC  OAOF . OAOE : O8C9 O8CC O8CF 08D3 08D5 O8E6 O8EA O8EF O8F3 O8FA O90F 091D 0923 
RTLIL = OAOO OALO 0925 092D 0933 093D 093F 0940 0942 0943 0944 0947 094C 094F 0957 
RTL2A QA2C  0A32 | 0964 0966 0969 096A 096F 0973 0974 0976 0978 097D 0983 0985 0987 
RT1i2B OA33 OA2F _ 2 Ge | 0988 098B 098F 0990 0992 0993 0994 0998 099D O9A0 09Al 09A5 O9A6 
RT12D 0A49 OA3D 0A48 7 . O9AT O9AB 09A9 O9AA O9AD ODAF 0983 09B7 09B9 O9BC 09C1 09C5 O9CF 
RT12F OA5S5 OA4F. | 09D4 09D8 0909 O9DB O9EO O9E2 O9F2 09F4 O9F6 OSFT OOFC OAD] OAS 
RT1L2G OQA51 OA4C | | | OAOB OA11 OAl2 OALS OAL9 OAIA 0A21 OA2Z8 OAZE OA37 OA3B OA3ZC OAZF 
RT12t OAL? OA56 | OA40 OA42 0A44 0A45 OA4A 0A4B 0A51 0A53 OA5B OASC OASE 0A61 OAG2 
RT12Z OAIS | OA65 OA6C OAGE OA6F O0A70 OA7T1 OAT5 OATT OAT8 OATI OATA OATB OATC 
RT13A OATF OASF OA9T a OATF OA80 0A81 OAB2 0A83 OAB9 OABD 0AI1 0A94 0A95 DAIS OAIB OADC 
RT13B QA81l OA8S ~ _ OAA1 OAA2 OAA3 OAAG OAAB OAAC OAAD OAAE OAB3 OAB4 OABI OABE OABF 
RT13C OA9E OA9IA OACO OAC3 OACD OACE OAD2 OADS OAE1 OAE6 OAEC OAED OAEE OAEF OAFO 
RTL3D OAAL OACS a - OAF1 OAF2 OAF4 OAFS OAF9 OAFC OAFD OAFE OAFF 0800 0B01 0B04 0B0S 
RT1L3E OAA9 OABD | 0B06 OBO9 OBOB OBOC 080D 0812 0B15 0B16 OB1L7T 0818 0819 OBIC OBIE 
RT13F OAB4 OABO a 7 7 | | OB1F 0B20 0821 0B27 OB29 OB2A 0B2B OB2C OB2D 0833 0836 OB3F 0849 
RT13G OABA OAB6 | OB4A OB4C OB5E 0860 OB61 0862 OB6A OB6B OB6C OB6D OBGE OB6F OR71 
RT13H OAC9 OADO | | 7 7 7 , OB72 0B73 0B74 0B75 0B76 OB80 OBS8L 0B84 0B86 OB88 OBSD 0B91 0B99 
RTL34 OACC OA73 7 é | OBAA OBAB OBAC OBAE OBAF OBBO 0B83 OBB6 OBBB OBBC OBCO OBC3 OBCC 


RT13K 0A98 0A92 | | | | | | _ | OBCE OBCF 08D2 0BD3 0B8D9 OBDB OBDF OBEO OBE2 OBE3 OBET OBEB OBED 
RT9LO O9BE 0988 , | . | ; OBEE OBEF OBFO OBF2 OBF4 OBFB OBFA OBFD OBFE OCO00 0C06 OCO7 OCOB 


R12CK OA5D O0A20 OA27 OA41 OA52 OA66 O0A68 O0CO9 OCOA OCOB OCOC OCOF 0C14 0C15 OC18 0C1B OC1C OC27 OC2A OC2D. 


S#B Q065F OC52 0C54 0C57 OCB5 OCB7 OCBS8 OCBA OCBB OCBC OCBD OCCé ta, | | 7 -0C30 0C32 0C39 0C3A 0C3B 0C3D 0C40 0C41 0C4D OC4E OC4F 0C50 OC51 
SCTOR 0910 O8ED O8EE | | . oy ee | | : 2 OC52 0C53 0C54 0C56 0C57 0C59 OC5F 0C60 0C63 0C64 OC67 0C6B 0CT3 
SECTD 0906 0960 096E 0975 097C O9BE 0903 O9DA O9EL | | OC76 OC77 OC79 OC7B OC7C OC8D 0C92 0094 0C95 0C96 0C9B OC9F OCAD 
SEEK OB85E 0B57 OBB9 OBDA OCA2 OCA4 OCA5 OCAD OCAE OCB5 OCB6 OCB7 OCB8 OCBA OCBB OCBC OCRD 
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OCCO OCC1 OCC5 OCC8 OCD5 OCD7 OCDB OCDA OCDC OCDD OCDF OCE5 OCE9 . | OB2C OB6C 0872 OBFO 0C39 OCD8 OCF9. 
OCED OCEE OCEF OCFO OCFl OCF6 OCF9 OCFA OCFB OCFE 0001 0D04 ODOD | END OF ASSEMBLY > | 
0017 0D28 0D29 0D2A 0D2B OD4C 0D4D OD4F 0D51 0D53 0D58 OD60 0D63 | 
OD6C OD6D OD72 OD77 OD7A OD7E OD85 0D95 0097 0D98 0D99 OD9A OD9SC Bem ge ae nis re ge LAST PAGE ~~~---~-~— Se ae a al ee ay SS 
OD9F ODA2 ODA3 ODAS ODA8B ODAB ODAC ODAD ODB1 ODB2 ODB4 ODB5 ODB6 | | 
ODB7 ODC2 ODC4 ODC5 ODCS6 ODC7 ODCC ODCD ODDT ODDD ODE6 ODES ODEA 
ODEC ODED ODEF ODF3 | 

TBOSW 0627. 0605 O8AC OA71 OA98 0B05 OB17 OB2B OB81 

TEN 063C OA79 ODEF 

TERM O05E7 0969 OAA3 OB6A OBE2 OCO9 OCEF OD9F 

TEXIT 0691 0886 0899 08D5 0B29 OBBC OBCE 

THOUS 0644 OAEC OAF2 OAF5 ODE6 : 

TIMCN O66E OADB 

TIMIT OADL OA84 OAFT7 

TIMOT OADF OADF 

TIMSL O670 OATA OAEE OAF1 

TIM2  OAD7 OAD9 OADD 

TLP13 O66C OAT? 

TSTCC 0B58 0B56 

TSTCD OBS5SC 0859 

TSTCF OBSA O0B46 OB4F 085D 0B89 0890 0894 0B96 OB9C 

TYPE 061C 0845 

-TYRED 0614 O61C 

VERFA OB4C 0B52 

VERFB 0886 0863 OB82 OBCB 

VERFC OB88 0893 

VERFD CB96 OB9F 

VERFE OBAL OBA9 

VERFF OB8BD OB9A OBA6 

VERFG O8BE OBD1 

VERFH OBCF OBC5 

VERFI OBD2 OBB1 

VERFJ OBD9 OBD4 

VERFX OBDD 0841 OBDT7 

VERFY 0694 0889 O88C O8E6 092D 0933 0947 0966 098B 0983 0989 O9FC 0Al12 0B43 
OB47 OBE5 OBE9 

VRFYE OB3F 0695 

WOCNT O8F2 O8EB O8FE 0900 0909 

WRCNT 064D OCDE 

WRERR 0666 

WRITE 0697 O096F 09D4 OA01 OAOB OALC 0A45 OCEO OCE2 OCF2 OCF4 OCFT7 

WRLNG 0650 OA5B 7 

WRMOD 0610 OCD5 

WRRTY 0665 OBBT 

WRTA OCEE OCEA 

WRTE  OCFF OCET7 

WRIEN OCD5 0698 

XEQ 069A 0872 0876 OA7O 0B13 O082E OB6D OB7D OCOB OCEE 

XEQA OAFA 0828 OAD3~ | 

XEQB OB812 0802 0807 

XEQC OBLE OB1A OBTF 

XEQE OAF9 0698 

XEQLP 0820 0OB26 

XEQX OB2A  0B22 

XSKBK 0Q60C’ 086D OA6C OB5E 

ZCNT 0663 O8AA 08B1 OBOC OBOE OBIF 0B24 OB74 OBTA 

ZEPA 0814 O5E&4 

ZIPB 082A O82F 0836 

ZIPC 0830 082C 

ZIPD 0846 084A 

ZIPE O84F 0847 

ZIPF 0851 0853 

ZIPL 0816 0819 

ZLPA 0855 05E3 

ZLPB 0866 0858 | 

ZSNS 0616 0600 0601 0604 0844 0865 08F3 0998 OA40 OASE OAE1 OB2A OBE3 OCOF 
OCFS6 

ZXIO 0618 0871 O9A6 OAGF OATC 0AB1 0AS3 OAB89 OABD OAIG OADS OAFC OAFE 0815 
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RELOCATING OIAGNCSTIC LOADER ~- CARC VERSION 


2. OPERATING PROCEDURE 


3.1 TYPES CF PRCGRAWS TRAT WAV BE LCADEC. 


“HE 


RELCCATING CIAGNUSTIC LCADER IS DESIGNEC PRIMARILY FOR LOADING 


THE 113C DIAGNOSTIC PONITCR TE AND RELCCATABLE CIASNOSTIC PROGRAMS 
WHICH RUN UNDER CCANTROL OF MONITOR II. THE FCLLOWING TYPES OF PROGRAMS 
CAN ALSO BE LCACED USING THIS LCACER. 


le 


Ze 


3e 


3e2 TO 
le 


3. 


CATE 15KOV66 


~ OUL 
a gente sae “om. ve ee eos 7 
a i ¢ ‘ yo / \ oy, Peers fr 
| ! | 
tk. = co i a GS Ge a 
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16” MAINTENANCE CIAGNCSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191283 - 
) a a PAGE 1 . 
RELOCATING DIAGNOSTIC LOADER — CARD VERSION | 
TABLE UF CONTENTS 3 - 
PARAGRAPH | Oo - | 7 PAGE = 
le PLRPOSE. eo @e @e » e @ @ e ; @ e@ oe @ °. e i) & e > e e e e e e e @ e @ i a 
Ze RECUIREMENTS e e e e ee oe e e eo me e tad td @® e e e e i) | @ ° e e @ @ . @ 1 
(2e1 PROGRAM 2ECUIREPENTS 
202 ECULPMENT REQUIREMENTS 
36 USE PRCCECURE. as ee eo ° eoeeeee te gto e©eeee#°e%e ° e e lA : 
3.1 LOACING AND OPERATING | 
3.2 WAITS = | 
4. PRINTOUTS (NONE) | | ; | 
5. CCPRENTS © ‘ o ¢ @e @ e eo {-} tJ @ e se @ i -) e e @ ® e e e a @e > e @ o 2 | 
&ée APPENCIX (NONE) oP 
1. PURPOSE | ae. 
| | | | 
THE 1130 RELCCATING CIAGNCSTIC LEANER IS USED TN LOAD THE DIAGNOSTIC | : 
MOKITCR AND PROGRAMS WHICH RUN UNCER CCNTROL OF THE DIAGNOSTIC MONITOR. : 
THE LOACER ALSO LOADS NUN-WGNITOR PRUGRAMS WHOSE OBJECT DECKS ARE IN THE 
SAME FCRM AS THE CUTPUT CF THe 1130 ASSEMBLER (12-4 FORMAT). (THE 1130 ” 
RELOCATING DIAGNOSTIC LOADER WILL NUT LUAC PROGRAMS WHOSE OBJECT DECKS ARE 7 
CCMPATIBLE WITH THE 1130 BASIC DIAGNOSTIC LOADER) 
20 PRERECUISITES " 
2.1 PROGRAW PRERECUISIIES, | a : 
THIS LCADER USES THE FIRST 360 WORDS UF STORAGE. | 
202 + EGUIPPENS PRERECUISITES 2 
1. 1330 CPU” ~ ee ee | “ 
2. PRCGRAP LCAD FROM: CARD READER | s 
deoee | - 
- 
as, 
4 
| 
CATE  15K0V66 | a | PROG ID O3AA-e 


EC NC. 419643 | | PACE 1 


€C NOw 419643 


ANY ABSCLUTE PROGRAW ASS®MBLED IN THE STANDARD 1130 ASSEMBLY 
FORMAT SO LCAG &£S THAT PROGRAM COES NOT LOAD INTO ANY CORE 
LOCATICNS LCwER ThiaN /16C. 


ANY RELOCATAELE PRUGRAP. 
- 


A HEXICECIPAL CBRJECT DECK CR HEXIDECIMAL PATCH CARDS PUNCHED 

IN THE FORMAT fESCRIBED IN SECTICN 5.¢. SUCH PROGRAMS | 

CAN LCAC INTC CGRE LOCCATICNS 0-39 IF FRE PROGRAM IS LOADED 

WITH INTERRUPT CELAY ON. THIS ALLOWS INTERRUPT TRANSFER VECTORS 

TC BE SET CURING LCADING. ALSO INDEX REGISTERS ARE NOT USED BY THE 
HEX LCACER, THEKEFCRE, THESE MAY BE SET CURING LOADING. 

THIS FACILITY ALLOWS FARY PRESFATLY WKITTEN KEY IN RUUTINES TO BE 
PUNCHEE INTC CARDS AND LOADED WITH VERY LITILE MOCIFICATIGN To" 
THESE ROUTINES. | | 


LOAC A PROGRAPM- 


AT CARC REACCR 


A. DEPRESS KP20. PUSHBUTTON TS EJECT ANY CARDS LEFT IN MACHINE. 
Be PLACE RELOCATING LCADER IN FRONT OF CECK(S) T0 BE 

LCACED AND PLACE CARDS IN HCPPER. 
C. CEPRESS START PUSHSUTTON. READY INDICATOR SHOULD LIGHT. 


AT 1131 CONSCLE 


Ae StT DATA ENTRY SWITCHES AS. REQUIRED BY PROGRAM TO BE LOADED. 
Be DEPRESS RESET PUSHBLTTON. oo 
C. ODEPRESS PROGRAV LOAC PUSHBUTTON. (PROGRAM SHOULE LOAD) 


TRANSFER TO PROGRAP | | 
A. If THE PROGRAM GECK IS TERMINATED BY A BLANK CARD, 


THE LCANER WILL AUTOMATICALLY TRANSFER TO THE ACORESS 
ON THE END OF PROGRAM CARD. 


Be IF THERE IS NO BLANK CARD ON THE ENC OF THE DECK, THE 


CAPO REATER WILL GC NCT READY AND THE LOADER WILL STOP 
AT BAIT 3OFE. TO CCATINUE, PRESS READER START THEN 
1132 START. ; 


PROG 10 O3AA-e 
PAGE LA 


‘ : : : ! \ \ : } ( 
PRS he OO OO 








IEW MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTE® 


PAGE 


RELOCATING DIAGNOSTIC LGADER — CARE VERSION 


3-30¢@ PROGRAM HALTS 


4. PRINTCUTS 











HALT NO. DESCRIPTION zi RESTART : 
o(B REG). ‘ ACTION ; 
- 30Fl CHECK SUM ERROR ON FIRST » RELOAD 3 
- a, CARD OF LOADER : 
Se er | ; : 
« 30F2. « READER DSW ERROR WHEN ¢ RELOAD : 
a LOACING LOADER : : 
. 30F3 . CARD. 2 GF LCADER DIC NOT - RELOAD : 
-  .  e—. LOAD se | ‘ : 
. 30F4 CAN NCT CLEAR CORE - DUE TO : 
a Ss ERRGR IN ADCRESSING UPPER. ; 
se, ‘ CORE. . : 
. 3OFS. READER CHECK WHEN LOADING ~. NPRM THEN PLACE CARDS . 
: 4 MONITOR OR TEST PROGRAM = =. RUN OUT IN FRONT OF ‘ 
e e . e REMAINING DECK AND PRESS. 
eo. o . _ e START. ° 
2 30F6 . — PROGRAK GID NOT LOAD. » RELOAD : 
© 30F7 « CHECK SUM WHEN LOADING « RELOAD : 
e e@ PRCGRAM e : @ 
- 30F8 . READER NOT READY « MAKE READER READY ; 
@ e e e 











(NONE ) 


5S. COMMENTS 


5S.leee THE FOLLOWING ARE THE MAJCR ELEMENTS OF THE 1130 RELOCATING 


Solel 


Se1.2 


CATE 
EC NO. 


CLIAGNCSTIC LOADER— 


BCOTSTRAP RCUTINE -—- IS A SEY OF INSTRUCTIONS ENTERED INTO THE 
1130 CPU CORTROLLED BY THE IPL (INITIAL PROGRAM LOADER) MODE 
WHOSE FUNCTICN IS TO READ IN THE REWAINDER OF THE LOADER. 


READ RCUTINE -—— CHFCKS READER FCR PROPER STATUS, READS A CARD 
INTO LCCATION /0028 THRCUGH /0078, CHECKS FOR SATISFACTORY 
COMPLETION OF THE READ CPERATICON, ANC DETERMINES WHETHER THE 
CARD READ IS 4 BINARY CARD CR A HEXACECIMAL CARD. 


@INARY PACK ROUTINE —— COMPUTES CHECKSUM OF A BINARY CARD, WAITS 
IF CHECKSUM IS IN ERROR. 


MOVE RCUTIKE —- MOVES DATA FROM /0028 THROUGH /0050 TC PROPER CORE 
LOCATICN. CHECKS FOR EXCEEDING CORE SIZE. ADDS IN RELOCATION 
FACTOR WHEN RECUIRED. 


RELOCATASLE HEACEK ROUTINE -—— ENTERED WHEN A RELOCATABLE HEADER CARD 
IS FOUND. COMPUTES A RELCCATION FACTGR FOR PROGRAM THAT FOLLOWS. 


ABSOLUTE HEADER ROUTINE —— ENTERED WHEN AN ABSOLUTE HEADER CARD IS 
FOUND. ‘SETS RELOCATION FACTCR TO ZERO. 


TRANSFER RCUTINE —— ENTERED WHER 4 TRANSFER CARD IS FOUND. COMPUTES 
. THE NEXT 1CCATICN AVAILASLE FCR LOACING IF ANOTHER PROGRAM FOLLOWS. 
TRANSFERS CONTRCL TG THE CCCATICN SPECIFIED ON THE TRANSFER CARD. 


LENDV66 | | PROG ID 
419643 : | PAGE 


z = ee, sve 7 aa aa Pa re ia a x or Co 
, | | | | ) | 
NU ed : Sone : Sef) ; ew : ax a7 ‘ Ne a: : Rete 


PART NO~ 


2191283 
2 


O3AA-e 
2 


an | 
€ 


¢ 9 
’ 


Ce «9 


(9% 


seen wee 





om 
, 


: t 
LBP MAINTENANCE CIAGNOSTIC PRCGRAM FOR THE 1130 SYSTEM "PART NO. 2191263 
PAGE 
RELOCATING DIAGNOSTIC LOADER - CARD VERSION 
¥ 
521.9 HEX TO BINARY CCNVERSICA RCUTINE — CONVERTS A HEXADECIMAL CARD TO 3 
BINARY. ACCS IN RELOCATIGN FACTOR IF REQUIRED. | 
5.20068 CARD FCRMAT | 3 
THE FCLLChING CESCRIBES THE FORMAT CF CARDS WHICH CAN BE LOADED | | 
BY THE 113¢ RELCCATING CIAGNOSTIC LOADER. 3 
5.201 AUSCLUTE, “HEADER CARDS. HAVE AL PUNCH IN COLUMN 4.0 : 
5.202 RELCCATABLE HEADER CAKDS HAVE AO (ZERO) PUNCH IN COLUMN 4. 
5.263 NORMAL DATA CARCS. HAVE NO PUNCHES IN 20W 12 IN COLUMN 1. AN ADDRESS + 
IN ROhS 11 THROUGH 9 IN CCLUMN 1 AND ROWS 2 AND ROWS 12 THROUGH 5 OF 
COLUMN 3. A 12, G PUNCH IN COLUMN’ 4, A WORD COUNT IN ROWS 4 
THROUGH 9 CF COLUMN 4. A RELOCATION FIELD (WHICH MAY BE BLANK) IN ) 
COLUMN 5 THROUGH 12. CATA IN COLUMNS 13 THROUGH 72. A SEQUENCE 
NUMBER IN CCLUKNS 73-80. nae an ee 
5.2.4 BINARY TRAKSFER CARDS HAVE 1291190, 1 PUNCHES IN COLUMN 4 AND A 
WORD CCUNT OF ZERG ( NO PUNCHES IN kOWS 4 THROUGH 9 IN COLUMN 4). 
5.2.5 HEXADECIMAL TRANSFER CARDS HAVE A 12 PUNCH IN COLUMN 1, A TRANSFER 
ALDRESS IN COLUMN 2 THRCUGH 5 AND NC PUNCHES IN COLUMNS 6 AND 7. 
5.260 HEXADECIMAL DATA CarCS HAVE A 12 PUNCH IN COLUMN 1. THE ADDRESS 


AT WHICH THE UATA IS TG BE LOADED IN COLUMN 2 THROUGH 5. OATA IN COLUMNS 
6 THROUGH 75. OAIA IS GRUUPED 5 COLUMNS TO ONE CORE WORD. THE 

FIRST. CCLUPA CF E4CH GRCUP SPECIFIES WHETHER NR NOT THE GROUP REQUIRES 

A RELCCATICN FACTOR. If THE FIRST COLUMN OF A GROUP IS BLANK, A 
RCLCCATICN FACTER witt NOT oF ACCEF. IF THE FIRST COLUMN OF A GROUP 
CUNTAIAS AN R (1L2RS9 PUNCH) A RELOCATION FACTOR WILL BE ADDED TO THE 

THE FIELD. CLGACING OF THE CARD IS TERMINATED BY TWO SECUENTIAL 

BLANK COLUFNS. COLUMNS 76 ANG. 77 MUST BE BLANK. <A SECUENCE NUMBER 

MAY BE PUNCHED. IN COLUFNS 78-80. ALSO IF ONLY A PORTION OF THE CARD 0 
IS USED FUR Data AFTEK TWO BLANK COLUMNS ANY COMMENT MAY BE ADDED | 
10 WHE CARD. 


) 
) 

. y : 
| _ | | 
DATE 15NOV66 | PROG ID) = o3AA-e@ | 
EC NGw 419643 | PAGE 2A . 

> | 
ce | 
i a, 
- = . | ~ ; © ae 2. oF a ee oa » # “ ee - Foe 
| j l | 
Ree ay, oe 7 oe Sue ey ely 2 Say eA hee od eS eg 


e 
: 


= 


ey 


16M MAINTERANCE GIAGNDOSTIC PROGRAM FOR THE 1130 SYSTER 


RELOCATING. LOADER = 1462 


028C. 


0000 
0001 
0002. 
0003. 
0004 
0005 
0006 
0007 
0008 
0009 
000A 
0008 
O00C. 
oocD 
O00E 
OOOF. 
0010 
0011 
0012 


0013 
0014 
0015 
0016 
0017 
0018 
9019 
OU1A 
0018 
oo1c 
001D 
OO1E 
OO1F 


0020 
002} 
00z2 
0023 
0N24 


0025 
0026 
0027 
0028 
0029 
OG2A 
0026 
Ovec 
002D 


002E 
002F 


0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
DATE 


Eu NOe . 


@o oooooocedcsos e0o0006 eococoocooooooecso oocooocococooooooooeocoo 


cooecoeooo°o 


co2c. 
1802 


po2Za_. 
C023 


1801 
B02} 
F038 
0037 
C022 
1803 
DO20 > 
FO1D 
DOIC 
1e05 
FO32 
D030 
Col? 
DOFS6 
DOF9 


C016 
8000 
DO14 
CSFO 
800E 
DOFA 
F008 
4820 
TOFT 
Co00 
4820 
30F i 
7010 


8823 
0806 


4 8F8 | 


0603 
TOOE 


8039 
0001 
2808 
0020 
0003 
3629 
BE00 
0000 
4800 


FOI7 
30F2 


C8F5 
C8F6 
OB8F7 
FO11 
4820 
7011 
oSBrs 
COF4 
FOED.. 
OOF2 


O1CEC66 


419643 


ass 


ii OornG - /0000 a y se 
Bemm— 1130 LOADER CARD }) wow nn nn emer ee ne nme rene 
* LOAD WITH PROGRAM LOAD BUTTON . 
a _ ae oe 
START LOD ROIN+1 CORRECT 1/0 CONT. COMM, 
SRA 2 BY SHIFTING 
STO | ROING! 
to. STRC . CORRECT 1/70 CONTe COMM, | 
SRA 1 | BY SHIFTING AND 
sto STRD STORE WORD 
EOR STORE SET UP STORE LONG INST 
STO: STORE | PUT BACK INTO CORE. 
LD SENSE CORRECT 1/0 CONT. COMM. 
SRA 3 
STO ScNSE . 
EOR RESET 
STO RESET | : 
SRA - MAKE STORE LONG INST. 
EOR STORE+1 
STO STORE? 
Lo. INTAD 
sTO 4/0008 
: STO 4000C 
s 7 
SsTat co CRKSM FORM CHECK SUM ,THIS CARD 
a4 A * FROM 0015 THRU 00+D 
STO CHKSM ; 
LD STRT+] 
A Kn001 MODIFY ADD INSTRUCTION 
$sTO STRT41 a 
EOR CONa CHECK THAT LAST LOC.CHECKD 
86sc z SKIP WHEN DONE 
MDX STRT GO GET NEXT WORD 
LD CHKSM GET SUM OF 0013 THRU O04F 
BSC Z -- SEE ACC IS .0000 IF SO GO 
WAIT -15 CHECK S'! % ERROR . 
EWDCK MDX SRTRD START LL«DING 
- . 
INT OC 48823 
x70 RESET} SENSE AND RESET OSW 
Dc /48F8 | BOSC +=-2 
KOB03 OC /0803 
MDX © PACK 
& 
COMl 6A /0039 . 
Kx0001]1 Ot 470001 START RDeUSED AS CONSTANT 
STR OC 42808 41406 SET BY PROGe 
INTAO OC INT. RESET DSW CONTROL COMMAND 
RESET DC . /0003 4/1703 SET BY PROGRAM 
CHKSM DC 43829 SENSE DSW CONTROL COMMAND 
SENSE DC 48800 41700 SET BY PROGRAM 
RDIt OC 700CO READ IN LOCATIONS 941 
‘DE: .25 4800 41200 SET. BY PROGRAM 
=. . 
ERROR EOR KC800 RESTORE ACCe TO DSW 
: WAIT -14. -™SERR. DSW IM ACC. 
2 
SRTRD XIO STRDH-] START READ 
ete a! XID RESET-1 RESET DSw 
xto SENSE-1] ScNSE DSw FOR CRP 
PACK EOR «8003 BITS 0 + 14 + 15 ONLY 
BSC Z SKIP IF BITS O+14415 DNLY 
MOX CONT] CONTINUE DSw ANALYSIS 
x10 RDIN RD COLe ONE-t:ALF wORD 
LD RDIN 
EOR. KO0001 SWITCH READ IN AREA, EVEN 
$TO ROIN COLSe IN O ODD IN 1 





PART NO. 


PAGE 


34400000 
3AA00010 
3AA00020 
34400030 
3AA00040 
34400050 
34400060 
3AA00070 
34400080 
34A00090 
3AA00100 
34000110 
34409120 


3aA00130 | 


2A400140 
5860150 
3AA00160 
3AA00170 
3AA0G180 
34£00190 
3AA90200 
3AA00210 
3AA00220 
3AAG0230 
3AA00240 
3AA00250 
3A4A00260 
3AA00270 
3AA00280 
3AA00290 
3AA00300 
3AA00310 
34400320 
3AA0033C 
3AA00340 
34400350 
34400360 
3AA00370 
30400380 
34400390 
3AA00400 
3AA00410 
3AA00420 
3AA00430 
3AA00440 
3AA00450 
3AA00460 


3AA00470 


3AA00480 
34400490 
2AA00500 
34A00510 
34400520 
34400530 
3AA00540 


3AA00550 © 


3AA0056)) 
2AA00570 
3AA00580 
3AA00590 
3A4A00600 
34400610 
3AA00620 
3AA00630 
3AA00660 
3AA00650 
3AA0C660 
3AA00670 
PROC Iv 
PAGE 


2191283 
1. 


O3AA~2 
1 


6 @& 


40 
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” ‘ 
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0049 


— 
r ™, 
, 
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16M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


003A 
0038 
003C 
0030 
003E 
003F. 
0040 


0041 
0042 
0043 
0044 


0045 
0046 


0047 
0048 


OO4A 
0048 


004C 
004D 
OOKE 
OC4F 


0028 


0050 
OO4F 
00512 


0052 
0053 
005% 


0 
0 
i) 
0 
Q 
0055 0 
0057 0 
0059 0 
OO5SA O 
OOSB O 
oo5C 0 
0 

0 

0 

9 

0 

0 

0 


005D 
OOSE 
0060 
0062 
0063 
C064 
C065 
6067 0 


0068 00 


CQ6A 00 
006C .00 
OO6E OO 
0070 O 


0071 00 


DATE 


EC NGe 





©COOC CCOCCO 06. Cecoo ecooococe 


4820 
TOFS 
coc4é 
1808. 
FOC] 
C004 
OOFT 


- COFE 


80E3 
DOFC 
TOEC 


8003 
0800 


FOU3 
4620 
7002 


TET 


8000 


FOD6 
4820 
TODF 
30F3 


74000074 
7003 
6379 
6BEC 
681F 


T4FFO040 
T4FFOO7S 
70D6 
C048 
DOAC 
DOAF 


68A2 
6COOTFFF 
670001 5C 
7302 
10Aa0 
DBO2 
74000000 
TOFA 
C4O07FFF 
4C18007) 


6F00015F 


24000 15F 
30F4 


OF OOOLSF 
01DEC66 
419643 


s 


“RELOCATING LOADER - 1442 


Bsc , SKIP BOTH HALVES IN 
MDX = SRTRD+) GET 2ND HA! F WORD 
LD START] GET LAST 8 BITS” 
SRA 8 SHIFT IT 
-. + EOR _ START . GET FIRST 8 BITS 
STORE DC. . /C004 FIRST WORD OF STO L 
oC. /OOFT7 2ND WORD OF STORE LONG 
* STORE + STORE +] CHANGED BY PROGS TO STO L /U04F 
LO STORE+1. ee i ad 
A. KOGO)] _. MODIFY STORE ADDRESS 
STO STORE+1 | | 
MOX SRTRD) 
x8003 DC /8003 
KO800 OC /0800 | 
s ae eB. bs . 
CONT1 EOR K8000 CHECK FGR BITS 14415 ONLY 
- BSC SKIP BUSY AND NOT READY 
MDX CONT2 
MDX SRTRD+2 
K8000 DC 48000 
& , : 
CONT2 EOR KO803 CHECK FOR BIT 4 ONLY 
BSC SKIP END OF CARD 
MDX ERROR | : a 
WAIT -13 | **ERR IF .PRGM STOPS AT WAIT 
| 
KCSECKERSEKSCKEKKCKECKRKKKKKKKEKASCRKECRKKSKEKKKY CEE 
& ; a : . 
* CARD TWO STARTS HERE 
e ; 
s : : 
INPUT EQU /28 INPUT AREA 
g 
& NUTEceeces THIS SECTION OVERLAYVEDec ccvce 
i ; BY READING THE FIRST CARDee 
& OF FIRST PROGRAMccccccccece 
& ; 
ORG /004F 
MDX L FIRST 
MDX CNT 
ee. 
LDX 3 /79 
STX 3/40 
S TX FIRST 
& 
CNT MDX L 740-1 
a MDX -L COUNTe-2 
MDX /0030 GO START READ 
LO INTE SET INTERRUPT XFER 
STO /8. 
STO 7C 
= 
CORE STX | o 
STX tt /TFF.: 
LOX L3 END-4& 
CORE2 MDX 32. 
-. §LTt 32 
STO 3 2 
MOX -L /0000,0 SKIP IF ZERO CLEARED. 
MOX CORE2 
Lo tL /T7FFF CK IF LAST AOR CLEARED 
BSC tL CORE3s+- BR IF CLEARED 
STX 3 ULIM FETCH THE LAST ADR 
LOD tL ULI" A = BIT THAT FAILED 
W3CF& WAIT -12. CAM NOT CLEAR CORE 
& ADDRESSING BIT FAILED 
CORE3 STX LA ULIM SET THE CORE SIZE. 


PART NO. 


PAGE 


3AA00680 
34400690. 
~3aA00700 
3AA00710 


3AA00720 
3AA00730 


"3AA00740 


3AA00750. 


3AACOT6O 


3AA00770 
34400780 
3AACO790 
3AA00800 
34400810 


34400820. 


34400830 
3AA00840 
3AA00850 
3AA00860 
3AA00870 
3AA00880 
3AA00890 
34400900 
34400910 
3AA00920 
34A00930 
3AA00940 
3AA00950 
3AA00960 
3AA00970 
3AA00980 
3AA00990 
3AA01000 
3AA01010 
3AA01020 
3AA01030 
3AA01040 
3AA01050 
3AA01060 
3AA01070 
3AA01080 
3AA010S9G 
3AA01100 
3AA01110 
3AA01120 
34A01130 
3AA01140 
3AA01150 
3AA01160 
3AA01170 
34A01180 
34401190 
3AA01200 
3AA01210 


— 34A01220 


34401230 
34A01240 
3AA01250 
3AA01260 
34401270 
38401280 
3AA01290 
34401300 
3AA01310 
3AA01320 
3AA0i330 
34401340 
3AA01350 


PROG ID 


PAGE 


2191281 
1A 


O3AA-2 
la 


Ke ee 3 ae ) 


4 


er 


oe ' 


ad 
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1B MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1136 SYSTEM 


RELOLATING LOADER = 1442 


0073 0 


0074 0 
0075 0 


0076 


0078 
0079 
0078 
oo7c 
0070 


OOT7TE 
OOTF 
0080 
0082 
0083 
0084 


oooooo o000 6 


0085 
0086 
0087 


So ooo 


0088 


0989 
OOBA 


008B 
oosc 
008D 
OOBE 


0090 
0091 
0093 
0094 
0096 
0097 
9099 
OO9A 
OO9C 


0090 
009E 
OO9F 
- 0040 
00Al 
0083 


OOA5 
OO0A6 
O0A6 
OOA7 
OOAB 
O0A9 
OOAA 
OOAB 
NQOAC 
~O00AD 


oooocoooo0 o09 23200000 oeoooooo0oooco cocoo oo 


DATE 


EC NO. 


Qo 


o 


oo 


700A 


0000 
0007 


os20) 
4C0+0156 
CO2A 
D300 
D32E 


C029 
1003 
4€280155 


C022 
0028 


DO2A 


v822 
4844 


30F8 
0821 


O81E 
4878 


0000 
0819 
FOIC 
4C18008C 


18CD 
4C040153 


1082 


4C040099 
1008 
4€10008C 
0812 
7401 00AC 
TOEC 


080A 


poo9 
cose 
1001 
4C5A0114 


-4C4000B3 


0028 
0000 
0088 
1700 
0v00 
1703 
0003 
1404 
0000 


12046 


O1DEC66 
419643 | 


MO X 
8 
FIRST OC 
COUNT OC 
& 


ORG 


RDCO 


soeS 
7 


/78 


GO LOAD PROGRAM 


SEAKSHEHSKSSEKE SSCS SESE SHS LTE SES KES SSSSTSSESSSS 

| 1442 LOADER 

VSFEKSCKRHKASCL VERSES SE SRSEKESKCEEKECKKKKSKEKSERALSSS 

* THIS LOADER READS DATA FROM A CARD AND STORES 
* THAT DATA IN LOCATIONS /40 TO /77 


Rewee EP ED HS PSD SO GH SP D1 & GD GD OD ED GD > SF OD OS CP GS COS OS OSE OE ES OSGOOD 


s 
LOAD xXI0 
BSC 
LO 
STO 
STO 
* 
RDCD LD 
SLA 
BSC 
RDCD] Lo 
Sto 
$sTo 
* 
XT0 
BOSC 
WAIT 
* 
x10 
& 
RDCD2 XIN 
BOSC 
3 
INTO OC 
RDCD3 xIO 
EOR 
BSC 
* 
RTE 
BSC 
SLT 
-BSC 
SLA 
BSC 
X:0 
MDX 
MDX 
s 
UPCOM XxIO 
$TOo 
Lo 
SLA 
BOSC 
BOSC 
s 
“ADRS OC 
BSS 
_ INTE DOC . 
SENSN OC: 
DOSw dC 
SENSR OC 
KOOO03 DC 
STRD) OC 
READ DC 
ugly, 2 oc 
s 
ae. ely 


a a 


SENSN-1] 
MLCDeE 
INTE 

0 

/3€ 


OSwW 


3 
FEED, +Z 
ADRS 
READ 
DATA 


SENSR=-} 
E 

-8 
STROL=-i 


SENSR=-1 
+-7 


--* 
SENSN-1 


KO0Q03 


RDCD3_9+- 


13 
W30F5eE 


2 
OPCOM,E 
11 
ROCD39- 
READ 
READ»+1 
RDCD2 


SENSR=-1 
DSW 
INPUT 

1 
HEX»Ct+= 
$B05 


‘INPUT 


INTO 


(11700 


coh 
41703 
40003 
114048 
Rok 

41204 


WAIT (3068) IF NOT 


SET INTERRUPT XFER 
XR3=MONITOR ILO 
CK LAST CARD Sw 


GO TO MONITOR 
SET INPUT ADRS 


IF ON 


SENSE DSW FOR READY 

SKIP IF READY 

READY 
START READ 

RESET DSW 

SERVICE CULUMN INTERRUPT 
SENSE OSW FOR READY 

LCOP UNTIL CHANGE IN DSW 


LOOK AT 
BR IF ON 


=RR IND 


BR IF OP COMPLETE 


BR IF NO INTRPT RESPONSE 
READ COLUMN 


_UPDATE READ IN AREA 


RESET OSw . 
SAVE DSW 


BR IF HEX PATCH CARD 


INTERRUPT TRANSFER ADDRS 
SENSE ~ NO RESET - 

OP COMPLETE DSw 

SENSE RESET 


START READ COMMAND 
READ ONE COL COMMAND 


PART NO. 


PAGE 


34401360 
34401370 
34401380 
34401390 
34401400 
3AA01410 
3AA01420 
3AA01430 
3AA01440 
34401450 
3AA01460 
34801470 
34801480 
3AA01490 
34401500 
3AA02510 
3AA01520 
3AA01530 
3AA01540 
34401550 
34401560 
34401570 


3AA01580 


3AA01590 
3AA01600 
3AA01610 
3AA01620 
3AA01630 
3AA01640 
34491650 
34A01660 
3AA01670 
34A01680 
34401690 
3AA01700 
34401710 
3AA01720 
3AA01730 
34401740 
3AA01750 
3AA01760 
3AA01770 
3AA01780 
24401790 
34401800 
34401810 
3AAG1820 
34401830 
34401840 
3AA01850 
3AA01860 
3AA01870 
3AA01880 
3AA01890 
34401900 
3AA01910 
34401920 
34401930 
3AA01940 
3AA01950 
34401960 
34401970 
3AA01980 
3AA01990 
34402000 
3AA02010 
34402020 
34402030 
PROG ID 
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O3AA-2 
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pa EN es SoS es tees 


J 
I RNP ORI ere gee eres 


‘ 
ae | 
ae CEPT 9 8 ay TORE 9 I ae. - TT 
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-o 


oo €@ 
cee meee a A EN AOR OS 


ee 


\ 
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aa ei EAN me niin Cos 
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16M MAINTENANCE DIAGNOSTIC PROGRAM 


neste ent ir niin eet sft Aen CN A etn sa dant ns Gh i A a6 A nh ara 


RELOCATING LOADER = 1442 


COAE 
OOAF 
O0B0 
00B1 
0082 


oooc © 


00B3 
OCB4 
0085 
OCB6 
0088 
0089 
OOBA 
OOBB 
OOBC 
0080 
OOBE 
OOBF 
00CO 
0001 
00C2 
00c3 
00C« 


0ocs 0 
00Ccé6 O 
O0oOcs O 
00oc9 0 
COCA 0 
Oocc O 
QOCcD O 


OOCF 
0ODO 


00D2 

00D3 
.00D4 
00D5 
0ODé&: 
‘OOD7. 
0008 


00D9 
CODA 


DATE 


cooooo ,veeoooocoooo°o 


20 COO0COCSO oo 


. © 


" O 


0 


0 


0 


© 


EC NOe 


000} 
0000 
1084 
1088 
108C 


6188 
6300 
&2FO 
C60000B83 
D004 
Ci7i 
18D0 
C170 
1804 
1080 
0328 
730) 
7103 
7201 
TGF3 
71021 
TOFO 


C12a 
4C180156 
E038 
9038 
4C180108 
9038 
4C180106 


Ci29 
4C1 8 00DE 


C030 
62CA 


-825E 


4802 
80L7 
720) 
TOFS 


80D4 
40290158 


O1DEC 66. 


419643 


a 
res, 
yy : 


ONE 
DATA 
SL 


s 


DC 
oc 
SLT 
SLT 
a) i 


cam eed a matte Mba Pad giant is ANN le Bai! ne ES 


Aanmelden Herm ie eee a ie Rennie mac 


FOR ThE 1130 SYSTEM 


12 


SECTEKSECSCSKCSSESSKKEECSEKESSSEAKESESSCESSISESESESESSTS 


CONVERT 


SSECKKEKSKKECKESSKSESSKGSSESEKCECKKECKEKERESCKECSESSTE 


* THIS RT PACKS BINARY DATA AND 


* 
SB05 


$396 
SBOT 


$810 


& 


LEAVES IT IN 


LOCATIONS 0028 = 0076. 


Seewaee Se ie ER SD GD SD SF ED SP SD GP SP GD ED OD EP ED OD OE OOD OO WSO a Oe @>- aw Gar oe 4 ap GD 


LOX 
LDX 
LOX 
LO 

STO 
LD 

RTE 
LO 

SRA 
SLT 
STO 
MOX 
MDX 
MDX 
MOX 
MDX 
MDX 


aed mo UW) Ww 


A) AS eb bo 


-7T2 

0 

-3 
SL¢3 
$810 


INPUT?+73_ 


16 
INPUT+72 
& 

re 
INPUT 

} 

1 : 

l 
S807 
l 
S$B06 


LD INPUT DATA 
LD REST OF WORD 


REQUIRED SHIFT SET HERE 
STO CONVERTED WORD 


CONVERT NEXT WORD 


SKIP WHEN FINISHED 


RKKAAKEKKRKKSKKKKRSKKCEKK KK KS HKKKKRESEKEKEKLK CH 


CHECK HEADER 

BRACES RSE KAKSKS SKK SKK SEK GSKEKA RRR HES 

* THIS RT CETERMINES WHETHER THE DATA CARD IS 

* 1) ABSOLUTE HDR CARD 2) RELOCATABLE HDR CARD 


tg Se > GP Gh Gh > GH O® GP Ub 6 &® & & CP Gh OD ED > oS a D en Gm am OD Om a> GF GP ow & ar > > > > a> eh a> Ge 


= 


a 


LO 


BSC 
AND 
S 
BSC 
Ss 
BSC 


L 


L 
L 


i 


INPUT+2 
MLCD9+— 
L820 
L825 
A3SHED,+— 
L825 
RLHEDet~ 


CK FORK HDR CARDS 
BR TO USER - BLANK CD 


BCH IF ABSOL HEAD CARD 


BCH IF RELOC HEAD CARD 


RKKKKKKKKKKKKKRKKKKSEKKKKKEKCKKKCKKKERSEKSKKKHKKKSE 


a. 


CHECK SUM 


REET OE EERE RESEARCHES RRR SRE 
THIS ROUTINE ADDS COLUMNS 0 = 72 

TO CHECK THAT THIS SUM PLUS THE CARD 
SEQUENCE NUMBER EQUALS ZERO eo | 


x Gp Gm GD ab GG ad eS ODS » SP EP EP SP DP > EP OP OD OP OD OP EP OP © ODS OE OS SHO DSOBDOOOE 


x 
® 
m 


CKSM 


LD 
BSC 


LD 
LDX 
1A 
BSC 
A 
MDX 
MDX 


L 


1 


INPUT#1 
CKEOP,+— 


—cotr 


INPUT+54 
C 


ce 
re 
CKSM) 


OWE 
CKSUM,Z 


LD CKECK SUM. 
SKIP CKSUM IF ZERO 


£DD WORDS 1 TO 54 


BR IF CK SUM ERR 


een ean ges ah ain wb nA oe 


PART NOs 


PAGE 


34402040 
34402050 
3aA02060 
34402670 
34402080 
34492090 
34402100 
36402110 
34402120 
34402230 
34402140 
34402150 
34402160 
34402170 
34402180 
34402190 
34402200 
3AA02210 
3AA02220 
34402230 
3AA02240 
34402250 
34402260 
34402270 
34402280 
34402290 
3AA02 300 
3A4A02310 
3402320 
3AA02 330 


. 34402340 


‘3AA02350 


3AA02 360 
3AA02 370 
3AAU2380 
3AA02390 
3AA02400 
34402410 
3AA02420 
3AA02430 
3AA02440 
34402450 
34402460 
3AA02470 
3AA02480 


2AA024°0 | 


34402500 
34A02510 
3AA02520 
3AA02530 
3AA02540 
34402550 
3AA02560 
3AA02570 
34402580 
3AAC2590 
3AA02600 
3AA02610 
3AA02620 
3AA02630 
3AA026¢40 
34402650 
3AA02660 
34402070 


'3AA02680 


3AA02490 
34402700 
34402710 
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1BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


RELOCATING LOADER = 1442 


ooDc O00 


OCDE 
cODF 
OOEO 
00E2 
OOE2 


oooecoo 


O0E% 
O0ES 
 00E6 
 O0ET? 


_oo0eo 


OOE9 
OOEA 
OOES 
OOEC 


Oo 


OOEE 


OOEF 
OOFC 
OOF 
OOF2 


© 


OOF4 
OOFS 
OOFS 
OOFS 
O0F4 
OOFB 


OOFC 
—90FD 
OOFE 
COFF 
0100 


0102 
0102 


0103 
(0104 
0105 


°° O©O060 Go soo6oods peal dia oo0oe 68 aoooe 


DATE | 
EC NO. 


74010103 


C1l2Aa 
1008 
1808 
D12Aa 
4C18010C 


(8128 


8077 
9078 
4C10015A 


C228 
8072 
DOOB 
66000028 


63F8 


C200 
18D0 
1082 
4C0401 02 
1810 
8232 


D5000000 . 


TSFFOOZA 
7001 
607 


7102 
7301 
TOF2 


7201 
-TOED 


CO58 


70F2 
0000 

OFOO 
0100 


OLDECGS . 


419643 


MDX L 
e 


CDCTsl 


ADD 1 TO CARD CT 


Sew ew Coes Cee ee We ee ewe eooeewoan ~=- ab Ge a» area PP GP OD CO OPS | 


* CHECK FOR END OF PROGRAM CARD 


Reweee Ce ew @O Owe oe ower we wrowaowes > an paren ew 2 aD Gh GP Gray Gn Gp 


® 
CKEOP LD 1 INPUT+42 GET WORD COUNT 

SLA 8 CLEAR CARD CODE 

SRA 8 , 

$To 1 INPUT+2 SAVE WORD COUNT 

BSC L EOP _+- EOP 'F WC = ZERO 
Beemer we ee eee ew me mw mee wm ee we we ew mee ewe - 
* CHECK FOR OVER CORE 
Sewe wo we ww oe ww ee eee cee woe ww www CE we ome we = ap on e ae 
S . a ak 

OA 1 INPUT SUM WC+STO ADDRS+RE1.0C 

A UPPER | 

S ULIM ee 

BSC LL OVCRe- BR IF OVER CORE 


3 


SHCREKTACAKLHKS CHSC SSEC SESSLER STEERS 


g 


RELOCATE 


AND STORE 


SMe ME A Me a Nm a a a 


* THIS RT PLACES 


DATA FIELDS INTO THE CORRECT 


a CORE LOCATIONS Afio ADDS IN A RELOCATION. 


* FACTOR IF REQUIRED. 


_ & 


iD i INPUT 
A UPPER 
STO STOR4+41 
LDX L2 INPUT+3 
__ 
STOR1 LDX 3 -& 
& 
LO 20 
RTE 1é 
_.STOR2 SUT 2 
BSC L STOR6,E 
gS 
SRA 16 
STOR3 A il INPUT+#9 
STOR STO LL} 2-4 
MOX LL INPUT4+2—e—1 
FID K STORS 
| LDX = RDCD 
& : 
STORS MDX 1 i 
ees |¥) 4 31 
MDX STGR2 
MDX 21 
MDX STOR 
STOR6 LD UPPER 
OX STOR3 
gy 
cocT oc tok 
LB20 oC /O0FA0 
ie vc 40100 


LO STORE ADORS 


RELOCATE STORE ADDRS 


XR2 = RELOCATION CODE ADDR 


XR3= REL BIT CNT 


LO NEXT RELOCATION CODE 


STS IN EXT REG 


BRING IN NEXT REL BIT 


BR IF Rt OCATE 


ADD NEXT WORD 


STO IN PROGRAK 
DECR WORD CRT 


SKIP WHEN HS = O 


FINISHED 


ADV WORD AND STO ADRS 


ADV REL BIT CRT 


ADV TO NXT RELOC WD 


LD RELOC FACTOR 
GO RELOC ADDRS 


L swetecetmad tesa ieee ercreieeste eens 


& 


HEADER AND EOP CARDS 


OG ee Oe i Pag ap Se eee See 


2 


* ‘THIS RT. HANDLES RELOCATABLE HOR CARDS. 


Boewmowen oman DS GD BOSD GD ED OP SP OD GD SP EP 0 OH By 4D Se CO EP BE ED EP > OD Cm GPS OD OP Ee CHER OO GD 


@ 


PART NO. 


PAGE 


3AA02720 
3AA02730 
3AA02740 
3AA02750 
3AA02T760 
3AA02770 
3AA02780 
3AA02790 
3AA02800 
3AA02810 
34A02820 
3AA02830 
3AA02840 


_ 34402850 
- 3AA02860 
-3AA02870 | 
3AA02880 
3AA02899 


3AA02900 
3AA02910 
3AA02920 
3AA02930 
3AA02940 
34402950 
3AA02960 
3AA02970 
3AA02980 
3AA02990 


_ BAA0 3000 
-3AA03010 


3AA03020 
34403030 


~3AA03040 
34403050 


3AA0 3060 
3AA03070 
3AA03080 
> AA03090 
3A4A03100 


3AA03110 


34403120 
3AA03130 


.. 34403140 
"24403150 


3A403160 
3A4A03170 


34403180 


3AA03190 
3AA0 3200 
3AA03210 
3A40 3220 
34403230 
3AA0 3240 
34403250 
3AA0 3260 
3AA03270 
3AA0 3280 
3AA03290 
34403300 
3AA03310 
34403320 
34403330 
3AA03340 


3AA03350 


3A40 3360 
3AA03370 
3AA0 33860 
34403390 
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( 
ie a 


0106 
0107 


010A 
0108 


OLA 
011C 


0125 


TBP MAINTENANCE DIAGNOSTIC PROLK AM 


‘ee: 


0108 
0109 


cooo.. 


010C 
010D 
O10E 
O10F 
0119 
0111 
0112 


“0114 0 


0215 00 
O117 6 


0118 OO 


0118 


0110 
OLLE 
O11F 
0120 
0121 
6123 


cCooooooco 
Qo : 


oo. 
oo 


0127 


0129 0 
O12A 00 


012C OO. 


Oi2e 00 
0130 9 
0131 0 


0132 0 
~ 0133 0 


0134 00 
0136 00 
0138.0. 


DATE 
EC NO. 


ooooo0o0o 


C055 


9056 


0054 
7102 
_69F8 


é07E 


. €128 


804F 


06D 


C128 


804C 
- 0001 


4000000 _ 


-p032. 
C48000AF 


D038 


T40ICGORF 


C032 


DO32 
1819 
1004 


~~ pe2c 
1820 


DO2E 
C480 00AF 
4C1B007E 


4100129 
7409014F 


+003 


4C180133 = 


7401 014F 


4C280132. 
1001 


TOFA 


coc 
€817 - 
7401 00AF 


T4FF 0) 4E 
TOES 





_ RELCCATING LOADER - 1442 


RLHED LD 


Ss 
s 


( 
eS 


ae 


NLOC 
RLBA 


ae aa y —, 
‘ rf i" ‘5. 
( \ 
‘ a ; 


FOR THE 1230 SYSTEM 


COMPUTE RELOC FACTOR 


od 
. ABHED $TO 
3 HDX 
STX 
LDXx 

& 


EOP LD 

: A 
STO 
LD 
A 
STO 


oa BSC 


UPPER 
11 
1 cncT 
ROCD 


1 INPUT 
UPPER 
NLOC 


1 INPUT?+3 


UPPER 
EOP]+4} 
L  —<* 


* THIS RT. HANDLES ABSOLUTE HOR CARDS. 


INITALIZE CARD COUNT 


SET NEXT AVAIL LOC 
LD TRANSFER ADDRS 


TRANSFER TO PROGRAM 


a abidea s cabe tense vs sues seesaessceacceeesedacs 
HEX DATA ROUTINE 


& 


RERKCREKKLEKKKCKKEKAKKECK SKA RKKKARK SCRE CKRE RES 


* THIS ROUTINE CONVERTS HEX CORRECTION 


* DATA TO BINARY AND STORES THE 


DATA. 


CLEAR STORE ADDRS 
OAD RELOCATION BIT 
STO RELOCATION BIT 
ADV TO NXT WORD 


CK FOR BLANK COLUAN 
FINISHED - LOAD NEXT CARD 


BR IF NOT A=-F 
ADD 9 FOR ALPHA 


ELIMINATE ZONE BITS 
XF+R ITF HEX CHAR 2 O 


XFER TF BIT IS FOUND 
PREPARE TO LK AT NEXT BIT 


LOAD BINARY BITS 
ADD TO PREVIOUS CRARS 


@ 
HEX sTG HE 22+] 
HEX? LD I DATA 
STO RLREQ 
> MDX LL DATAe) 
& 
& CONVERT HEX TO BINARY 
= 
HELO LD FOUR 
STO INDX12 
SRA 16 
HEY) SLA & 
STO. TEMP 
SRA 16 
STO ~ INDX2 
LB i DATA 
BSC t RDOCDe+- 
2 
BSC tL HELAeH- 
MDX L INDX269 
& 
HELIA SLA 3 
BSC L HE)4_9+- 
MDX L INDX201 
HE12 BSC LL HE13-+2 
SLA 1 
MDA HE12<-2 
s om 
HEILS LO INDX2 
HE1& OR TEMP 
MOX bL DATAe2 
MDX L INDXl =] 
MDX HE1Q 
& 


Bowne > Ue £8 OF OOOO OSes @ ESWC OOS OOS ODSee G&D ebee 52 eran aren aap 


CONVERTED WORD IN ck Aiea nel 


* FINISHED - 


PART NO.w 
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34403400 
3A4A03410 
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3AA03460 
3AA0 3499 
3AA03500 
34403510 
3AA03520 
3AA40 3530 
3AA03540 


' 3AA03550 


34403560 
3AA03570 
3AA03580 
3AA0 3590 
3AA03600 
3A4A0 3610 
3A4A03620 
3AA0 3630 
34A03640 
3AA0 3650 
3AA03660 
3AA0 3670 
34403680 
3AA03690 
34403700 
3AA03710 


3AA03720 


34403730 


219128) 
3A 


34403740 © 


34403750 
3AA03760 
3AA03770 
34403780 
34403790 
3AA03800 
34403810 
3AA03820 
3AA0 3830 
3AA03840 
34403850 
34A03860 
3AA0 3870 
3A4A03880 
34403890 
34403900 
34403910 
34403920 
34403930 
34A03940 
34A0 3950 
3kA0N3960 


34403970 | 


3AA03980 
34A0 39°90 
34404000 
34404010 
3AA04020 
34404030 
34A04040 
3AA04050 
3AA04060 
3AA04070 


PROG 10 


PAGE 


O3AA-2 
3A 














sev v 08 6 © @ ® 


wee 


so e« © w w& ww 


ar Va ar or ee 


ry 


a a | ) 
198M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 219128) ® 18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART WO. 2191261 
, . PAGE 4 7 . PAGE oA 
| =; 8 a | <5 7 
RELOCATING LOADER = 1442 RELOCATING LOADER —- 1442 
38 § 
s . 3AA04080 . CROSS REFERENCE LISTING 
0139 00 74000147 MDX HE22+1,0 SKIP IF STO ADRS 34404090 t 2 | : 
0:38 0 T7007 MDX HE22 BR IF DATA | 34404100 SYMBOL VALUE REFERENCES 
s | 3AA064110 : ABHED 0108 OOCA 
013c 0 8020 A . UPPER RELOC STO ADDRS 34A04120 i | ADRS OOAS 0082 
013°C 0 0009 STO HE22¢) | 34404130 COCT 0103 0002 ,00D0C eO10A 
O13E 00 C400002E LO. INPUT+6 LO NXT WORD 3AA04140 | CHKSM OO2A 0013,00)5,001C 
0140 00 4C980147 as HE2241—e+—= BR TO ADURS IF BLANK 3AA04150 tt § CKEOP OOQDE 0000 
Gi<2 0 S02 MDX HEXL CONV NXT WORD 3AA04169 CKSM1 0004 0008 
: * 3A4A04170 CKSUM 0158 OODA,0159 
0143 00 74000150 HE21 MDX RLREQsO SKIP IF NO RELOCATE 3AA04180 ‘a CNT 0055 0051 
0145 0 8017 A UPPER | : 3A4A04190 | CONT] 0047 0035 
0146 00 D40G0C00 HE22 STO s—B STORE DATA (3AA04200 oe: CONT2 004C 0049 
0148 00 74010147 MOX - HE224+191 ADV STO ADDRS 3AA06210 i - CON] 0025 0019 
014A 0 TOCA MDX HEX) CONV NXT WORD 3AA04220 CORE 005D 
% 3AA04230 COREZ 0062 0067 
s 3AA04240 | i CORE3 £0071 - 006A 
0148 0 OncEe TEMP OC a TEMP STORAGE 3AA04250 COUNT 0075 0057 | 
O14C coo00 BSS 0 3AA04260 ni DATA OOAF 0084,0115-01182612120134 
014C 0 0004 FOUR OC 4 3AA04270 i DSW OOA8 OO7E ,O09E 
014D © 1402 FDCD OC 11402 FEED CARD 3AA04280 a END 0160 0060 
O14E 0 0000 INDX1 DC + -& 3Aa04290 ENOCK daolF 
014F O 0o000 INDX2 DC t—e | 3AA04300 EOP O10C -‘O0E2 
0150 0 0000 RLREQ DC toe HEX RELOCATION BITS 3AA04310 EOP1 0112 0111 
9151 0 1000 Nop 3AA04320 | ERROR  OO02E 004E 
0152 0 1000 NOP 3AA06330 ] FOCD 0140 0155 | 
* 3AA04340 FEED 0155 0080 
0153 0 30F5 W30F5 WAIT -l1 1442 ERROR IND ON 34404350 FIRST 0074 004F .0054 
0154 0 60TE LDXx RDCOD TRY REREADING THE CARD 3AA04360 y! FOUR 014C OLIA 
* . 3AA04370 | HEX 0114 COAl 
0155 0 O@aFe FEED xI0 FOCD-1 FEED OUT LAST CARD 34A04380 1 HEX] 0115 01422014A 
| ° - 3AA06390 i HE10 OL1A 
FTRECTKSK RASH SL SSEKARARAASLARSAREKKARKEEREAAERERESRS 3AA04400 HE11 $$011D 0138 
@ MONITOR/LOADER INTERFACE 3AA04410 HELLA 0129 0125 
RKKSEKKKKSEEARAAKSEKEKSKAESSEKHSKAKKRS REKEKKEKKRERA 3AA04420 ; HE12 O12E 0131 
* THE FOLLOWING MUST BE LOCATED I' CORE 3AAC4430 . HE 13 0132 O12E 
* LOCATIONS /0156-/015F. 3AA046440 HE14 0133 Giza 
Pewee me me nnn en nnn oe en en re ene ne = 3AA04450 7 HE21 0143 0138 . | | 
& 3AA04460 © ; HE22 0146 0114,0139s013070140,0148 
0156 0 30F6 MLCD WAIT -10 PROGRAM SHOULD PLACE HERE 3AA04470 INDX1 O14E 0118,9136 
0157 0 TOFE MDX MLCD A XFER ON BLANK CARD © 3AA04480 ¥ INDX2 O14F 0120,0127,012C,0132 | | 
0158 0 30F7 CYSUM WAIT -9 CHECK SUM ERROR 3AA04490 INPUT 0028 OO9F »CTAS5 »00B9 » O0BB 2 QOBE » 00C 5, OOCF 0004, 00DE 2 OOEL » 
0159 0 TOFE DX CKSUM . e 3aA04500 | G0E4S,00E9,00EC »y OOF5,00F 8,010C,01L0F -013E 
0154 60 3000 OVCR WAIT EXCEEDED CORE SIZE 34A04510 YF INT - 0C20 0G28 | 
0158 O TOFE MDX OVCR oe 3AA04520 INTAD 0028 0010 
015C 0 0160 NLcoc oc 7320 NEXT AVAILA8LE STORAGE LOC 3AA04530 INTE OOA6 005A,.067B 
0150 0 0000 UPPER DC St RELOCATION FACTOR 34804540 ae INTO 0088 00A6 
015E © 0000 RLBA OC 0000 BASE ADDRESS 3AA04550 i KO000] 0026 0017,0038,0042 
015F 0001 ULIM BSS 2 | CORE SIZE 34404560 l. KO003 OOAA oosD 
REKKKSESKKRSEKEKSE KEKE KAKA CAERAERREKRESRERKSERENRSEEER = 30404570 { KC8&0G 0046 —O02E 
0160 0000 END BSS E 0O 3AA04580 K0803 0023 004C 
0100 oo7e END . LOAD 3AA04590 K8000 0048 0047 
| f K8003 0045 0033 
L820 0104 oocs 
| L625 0105 00C9,00CC 
a LOAD 0078 | 0160 
| MLCD =: 0156 007900C6,0157 
NLOC 015C 0106 ,010€ 
5 ONE OOaEe 0004,00D9 
OPCOM 00d9D 0094 
OVCR O15A 00E7,.0158 . 
5 PACK 0033 0024 | 
‘ RDCD OO7E 0073,00FB8,010B.012320154 
ROCD1 0082. | : 
2 > RDCD2 0689 009C ee a 3 
RDCD3 008C +  008E,0097 , 
, RDIN 002C 0000,0602,00360037»,0939 | : | 
: | - . = READ ooac 0083 40099s009A 4 
DATE  # O1CECES PROG 1D O3AA-2 DATE | O1DEC66 | PROG ID 03aAa-2 7 
EC NOe 4139643 ¥YAGE & EC NO. 419643. . . PAGE 4A 
| — 7 aoa" va » 2% 4 
$ 4 | 
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JBM MAINTENANCE DIAGNOSTIC PROGRAM FOR TRE 13306 SYSTEM 


RELOCATING LOADER —- 13442 


RESET 


RLBA 
RLHED 
KLREQ 
$805 
$606 
$807 
$B10 
SENSE 
SENSN 
SENSR 


SRTRD 
START 
STOKE 
STOR] 
STOR2 
STOR3 
STORS 
STORS5 
STOR6 
STRD 

STRO1 
STRT 

TEMP 

ULIM 

UPPER 
W30F4 
W20F5 


DATE 
EC NO. 


0029 
O15E 
0106 
0150 
00B3 
0B5 
OOB6 
008D 
0U28 
O0OAT 
OOAS 
90B0 
0030 
0000 
OO3F 
OOEE 
OOF 1 
NOFS 
OOF6 
OOFC 
0101 
Ou2T 
00AB 
0013 
0148 
015F 
015D 
0070 
0153 


O1DEC66 
419643 


000B.000C ,0021,0031 
0107 

0ocod 

0117,0143 

O0UA3 

ooce 

00c2 

0088 

0008,000A ,0032 
0078,008C 
0085,0089,009D 

00B6 

0O01F .,0038 ,0044,004A 
003C,003E 

0006 ,0007 ,OODE ,OOCF 0041 -0043 
0300 . 

OOFE 

0102 

OOEB 

OOFA 

OOF2 

0003-0005,0030 

0068 

001 ,0018,0018 
O11E.0133 
006C,005SE,0071,00E6 
O0E5,00EA.0101,6!08,010D0D,0110,913C,0145 


0091 


PART WO. 
PAGE 


PROG ID 
PAGE 


2191281 


O3AA=2 
bd 
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we 
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Sty 7 
t fi : : 
: 5 
oe A 
' B08 sh : 


i fOr oo foo, eis, ae a Fr. oe pee oA an 9 es oe _ he ; : ‘ 
= ( @ C @ | ' ( : ) \ ee. C | . A ; / fA / ay a. vo i ‘J a ee po st ene a 
eS 7 : a e ‘ ee See = - ; / ee 3 ey he * | he Lo ki is . er | on 2 Nee | ad Re 2 os QD ( LO 
si 
D2 3 
1BM MAINTENANCE DIAGNOSTIC PRUGRAM FOR THE 1130 SYSTEM PART NG. 2191284 $ 3 . IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NOw 2191284 
| PAGE 1 eo | | _ PAGE 1A 
RELOCATING DIAGNOSTIC LOADER = 2501 t = RELOCATING DIAGNOSTIC LOADER = 2501 . 
| t | 3. | | a 
ie & th, ABS) a ae Ree are gees 34800000 | oe 0033 0 0000 ; DOC 0 i a 2 ee oe 34800680 
o26c... . rahe ORG 0 | 3a800010_ 3 3 ; 003C 0 1000 sto. OC: ~~ -4109 _$TO t RODIN. . 3AB00690—y 
Be d-3e>., § . @ ~  SOUTSTRAP CARD #1 3800020 _- 0230 9 v000 4 AAD. 8 Oa Seer —_ 3AE00700 | 
0000 0 C037. START LD = =— PACK4#L—__s BOD ~ 34800030: | | ae 003 0 COF9 one RD PACKAR ee  BABOOTIO 
0001 O 180: SRA 00° i 7% 3AbQ0040.. 3 3 003F O sOFO . wo ONE er. nei cn tea oy 3AB00720 — 
0002 0 F038. EOR PACK | C4000 2 | 3A800050 | =. 0040 0 DOFA -$TO.. . EOR41 ... ae  BABOOT30°— 
0003 0 0033 STO PACK. C400 LD Lt 3AB00060 | ees 0041 0 80EE A ONE... > SAB00740 - 
000¢ 0 F037... EGR STO * 0400. . : 3AB800070 3 3 0042 0 ODOFS _.STa: PACK41. | 3A60G6750 
0005 0 0036 .. STO STO 0400 STO t 3a800080 7 . 0043 0 COF9 m4?) — $T0+1 3AB00760 
0006 0 F033 €OR EOR F400 = * 3A800090~—_- ee 0044 0 BOEB A ~ “ONE oe 3AB00770 
0007 O . DU32 sto EUR F400 EOR L 3A500100 3 3. 0045 0 DOFT - STO =—-—s- STO#2 3aB00T80.. 
0008 0. 1804 | SRA Ms ie JF40 3aB00110.-:— : 0046 0 FOSS EOR LAST 3AE00790 
0009 0 F021... EOR . «4&001_ &F4) 34800120 | z 0647 O 4620 . Bsc 2. 3Ap00800 
000A O-. 0022 $To RESET _ “F41 RESET IOCC 34600130. 3 2 0948 O 6037 ; “LOX PACK 3AB00810 ~ 
0008 O- 7001 MDX e+) 4F4l 3AB00140 | 0049 0 7006 END] MDX = CARD2> - 324890820. 
QOOC O 0031 DC Int | 3AB00150 ©. ao 004A ORG: Wo: 34890830. 
COOD O 1808 SRA BO O04F | 3AB00160 : 9 o O04F 0 OO4E wC DEE 785% «2. 3AB 90840 
QOOE O 0018 STO.  STRD . ° OO4F START GR ADDRS 3A800170: ; 0050 0000  RDIN BSS 'e) 34800850 
OOUF O 68020 A. ONE. 0050 | pe Ae 34600180 : 0050 0 .CQFE  -©-CARD2 tO we sf 3A800860 — 
0010 0 DO2A STO —EOR+) | 0050 (‘1ST HALF wD ADDRS 3A600190 - 2 0051 00 0400009D STOWC STO L WC+7B ae se ogtl 3AB00870. 
0011 OG 0028 STO STO+ * 0050 1ST STORE ADDRS -- 34800200 — 0053 00 74sE£002A MDX L STKDe+78 UPDATE START RD ADDR 3AR00860. 
0012 0 8010 A UNE |. C051 ; , 3Ab00210 0055 00 744£0052 MDX L STOWC41¢+78 | ie ie 3AB00S90 | 
0013 0. D026 — STO PACK+} 005] 2ND HALF WD ADDRS 3A8L0220 3 0057 00 7427092C MDX Lb LASTs#39 — 3Ab00900 
0014 0 4017 © A LAST 0078 - 3AB00230 | 0059 00 74FFO05D MDX tt COUNT] 3A4B00910 © 
0015 0 0016. STO LAST 0O7& END STORE ADDRS 3A600240 | 0056 O 7007 MDX SRTRD 34809920 | 
0016 0 COl4. tb K4001 _ 400) 3AB002 50 3 OO5SC 0 605E : LOX CORE 34800930 
0017 O 1806. SRA 6 7 0100 34600260 : OG5D 0 0007 COUNT 9C a3 3 3AB00940 
0018 O F014 EOR RESET 4E01 .3a80027) - . . 34800950 
0019 0 v0) _ STO STRD#1 4E0) START RD 1/CC 34500280 3 ™ aa 7 a 7 3A800960 
001A O 1808 SRh 8 OO4E 3AB00290 0029 INPUT EQU 29 INPUT AREA 3AB00970 . 
0018 0 0033. sTO wc O0O4E © WORD CGUNT 3A800300 i | _ | ai ne 3AB00960 . 
ae ca ; 3A400310 3 te NOTE scecee THIS SECTION OVERLAYEDececces 3AB800990 | 
00ic 0 Coll STRT LD CHKSM FORM CHECK SUM, THIS CARD 3A800320 a | BY READING THE FIRST CARDe~ 3AB01000 . 
00:10 0 8006 A *+6 FKOM 0024 THRU O004F 3AB00 330 od OF FIRST PROGRAMc ccccccecce 3AB01010 
OCLE O DOOF STO CHKS ~ | 34800340 2 | x : 3AK01020 
OO\F O COFD LD STRT¢1 | 34800350 OOSE 00 6COO7FFF CORE STX /TEFF 7 34B01030. 
0020 0 800F 4 ONE MODIFY ADD INST 34800360 0060 0 C035 LD INTE | INTERRUPT TR VECTOR 3A601040 
0021 0 OOF STO STRT+1 | 3A800370 i 3 0061 G DOAA — §T0 IC : | 34801050 | 
0022 0 FOOC EOR CON} CHECK THAT LAST LOC CHKD 3a80C380 , 0062 00 6700015C LDX END-4 34601060 
0023 QO 4820 BSC Zz SKIP IF FINISHED 34800390 0064 0 7302 CORE2 MDX 2 “ 34801070 
C024 0 601C LOY STRT GO GET NEXT wORD 34600400 : g 9065 0 10A0 ~ $tTt 32 34801080 
0025 0 COB LD CHKSA GET SUM OF 0LV12 THRU O0O4F 34600410 U066 0 O802 ~~ STD 5 2 | e 34B01090 
0026 0 46820 BSC Zz SKIP IF CHKSM ZERO 34800420 = 0067 00 740000C0 MDX 40090,0 SKIP IF ZERO CLEARED 34B01100 
0027 0. 30F1 . WAIT -15 CHECK SUM ERROR 3AB00430 e 0069 O TOFA MDX CORE2 34601110 
0028 0 6033. ENDCK LDX SRTRD START. LOADING 3AB00440 . : OO6A 00 C4&007FFF LD tt J/TFFF Ck ITF LAST AUR CLEARED 3AB01120 
* : 3AB00450 | 006C 00 4C180073 BSC £t CORE3e+—- #£®8R JF CLEARED 34801130 
| * _ 3AB00460 ® OO6E OO 6FOO0LSF STX L3 ULIM- FETCH THE LAST ADR 34B01140 
0029 0 oace xG800 DC 40800 3AB00470. k | 0070 GO C400015F LD L .ULIM ‘A-s BIT THAT FAILED 34601150 
062A 0 GOLO STRD OC 0 | 34600480 : 0072 0 30F4 W30F4 WAIT = -12. CAN NOT CLE&k CORE 34801160 © 
0028 G 4001 %400)1 OC 74001 34800490 , 2 | % | 7 ADORESSING SIT FAILED 34801170 
°002C 0 0026 LAST OC 10026 34800500 é 0073 Of 6FO00015F CORES STX L3 ULIM- SET THE CORE. SIZE - 3A4B01160 
0020 0 0000 RESET DC =e 34800510 0075 0 7007 MDX RDCD GO LOAD PROGKAM 34801190 
002E O 0018 CHKSM OC 70018 3AB00520 r @ ® | | 3AB012C0 
OO2F 0 8031. CON]L A 80-STRTI=-3 3AB00530 : 0076 ORG /78 3AB01210 
003C G ov001 ONE OC 70001 — 34800540. ; SECTS RRAECKES EKESES SSS SESESE RS KEKSLLAS SES EB 34601220 
% 3AB00550 | ; ® * 2501 LOADER . 3AB01230 
0031 0 C300. INT oc 0 34800560 : KCSCKEKSCEKSLLKKTKERKSSSKSKSKKSERSESLESTKSEE SKS SSE 34801240 
0032 © 6037 LOX PACK 3A800570 : . * THIS LOADER READS DATA FROM A CARD AND STORES 34801250 
. * 34800580 i 9 * THAT DATA IN LOCATIONS 440 TO /77 34601260 
0033 0 O8F6 SRTRD XIO STRD 3ABGO590 | : =. ko een nnn 34801270 
0034 0 O&8F7 — IG RESET=-1 34800600 * fe 34601280 
0035 0 4804. BSC E 3A800610 i 9 0078 O 0825 | LOAD. x10 SENSN=1 34801290 
0036 0 6034 ~ Dx SRTROF1 34800620. | 0079 00 4C040156 BSC ti MLCDeE o 34601360 
* 23 3AB00639 © ; 0076 O C022 ‘LO INTE SEV INTEKRUPT XFER 34801310 
0637 0 98600 PACK OC 78000 LD tL RDINe] 34800640 2 007¢ O 0330 STO 3 7/30 34801320 
0036 0 8800 DC 78800 | 34800650 * ee 34801330 
0039 © 1608 SRA 8 | 3AB00660 007D 0 C022 RDCD LD DSW CK LAST CARD Sw. 34801340 
003A 0 2000 EOR DC 42000 EGR «2 RDIN 3a800670 % OO7E O 1003 SLA 3 2 a 34801350 
DATE — BSSUNOT 3 PROG 1D) O3AB-O tf 2 DATE 15JUN67 es PROG ID 03A8-0 
EC NO. 420317 | ; | PAGE 1 | EC NOe 420317 PAGE 1A 
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IbM MAINTENANCE DIAGNUSTIC PROGRAM 


See ar atadahys tie Bethe aN Ena tee) PA EU I! canine Sintra Eanes 


EA item poate 6 ERR derma dae AMR ee aT a RR im Be 8 


eR RAN nual aie nthe be he BN LR om: Coie ANS ote heat alg Om Beenttatedn Naawe 


RELOCATING DIAGNOSTIC LOADER = 2501 


OOTF 
0061. 
C082 
0084 
0065 
00686 


O0&7 


OOEB 
0089 


OO8A 
0088 
OOEC 
OUBD 


OUBF 
0090 
0092 
0093 


0095 
0096 
0097 
0098 
0099 
0096 


009D 
OO9E 
OO9E 
QO9F 
OOAO 
O0Al 
O00A2 
OOAS 
OOA4 


OOA5 
O0O0A6 
OOAT? 
OOAS 
OO0A9 
OOAA 


OOAB 
OOAC 
OOAD 
OUAE 
0080 
OOAl 
0082 
00B3 
0054 
0085 
00386 
OOB7 
OOBB 
OO89 
OO8A 


- OATE 


00 4C280156 


¢) 
00 
0 


0 
0 
0 
0 
0 


0 
oO. 
O 
00 
0 


0 
0 
0 
o 
0 
O 
0 
0 
0 
0 


EC NGe 


CO16 
D4600028 
0816 
4846 
30F8 


O81A 


0617 
4878 


0000 
0612 
FU17 
4C1 80088 


18CD 
4C04014F 
1091 
4C 100088 


O50A 
DOOS9 
co91 
1001 
4C5A010E 
4C4000AB 


OO4F 
0000 
OO8A 
“FOO 
0000 
4FO3 
0028 
4E00 
0003 


0001 
0029 
0000 
1084 
108e 
106C 


6188 
6300 
62FD 
C6G00048 
D004 
C172 
18D0 
Civil 
1804 
1060 
D329 
7301 
7101 
7201 
TOF3 


1SJUN67 


420317 


RDCD2 


INTO 
RDCD3 


OPCOM 


KOO4F 


INTE 
SENSN 
DSW 
SENSR 


STRD} 
KO003 


ONE2 
ADRS 
DATA 
SL 


* 


s 


8SC L 


STO L 
x10 
BOSC 
WAIT 


X10 


X10 
BOSC 


DC 

x10 
EOR 
BSC tL 


RTE 
BSC L 
SLT 
8SC L 


XIG 
STO 


SLA 
BOSC L 
BOSC L 


OC 
BSS E 
DC 
DC 
DC 
OC 
DC 
DC 
OC 


OC 
DC 
oc 
SLT 
SLT 
SLT 


MLCDe+Z 
KOOGF 
INPUT=-] 
StnSR-] 
E 

-& 


STRDI=-1 


SENSR-1 
+-2 


Ka % 
SEKSN=-] 
KO003 
RDCO39+— 


SENSR-] 
DSw 
‘INPUT 

1 
HEX»C+— 
SB05 


SO04F 


INTO 
/4F00 
ems 
/4F03 
INPUT=1 
74E00 
/0003 


I 
INPUT 
t—s 

& 

8 

12 


CONVERT 


FOR THE 1130 SYSTE* 


GO TO KOWI TOK IF ON 

wURD COUNT 

SENSE OSw FGn READY 

SKIP iF READY 

KAIT (30F8) IF NOT READY 
START READ 

RESET DSw 

SERVICE COLUMN INTERRUPT 
SENSE DSW FOR READY 

LOQP UNTIL CHANGE IN OSW 


LOOK AT ERR IND 
bH FF ON 


BR IF OP COMPLETE 
RESET DSw 
SAVE DSW 


BR IF HEX PATCH CARD 


INTERRUPT TRANSFER ADDKS 
SENSE ~ NO RESET 

OP COMPLETE USW 

SENSE RESET 


INITIATE READ 


EKCKKKKERAKSKKCKKEKCKKSKEKKKAESKSEKKAKKCSKESERKCKERK 


REREERETKES AER ERESERER ET ESSERE SRERESE REESE B 
* THIS RTF PACKS BINARY DATA AND LEAVES iT IN 


* LOCATIONS 0028 = 0078. . 
Sewn woe wwe. a te Ge CEP ae Eee am eee Gem on ee erer en ere 
s F 
S805 LDX 1 -72 
LOx- 30 
35806 LDX 2-3 
SBO7 LtD- L2 SL*3 
STO $b10 
LD 1 INPUT4+73 LD INPUT DATA 
RTE 16 
tO 1 INPUT+72 LO REST OF WORD 
SRA 4 . 
SB10 SLT %—% ‘REQUIRED SHIFT SET HERE 
: STO 3 INPUT STO CONVERTED wORD i 
MDX 312 
MDX 11 
MDX 21 
DX S807 —CONVER? NEXT WORD 
Ne , a 25 oy vale oN — 
yw Cy Fe TF CS 











ciara te Rand WAS FN ais ORE ATR be Rome ee gabe, Phang i eel AR toe hed ate NRO ee ee OEE Sate th nee ca A ce edema ewe te ee tbe 


FART 
PAGE 


34801360 
34601376 
34801360 
34601390 
34201400 
34601410 
34501420 
34801430 
34b01440 
3A601450 
34601460 
3AB01 476 
3AB801460 
34501490 
34801500 
34601510 
3AB01520 
34601530 
3AB01540 
34601550 
34601560 
3A601570 
346015680 
34601590 
34801600 
3401610 
34801620 
34601630 
34601640 
34601650 
34601660 
34601670 
34801680 
3AB01690 
34601700 
3AB01710 
3AB801720 
3A501730 
3A801740 
34601750 
34601760 
3AB01770 
34B01760 
34601790 
34801800 
34801810 
3AB01420 
345601830 
3A501846 
3AB01850 
3A601660 
3AB018706 
34601880 
3AB01890 
34601900 
3AB01910 
3A601920 
5A801930 
34601940 
3AB01950 
3A801960 
34801970 


~- 34601980 


34601990 
34602000 
3A502010 
3AB02020 
3AB0203C 


PROG ID 
PAGE 


NO. 


2191244 


2 


O3A8-0 
2 


Ned 


bey 


ut 


6 od o od o oe] 64 


te 


dD (pS 6 © ed ee oe oo 8 46 


‘J 


~ 
AN 
sath 


Ae me emer eres eee ene ee tee ee rnin cree we 


sates net ab dh Ra a aha A nana nae 


Tb* MAINTENANCE DIAGNUSTIC PROGRAM 


eh Ak RANE ACE, 


ethantvelltikhentieteataatetinenacpeent haanacaemte eae ane ee ee 


0 Him tt Situated dees bade ide ctrl ite ta 


Rt A SES SA A Ne ae inn sacig cesta hare asin 


FOR THE 1130 SYSTEM 


RELOCATING DIAGNOSTIC LOADER = 2501 


0055 O 7102 
GORC 0 70FO 
VOBD O C126 
OUBE 00 4€180156 
COCO O E030 
00C1 0 903D 
0OC2 00 4C180102 
0UC4 0 903A 
GOC5 00 4C180100 
O0C7 O C12A 
ULvC& 00 4C180006 
OOCA C C032 
OOCb O 62CA 
OOCC O B825F 
OUCD 0 4802 
OUCE O #006 
OOCF Uv 7201 
OUDU OG 7UFK 
GOD) 0 B80D3 
OOL2 00 4C200158 
0004 00 74010GFD 
00D6 0 C12B 
0007 O 1008 
OCDB O 1608 
0oD9 O D128 
OODA 00 4C180106 
-000C O 8129 
OODD 00 8400015D 
OQODF 00 9400015F 
Q0E1 00 4C10015A 
DATE | 15JUN67 
€C NOp = 20317 
| 
\ 
Hee ZX a 


MDX 
MDX 


»1 


$806 SKIP WHEN FINISHED 


& 


REKEKKS KE SKS TKS KR KKRRRE SST HE RRS RSERKT LE ROTH 

* CHECK HEADEK 

KEKE ERE EKKOCK SSK SE SHS SSSKEG RK KSSH SERHE KEES LSS 

= THIS RT DETERMINES WHETHER THE DATA CARD IS 

* 2) ABSOLUTE HDR CARD 2) RELOCATABLE HDkK CAKD 


x > em ee a Ge > o> OD OD OD OP ae Oo Ow Oe OD OE > @ OG Gh Gb Ge > OD GP OP OP GP GEO ow G@ & & Or eT CD & 


x 
LD 1 INPUT42 CK FUR HDR CARDS 
BSC L MLODet+— Bk TO USER ~ bLANK CD 
AND LB20 
S L625 
6SC LL ABHEDst— BCH IF ABSOL HEAD CARD 
S LB25 
BSC tL RLHEDs+— BCH IF RELOC HEAD CARD 
x 
SVEMBKERKKKKSEKBKSLKSSEARKKIKSBCKEKKRKEKCEKCKKKKKCRKREKE EK 
x CHECK SUM 


SKSKKHKKKKKKKSLEKAERKS SEK ESS SSSA SKRSRKARE KKK SS 
* THIS ROUTINE ADDS COLUMNS O — 72 


¢ TO CHECK THAT THIS SUM PLUS THE CARD 
* SEQUENCE NUMBER EQUALS ZERO .« 
IE we ce Oe ee ee ren 0m > oe ee Oo Oe OF Oe Oe 0 Oe OF SOOO OOO DO SOO HOOD 
* 

LD 1 INPUT+1 LD CHECK SUM 

BSC L CKEMPy+- SKIP CKSUM IF ZERO 
x 

LD COCT 
| LDX 2 -54 | | 
CKSM] A 2 INPUT#54 ADD WORDS 1 TO 54 

BSC C 

A ONE2 

MDX 21 

MDX CKSM1 
s , 

A UNE2 

BSC L CKSUMsZ BR IF CK SUM ERR 
* , 

MOX L CDCTe ADD 1 TO CARD CT 
x 


* > OP Be EP PO OD 68 OOS OOOO ase > SE OS OD OS Cy a> > GY OS® Ge he Ge Gay es > CE Ge SD 


*z CHECK FOR END OF PROGRAM CARD 








* 
CKEOP LOD 1 INPUT¢2 GET wORD COUNT 
SLA 8 CLEAR CARD CODE 
SRA 8 
STO 1 INPUT42 SAVE WORD COUNT 
BSC tL EODP»+- EUP IF WC = ZERO 
* 








= war GP OP SSE Gs Gos capes ti ae GP i a Ge a ab > 2b aa See ae 


* CHECK FOR OVER CCKE 











b -4 = om a> ae ep aa ean a 


= 
| A 1 INPUT SUM WC+STO AUDRS+RELOC 

A lL UPPER. ba 
S ob ULIM 
BSC L OVCRe- BR IF OVER CORE 

= 

EXKKKKKKREKL SCRA EEKSEE KEKE KKK KECKSKS SEK HEH 

* . RELOCATE AND STORE 


KKEKKKKKEKAEKKKSE KKK KKK SKK KEKKS SSESHKE ERK ERK 
* THIS RT PLACES DATA FIELDS INTO THE CORRECT 
* CORE LOCATIUNS AND ADDS IN A RELOCATION 
+ FACTOR IF REQUIRED. 
= 








ao em em > > aw oe ~ 


PAGE 


2AB02040 
34802050 
3Ab02060 


 3A602070 


3AB02080 
34602090 


34502100 


3A602110 
34602120 
3AB02130 
34602140 
3aB02150 
3A80216U 
346502170 
3AK021680 
3AB02190 
3AB02200 
3Ab02210 
3AB02220 
3A802230 
3AL02240 
2AB02250 
3A802260 
3AK02270 
3AE02280 
3AB02290 
3A302 300 
3A802310 
3Ab602 320 
3A802 330 
3AB02 340 
3A602350 
3AB02 364 
3AB02370 
3AB802 380 
3a602390 
3A802400 
3A602410 
34802420 
3A602430 
30602440 
3A802450 
34602460 
3A602470 
(34802480 
3AB02490 
3A802500 
3A802510 


~ 30a602520 


34802530 
34602540 
34502550 
34807560 
3AB02570 
34602580 
34602590 


_. 3AB02600 


3AB02610 
3AB02620 
3AB02630 
3AB02640 


~ 3BAB02650 


3AB02660 


~3AB802670 
34802680 
- 3AB02690 


3An02 700 
34802710 


PROG 1D 


PAGE 
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Te 
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PART NOs 2191284 


2a 


03A8-0 
2a 


Seth Rae ie Seed 


ag Crees) og gy 4m Ae 


Am OA nN Oe AO Ae Ae A MA 


o~ 


7) 


Aaananeneaneenenaannnnn 


O0E3 O C129 
OOE% O 8078 
OOES O p008 

Q0E6 00 6600002C 
OOEB8 O 638 
O0E9 0 C200 
OOEA O 1800 
OOEB 0 1082 
GUEC 00 4C0400F8 

QOEE O 1810 
OOEF O 8132 
OOFO 00 05000000 
OUF2 CO 74FF002B 
GOF4 O 7002 
OOFS5 © 607D 
OOF6 0 7101 
OOF7 0 7301 
OOF8 0 70F2 
OOF9 0 7201 
OOFA O 70ED 
OOFB O CO6i 
OOFC O 70F2 
OOFD 0 0000 
OOFE 0. OFO0O 
OOFF 0 0100 
9100 0 COSB 
0191 0 905C 
0102 0 oD: 

0103 O TlUs 
0104 0 69F8 
0105 0 607D 
0106 0 C129 
0107 0 8055 
0108 0 0053 

0309 0 Ci2c 
010A 0 8052. 

0108 O 0601 
010C 00 «Co00000 
Date 153UN67 
EC WD. 420317 


Pt 
STOR] 
& 


STOR2 


& 


STOR3 
STOR& 


x 


STORS 


* 
STOR6 


=. 
COcT 
L820 
L625 
* 


LO 
A 
STO 


LOX | 


LOX 


LD 

RTE 
SLT 
BSC 


SRA 


A 

STO 
MDX 
MDX 
LOX 


ADK 
MDX 
MDX 
DX 
DX 


LD 
MDX 


OC 
oc 
DC 


RELOCATING DIAGNOSTIC LOADER —- 2501 


1 INPUT 
UPPER 
STOR44) 


L2 INPUT+3. 


3 -8 


2 0 


16 
2 
STGRG6eE 


16 

1 INPUT¢9 

] %—x 
'INPUT?#2 9-1 
STORS 
ROCD 


11 

31 
STOR2 

21 
STOR} 


UPPER 
STOR3 


tos 
40F00 
40100 
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LD STORE ADDRS ~ 
RELOCATE STORE ADDRS 


XR2 = RELOCATION CODE ADDR 
XR3= REL BIT CNT 

LD NEXT RELOCATION CODE 
STO IN EXT REG 


BRING IN NEXT REL 
BR IF RELOCATE 


BIT 


ADD NEXT WORD 
STO IN PROGRAM 
DECR WORD CNT 
SKIP WHEN WC = O 
FINISHED 


ADV WORD AND STO ADRS 
ADV REL BIT CAT 


ADV TO NXT RELOC wD 


LD RELOC FACTOR 
GO RELOC ADDRS 


CKCKKKSETCKECKKKKCKESAKKKKKKKKKKKKKKAICKKRSEKERKEKHK KS 


HEADER AND EOP CARDS 
KHEAEKLKKEKSKSSKKS KLE LSIKKAKASKLRESKSLERAKKKHEKS 


Cee we ew 














* THIS RT. HANDLES RELOCATABLE HDR CARDS. 


Ke oD an cE ea 

ie 

RLHED LO NLOC 
S RLBA 

x 

x a 

& 

*x 

* : 

ABHED STO ~~ UPPER 
MDX 11 
STX 2 COCT 
LOX ROCD 

= 





























> GPE SEP Gp GD Ce Ga Ee GIs 








EP CD 


COMPUTE RELOC FACTOR 


AS EP 





THIS RT. HANDLES ABSOLUTE HDR CARDS. 





INITALIZE CARD COUNT 





* THIS ROUTINE HANDLES END OF PROGRAM CARDS 


x 
& 


EOP 


EOP} 
& 


Lo 
A 
STO - 


LD 
A 
sta 


BSC 





L 


1 INPUT 
UPPER 
NLOC 

1 INPUT43 

UPPER 

EOP1+)] 

ed 








SET NEXT AVAIL LGC 
LD TRANSFER ADDRS 


TRANSFER TO PROGRAM 


KEKKKKSEKEKKEKCKRKCKKKKSESSKKEKESEKKKKKTKESLKTKKSLS 


s 


HEX DATA 


ROUTINE 


| PROS SSE SET EEEERESEEERERESSSESESEERE SESS ESERES 
@ THIS ROUTINE CONVERTS HEX CORRECTION 
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3A802720 
34802730 
34802740 
3AB02750 
3A802760 
3AB02770 
3AB02760. 
3AB02790 
3AB02800 
3AB8C2810 
3AB02820 
3A802630 
3AB02840 
3AB02850 
3AB02860 
3AB02870 
3AB02880 
34602890 


3a802910 
34602920/ 
3A802930 
34802940 


.3A802950 


3AB02960 
34802970 
ZABO2960 
3AB02990 
3AB03000 
34803010 
3AB0 3020 
3A803030 
34B0 3040 
3AB03050 
34803060 
34803070 
3AB03080 
34803090 
34803100. 
34803110 


3AB03120 . 


3AB03130 
3AB0 3140 
3AB03150 
3A4B03160. 


3AB03180 
34803190 
3A805200 
34803210 
34803220 
3A8032 30 
3AB03240 
3AB03250 
3AB03260: 
34803270 
34803280 
3A803290 


3A803300 . 
34803310 | 


3AB03320 
34603330 
34603340 
34803350 
3AB80 3360 
3a803370 
34803380 
34803390 
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RELOCATING DIAGNOSTIC LOADER = 2501 


010€ 
O10F 
0110 
0111 
0113 
0114 


0116 
0117 
0118 
0119 
O11A 
0118 
011C 
0110 - 
O11F 


a id 


.o] 
© 


© 
oS 


0121. 
0123 


_ oO 
© 


0125 0 
0126 00 
0128 00 
012A .00 
012C 0 


012D 0 


O1Z2E O 
Gl2F Q 
0130 00 
Ql3<¢ UO 
0134 0 


0135 00 
0137 0 
‘| 


0138 0 
0139 0 


013A 00 
-013C 00 


O13E 0 


O13F 00 
0141 0 
0142 00 
0144 60 
03146 OQ 


0147 
0148 
0148 
0149 


0145 


014D 
O1SE 


©oeoodco oo 


DATE 
EC NO. 


oooo0o°o. 


DO34 . 
C096 
0096 
C&8000AT 
D038 
T40100A7 


C031 
D032 
1810 


. 1004. 


po2zc 
1810 
DO2ZE 
C4a000A7 
4C18007D 


4€100125 
74090148 


1003 
4C18012F 
74010148 
4C28012E 
1001 
TOFA. 


Cuic 
E81T 
7401 00A7 
T4FFOLGA 
T0E4 


74000143 
T7007. 


8024 
D009 
C400002F 
4€ 980143 
TOD2 


7400014C 
8018 
D“000000 
74010143 
TOCA 


0000 
0000 
0004 
1402 
0000 
0000 
0000 
1000 
1000 


—  LSJUNGT7 | 


£20317 


* DATA TO BINARY AND STORES THE DATA. 


& eran creer a are 


* 
HE X 


HEX1. 


x | 
; oo 


*. CONVERT. HEX TO BINARY 


ee ES Se ES SIRE TE A AES AIRS TEM CTE ALI DLO LEONARD CEN AE OPE ED EH 


% 
HE10 


HE11 





STO 


to 
$10 
LD. 


STO 


MDX 


LO 

STO 
SRA 
SLA 
$ToO 
SRA 
STO 


Lo 


BSC 


BSC 


® 


HELIA 
HE12 


x. . 
HE13 
HE 1L< 


& 


MDX 


SLA 
BSC 
MDX 
BSC 
SLA 
MDX 


LD 
OR 
MDX 
MDX 
MDX 





I 


L 








HE22+¢1 


DATA 
DATA 


RLREO 
DATAel] 


a>Epap Gar 22a 25 ap: PGP Ge @=> 6 GS GO Ge Ea Seas a 


FOUR 


— INDXL 


cree. 


err > om 


16 

ra 
TEMP 

16 . 
INDX2 
DATA 
RDCD et 


HELIA. 


 INDX249 


3 
HElLGet— 
INDX291 
HEL3e+Z 


a | 


HE12—2 


INDX2 
TEMP 
DATA¢3 
INDX1e—] 
HEL) 


> Oe EE ee EP OP CED CO Ona 


CLEAR STORE ADORS 


LOAD RELOCATION BIT 
STO RELOCATION BIT 
ADV TO NXT WORD 





CK FOR BLANK COLUMN 
FINISHED — LUAD NEXT CARD 
BR IF NOT A-F 
ADD 9 FOR ALPHA 


€LIMINATE ZONE BITS 


XF+R TF HEX CHAR & 0. 
KFER ITF BIT 1S FOUND 7 
PREPARE TO LK AT NEXT BIT 


LOAD BINARY BITS 
ADD TO PREVIOUS CHARS 








* FINISHED — CONVERTED WORD IN ACCUMULATOR 


x 


HE21 


HE22_ 


x 


TEMP 


FOUR 


FOCD 

INDX1 
INDX2 
RLREO 


MDX 
MCX 


A 
$TO 
LD 
BSC 
MDX 


MDX 
A 

S$To 
MDX 
MDX 


oC 
BSS 
DC 
DC 
DC 
DC 
OC 


NOP | 


NOP 


L 


ow 


HE22¢+1-0 
HE21 


UPPER 
HE2Z2¢] 
INPUT#6 


HE22+let— 


HEX) 


RLREQ,O 
UPPER 
tuo” 
HE22+lel 
HEX} 


Bion 


11402 
t—% 
xe 
t-& 


SKIP IF STO ADRS 
BR 1F DATA 


RELOC STO ADDRS 


LD NXT WORD 


&8R TO ADDORS IF BLANK 


CONV NXT WORD 


SKIP IF NO RELOCATE 


STORE DATA © 
ADV STO ADDRS 
CONV NXT WORD 


TEMP STORAGE 
FEED CARD 


HEX RELOCATION BITS 
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3AB03400 
34603410 


' 3AB03420 


34803430 
24803440 
34803450 
34803460 
34803470 
3AB03460 
34803490 
348035500 
34803510 
3A803520 
34B03530 
3AB03540 
3AB03550 
34603560 


3AB03570 


3AB03580 
3AB03590 
3AB03600 
3AB03610 
3AB03620 
3AB0 3630 
3AB03640 
3A4B03650 
34803660 
3AB03670 
3AB03680 
3A803690 
3AB03700 
34603710 
3AB03720 
3AB803730 
3AB03740 
34603750 
34803760 
34603770 
3AB03780 
34603790 
3AB03800 
3AB03810 
34603820 


. 34803830 


34803840 
3A803850 
34803860 
34603870 
34803880 


34803890 
34B03900° 


34803910 
3AB03920 
34803930 
34803940 
34803950 
34803960 
34603970 
34603980 
34803990 
34804000 
34604010 
34804020 
3AB04030 
34504040 
34804050 
3AB042060 
34804070 
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PAGE 4 | 
RELOCATING DIAGNOSTIC LOADER — 2501 J 7 RELOCATING DIAGNOSTIC LOADER - 2501 
yy - 2 | 
* | 3AB04080 CROSS REFERENCE LISTING 
O1GF O 30F5 W30F5 WAIT ~-}) 1442 ERROR IND ON —3aB04090 Toa, 8 + 
0150.0 607D LDx — RDCD ' TRY REREADING THE CARD 34804100 SYMBOL VALUE REFERENCES 
es Ps . 3AB04110 ABFED 0102 o0C2 
0151 0 O8F6 FEED x10 FOCD=-1 FEED. OUT LAST CARD 3A804120 ADRS OOA6 O10F 
| : * , 3AB041 30 CARD2 0050 0049 
RSKKSEKEKEL KE RKKATE SSE SE TSEKLSK KE SEK AKSHSKEKES 34504140 COCcT OOFD OOCA,00D4,0104 
x MUNITOR/LOADER INTERFACE 34804150 CHKSM = O002E 001f,001E,0025. 
| SRE EKRSSS LASSE KS LTK HHS SRAS KKK LKLSSAEG SSS 34804160 CKEOP OUD6 oocs 
® THE FOLLOWING MUST BE LOCATED ‘IN CORE 34804170 CKSM1 Oocc ooDO 
= LUCATIONS /0156~/015F. 34604180 9 CKSUM 0158 00D2,0159 
es oe aoe ere eae ae sx ees Pe Saer oe 3A804190 7 CON] 002F 0022 
* ; 3AB04200 CORE OOSE oosC 
0152 ORG £0156 3AB04210 CORE2 0064 0069 
0156 0 30F6 MLCD. WAIT -10 PROGRAM SHOULD PLACE HERE 3AB04220 CORE3 0073 006C 
0157 0 7OFE MDX — MLCOD A XFER ON BLANK CARD 346042 30 COUNT. .005D 0059 
0158 0 30F7 CKSUM WAIT -9 CHECK SUM ERROR 3Ab04240 DATA OOAT 011040111401149011090130 
0159 0 TOFE MDX CKSUM. 34804250 DSW OOA0 007D,0096 
0154 0 a000 OVCR WAIT | EXCEEDED CORE SIZE 3A604260 END 0160 0062 
0156 0 TOFE MDX -“OVCR 3AB04270 ENDCK 0028 
015C 0 0160 NLOC OC 4160s} NEXT AVAILABLE STORAGE LUC 34804280 END) 0049 © 
015D 0 o0ooo0 UPPER DC as : RELOCATION FACTOR 34604290 EOP pave OODA 
015—E 0 0000 RLBA DC o000c BASE ADDRESS 34604300 3 EUPI 010¢ 0108 
O15F 0v01 ULIM BSS 1 CORE SIZE 34804310 EGR OO3A 0006,0007,% 001040040 
schadadidiiatediintneiatitnsintiatedintndintndintntatintiniintietniiaiindadeinshataiiodediniethtndeininininininil 3A804320 FODCD 0149 0151 
0160 0000 ' END BSS E O | 3AB804330 3 ae pa ae 
| Loan | 
0160 0078 END LOAC 34606340 HEX 010 0099 
‘ 5 HEX] © O11 013E 90146 
HE10 0116 | 
HE)) 0119 0134 
5 HELIA 0125 0122 
 -HEL2 012A 012D 
HE13 O12E O12A 
3 HE 14 012F 0126 
, HE21 013F 0137 
HE22 0142 O10E 501 35901399013C20144 
3 INDX2 O14A 0117,0132. 
INDX%2 0146 0110 9012390128,012E 
‘INPUT — 0029. 0682,0097,00A2 5 002 690081 00830086, 00BD,00C7y00CC, 
3 - 00D6400D9y 00DC »00E3 2 00E6 » OOEF » OOF 2 90106,0109,013A 
INT 9031 oooc 
INTE  OOGE | 0060,0078 
3 INTO -QOBA O09E 
; KOO03 OLAS 0o8C 
| KOC4F  009D 0081 
2 KO600 0029 
K4001 0028 0009,0016 
LAST 002C 0014,0015,0046,0057 
g Lb20 OOFE -00cO 
LB25 OOFF 00C1,00C4 
LOAD 0078 0160 | 
3 MLCU 0156 0079,007F ,00BE,0157 
NLOC 015C 0100,0105 | 
ONE 0030 OCOF 4001200204 003F 90041 90044 
¢ ONE2 OOA5 OOcCE,00D1 
UPCOM 0095 | | 
‘OVER O15A 00£1,0158 | . 
3 PACK 0037 0000 0002 40003 7001390032 9003E» 004220048 
ROCD - _O007D 0075,00F540105,011F 20150 
| RDCD2 0088 > 
RDCD3 0068 008D,0093 
> RDIN 0050 
RESET  002D 0004,0018,0034 
RLBA O1SE 0101 = 
3 RLHED 0100. 00C5 
RLREQ O0214C 0113,013F 
5 SB05-. 0048 - 0098 
PROG 1D O3AB-0 DATE. - - JSJUNGBT be on te eo ; - “PROG ID 03A8-0 
pad un | PAGE & 3 EC NO. 420317 a iy PAGE ee 
2) 
A ae | | _ | 2) : 
. 7 a cone Mer aN oe ON ae a ee . — 9, Kee giles“ . gets. ss fs . 
| . | : : . | \ q : » : : . i . Sue ae , es \ - 9 i | “oN ae oe a Ack, x a ere ae 
Ss ae Sine ad ee. a ee ' , Ro ke. od a acne Oe 
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Sb07 
SE10 
SENSN 
SENSR 
SL 
SRTRD 
START 
STO 
STOR] 
STOR? 
STOR3 
STUKe® 
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STORO 
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STRD 
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STRT 
TEMP 
ULIM 
UPPER 
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OVOF6 
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O15F 
O15C 
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0072 
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aa PAGE ‘ 
REL CCATING DIAGNCSTIC LOADER = PAPER TAPE VERSION 
; TABLE OF CONTENTS 
PARAGRAPH PAGE 
le PURPOSE. e@ eo e @ e @ e ® e @ e e e e oe. ® e e td e e e e @e @ e e e 1 
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26. 


2.1 PROGRAW PRFRECUISITES 


. 202  EGUIPMENT REQUIREMENTS 


36 


OPERATING PROCEDURE. « es ee ce ec eo wo eo se we ww ww woe ew oe e 1 


“3.1 LOADING AND OPERATING 


4. 
5. 


€. 


. 


” PRINTCUTS 


3.2 WAITS 
(NCNE) 


COPMENTS e e e ® ee e es 2e @ > @ eo ¢ 8 ® @ e eo ® oe. h6©°@ © eo @ ‘ e e 1A 


APPENCIX (NONE) 


PURPOSE 


“TKE 2130 RELCCATING CIAGNOSTIC LCACER IS USED TO LOAD THE CIAGNOSTIC 
MUNITCR aND PROGRAPS WHICH RUN UNGER CONTROL OF THE OIFAGNOSTIC 
MCNITGR. THE LCACER ALSO LOADS NCN-PANITCR PROGRAMS WHOSE TAPES ARE 
IN THE PROPER FORMAT. (THE 1140 RELOCATIXG DIAGNOSTIC LOADER WILL NOT 


LCAD PROGRAMS WHOSE CBJECT is COMPATIALE WITH THE 1130 BASIC DIAGNOSTIC LOADER)» 


Ze 


PRERECUISITES 


2el PROGRAY ‘PREREQUISITES. gam 


THIS LCADER USES THE FIRST 340 wWORCS OF STORAGE. 
2e2 EQUIPPENT PRE’ -cUISITES 


Ae 1130 CPU 
Be 1134 APE READER 


Je USE PRO TEDURE 


CATE 


EC NO. 


3.1eee LOACING AND OPERATING 


THE 1130 RELCCATING LOACER, TAPE VERSION, IS SUPPLIED AS ONE: PL 
RECCRO AT THE FRONT GF THE TAPE VEPSICN MONITOR, AND AS A SEPARATE © 
IPL TAPE. ‘THIS LOACER HILL LOAC ANY TAPE ESORUEE? IN THE SAME 
FORMAT AS THE. MCNITGR TAPES 


TO LOAD THE WORTTOR 

A. PLACE THE MCNITCR TAPE, WITH LOADER, 
In THE TAPE READER. 

Be PRESS RESET, PROGRAP LOAD ve 

Ce. MUNITGR WILL LCAD AKD LOOP IN —IT*S 
SUPERVISOR ROUTINE 

TG Loac. A PROGRAM. mt : 

A. PLACE PROGRAM TAPE IN THE READER 


PROG ID 03AC-e 
PAGE 1 


1SNOVEE 
419643 





te Sas 
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| ‘ . | \ a | : 
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IEW MAINTENANCE CIAGNOSTIC PRCGRAM FOR THE 1130 SYSTEM PART NO. 2191288 
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RELOCATING DIAGNCSTIC LOADER — PAPER TAPE VERSION 


Be SET CONSOLE SWITCHES TG 8080 (FUNCTION 2 
LOAD CALL. SEF PONITOR DOCUMENTATION) | 

Ce. PRESS INT. PEC KEY 

D. PRCGRAP WILL LOAD. 


SUBSECLENT PRCGRAMS MAY BE LOADED IN SIMILAR FASHION. 


FOR OVERLAP 
LOALING, USE SWITCH SETTING 80CO. . 


3-2e0@ WAITS 





PED CE CE-D Sie GN a ES aie Ee GER Ete Cb Cie TE A CE > ae a GED > SEP SEP aD SPS BODO POVOwO 





ef ALT NOW DESCRIPTION ° RESTART e 
e(B REG). e ACTION e 
° e e e 
e 30Fl  . CHECK SUM ERROR CN e RELOAD e 
e ° LOADER ° e 
e © . e ° 
« 30F2 . REACER OSW ERROR WHEN ° RELOAD e 
e e LCADING LOADER e ° 
e ° e ° 
e 30F4 . CANNCT CLEAR CORE —- CUE TO e e 
° e EKRCOR IN ADDRESSING UPPER e ° 
: : CORE. | : ae : 
e e e e 
e 30F7T . CHECK SUM WHEN LOADIAG e RELOAD e 
: ; PONITOR 3 | ‘ 
e ° @ | e 
e 30F8 . READER NOT REACY ° MAKE READER READY 2 
e e e e 
e 30F9 . INVALID INTERRUPT WHICH WILL . PRESS RESET AND START ° 
e ° NOT RESET ° ° 


4s PRINTOUTS (NONE) 


Se COPMENTS 


Seleee THE FCLLOWING ARE THE MAJCR ELEMENTS OF THE 1130 RELOCATABLE 


Selel 


Sele2 


5.1.3 


5e1-4 


CATE 
EC NO. 


DIAGNOSTIC LOADER- 


LOCATICN /CO28 THROUGH /0078, CHECKS FOR SATISFACTORY COMPLETION OF 
THE READ OPERATICN, AND DETERMINES WHETHER THE CARD READ IS A BINARY 
CARD GR A HEXADECIMAL (CORRECTICN CARD). : 


BINARY PACK ROUTINE —= TAKES DATA FCUND IN LOCATIUNS /0028 THROUGH 
/C0C78 (12 BITS PER CORE WORD) AND PACKS IT INTO LOCATION /0028. 
THROUGH /00S0 (16 BITS PER CORE WORD). | 


CHECKSLY RCUTINE -—- COMPUTES CHECKSUM OF A Senay CARD nnene WAITS iF 
CHECKSUM IS IN ERRGR.. 


MOVE RCUTINE —- MOVES DATA FROM /0028 THROUGH /0050 TO PROPER CORE 
LOCATICN. CHECKS FOR EXCEEDING CORE SIZE. ACDS IN RELOCATION FACTOR 
WHEN REQUIRED. | 


RELOCATABLE HEADER ROUTINE -——- ENTERED WHEN A RELOCATABLE HEADER CARD 
IS FOUND. COFPLUTES A RELCCATICON FACTOR FOR PROGRAM THAT FOLLOWS. 


ABSOLLTE HEADER ROUTINE —— ENTERED WHEN AN ABSOLUTE HEADER CARD IMAGE 
FOUND. SETS RELOCATION FACTOR TO ZERO. 


TRANSFER RCUTINE —-— ENTERED WHEN A TRANSFER CARD IMAGE IS FOUND. COM 
THE NEXT LOCATICN AVAILABLE FOR LOADING IF ANOTHER PROGRAM FOLLOWS. 
TRANSFERS CONTRCL TO THE LCCATICN SPECIFIEC ON THE TRANSFER CARD. 


PROG 1D 
PAGE 


ASNGV66 
419643 


READ RCLTINE =—— CHECKS READER FCR PROPER STATUS, READS A CARD IMAGE INTO 


IMAGE 
rs 


PUTES 


o3aC-e 
1A 
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RELGCATING 
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PART NO. © 2191288 
PACE > 2 
DIAGNCSTIC. LOADER = PAPER TAPE VERSION ee a, He 


HEX TO BINARY CONVERSION ROUTINE -- CONVERTS A HEXACECIMAL CARD IMAGE TO 
BINARY. ACCS IN RELOCATIGN FACTOR IF REQUIRED. 


CARE RECOGNITION | 
THE FCLLOWING ARE CARD IMAGES WHICH CAN BE LOADED | BY THE 1130 RELOCATABLE 


 CIAGNOSTIC LCADER. © 


rr oe 
$2222 
50203 


ABSOLUTE HEADER CARD HAVE A 1 PUNCH IN COLUMN 4. 


“-RELOCATABLE HEATER CARD HAVE A O (ZERO) PUNCH "N COLUMN Se 


‘NCRPAL DATA CARCS HAVE NO PUNCHES IN ROW 12 IN COLUMN 1. AN ADDRESS | 


IN RUWS 21 THROUGH 9 IN COLUMN l AND. ROWS 12 THROUGH © 2 IN COLUMN 2. 


A CHECKSUM IN RCWS 2 THROUGH 9 OF COLUMN 2 AND ROWS 12 THROUGH 5 OF 


COLUMN 3. A 12, © PUNCH IN COLUMN 4, A WORD COUNT IN ROWS & 


THRGUGH 9 GF CCLUMN 4. A RELOCATION FIELD (WHICH MAY BE BLANK) IN 


COLUMN 5 THROUGH 12. CATA IN CCLUMNS 13 THROUGH 72. A SEQUENCE 
NUMBER IN CCLUMNS 73-80. 


4 BINARY TRAKSFER CARDS FAVE 12, ll» 0, 1 PUNCHES IN COLUMN 4 AND A 


WORD CCUNT OF ZERO {NO PUNCHES IN ROWS 4 THROUGH 9 IN COLUMN 4). 


- HEXADECIMAL TRANSFER CARDS HAVE A 12 PUNCH IN COLUMN 1, A TRANSFER 


ADDRESS IN COLUMN 2 THROUGH 5 AND NC PUNCHES IN COLUMNS 6 AND 7. 


HEXADECIMAL CORRECTION CARDS HAVE A 12 PUNCH IN COLUMN 1. AN ADDRESS 
IN COLUMN 2 THROUGH 5. CATA IN COLUMNS 6 THROUGH 80. - 
CATA 1S GRCUPED 5 CCLUPNS TO ONE CORE WORD. THE FIRST COLUMN OF EACH — 


GROUP SPECIFIES WHETHER OR NOT THE GROUP REQUIRES A RELOCATION 
- FACTOR. IF THE FIRST CCLUMN OF A GROUP IS BLANK A RELOCATION FACTOR 
“ WILL NCT BE ADDED. IF THE: FIRST CCLUMN OF A GROUP CONTAINS AN R 


(11.9 PUNCH) A RELOCATION FACTOR WILL 8E ADDED TO THE FIELD. 
LOADING or THE CARD 1S TERMINATED bY TwO SEQUENTIAL BLANK COLUMNS. 
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Le PURPOSE 
THE 1130 RELCCATING OLAGNOSTIC LOADER IS USED TO LOAD THE OLAGNOSTIC 
MCNITOR AND PROGRAMS BHICH RUN UNDER CONTROL OF THE DIAGNOSTIC 
MONITOR. THE LOADER ALSO LOADS NCN-PONITOR PROGRAMS WHOSE TAPES ARE 
IN THE PROPER FORMAT. (THE 1130 RELOCATING DIAGNOSTIC LOADER WILL NOT 
LCAD PROGRAMS WHOSE OBJECT Is COMPATIALE WITH THE 1130 BASIC OIAGNOSTIC LOADER) 
Ze PRERECUISITES 
201 PROGRAM PREREQUISITES. "4 ¢2 
THIS LCADER USES THE FIRST 340 WORES OF STORAGE. 
202 EQUIPMENT PREREGUISITES 
he «1130 CPU 
Be 1134 TAPE. REACER 
3e USE PROCEDURE: _ | 
3. lees ‘LOADING AND OPERATING es 
-* THe: L130 RELOCATING LOADER, TAPE. VERSION, 1S. “SUPPLIED. as ‘ONE. IPL 
_ RECORD AT THE FRONT OF THE TAPE VERSION MONITOR, AND AS A SEPARATE 
IPL TAPE. THIS LOADER WILL LOAD ANY TAPE PRODUCED IN THE SAME 
FORMAT as THE MONITOR TAPE. 
_ TO Loan THE PORT TOK —_ 
pace THE MCNITOR TAPE, WITH LOADER,. 
AN THE TAPE READER. 
BS PRESS: RESET, PROGRAM LOAD 
fe MONITOR WILL LOAD AND Loop an Ives 
“SUPERVISOR. ROUTINE ote Loupe 
1G LOAC A PROGRAM. 
Ae PLACE PROGRAM TAPE IN THE READER 
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RELOCATING DIAGNOSTIC LDADER - PAPER TAPE VERSION 


t 
‘+ 


MN 


B. SET CCNSOLE SWITCHES TC 8080 (FUNCTION 2 
LOAD CALL. SEF PMCNITOR DOCUMENTATION) 
Co PRESS INF. PEC KEY 
D. PRCGRAV WELL LOAD. 
SUBSECLENT PROGRAMS MAY BE LOADED IN SIMILAR FASHION. FOR OVERLAP 
LCACING, USE SWITCH SETTING 80CO. 


3.2000 WAITS 


BD EAE CLAP LID ELE ED TESS TI ED TELLS EP IS EES SES TEAS CD A LP ID LED A cae AES A TSP ED BD Ge APS ABP SEED CEP ED Ae CEP i > > ERAS a SPSS Sa GS sap ap 














ehALT NC. DESCRIPTION ‘ RESTART ‘ 
o(B REG). : ACTION : 
e Ss e @ 
2 30F1 CHECK SUM ERROR CN "so RELGAD ; 
5 : LOADER : . 
o e e ° 
« 30F2 « REACER OSW ERROR WHEN « RELOAD : 
‘ : LOADING LOADER | ‘ 
. 30F4 CANNCT CLEAR CCRE = CUE TO. ° 
; . ERROR IN ADDRESSING UPPER . ‘ 
r . ] CORE. : eo @ 

©@ e @ e@ 
. 30F7 . CHECK SUM WREN LOADING - RELOAD : 
" 3 PONITOR 7 : 
. 30F8 . “READER NOT REACY » WAKE READER READY . 
. 30F9 . INVALID INTERRUPT WHICH WILL . PRESS RESET AND START 
2 : NOT RESET : | 
¥ ° 4280808306660 

4. PRINTOUTS (NCNE) 
5S. COMMENTS. 

S5.lees THE FOLLOWING ARE THE MAJCR ELEPENTS OF THE 1130 RELOCATABLE 
DIAGNOSTIC LOADER- 

5.1.1 READ ROLTINE —- CHECKS READER FOR PROPER STATUS, READS A CARD IMAGE INTO 
LOCATICN /CO28 THROUGH /CO7B8, CHECKS FOR SATISFACTORY COMPLETION OF | 
THE READ OPERATICN, AND DETERMINES WHETHER THE CARC READ IS A BINARY 
CARD GR A HEXADECIMAL (CORRECTION CARD}. 

5ele2 BINARY PACK ROUTINE —= TAKES DATA FCUND IN LOCATIUNS /0028 THROUGH 
/OU78 (12 BITS PER CORE WORD) AND PACKS IT INTO LOCATION /0028. 

THRCUGH /0050 (16 BITS PER CORE WORD). 

5.103 CHECKSUM ROUTINE -- COMPUTES CHECKSUM OF A BINARY CARD IMAGE WAITS IF 
CHECKSUM IS IN ERROR. 

5.1.6 MOVE RCUTINE —— MOVES DATA FROM /0028 THROUGH /0050 TO PROPER CORE 
LOCATICN. CHECKS FOR EXCEEDING CORE SIZE. ACDS IN RELOCATION FACTOR 
WHEN REGUIRED. 

5.1.5 RELOCATABLE HEADER ROUTINE -- ENTERED WHEN A RELOCATABLE HEADER CARD IMAGE 
1S FOUND. COMPUTES A RELCCATION FACTOR FOR PROGRAM THAT FOLLOWS. 

5.1.6 ABSCLUTE HEADER ROUTINE —— ENTEREO WHEN AN ABSOLUTE HEADER CARD IMAGE IS 
FOUND. SETS RELOCATION FACTOR TO ZERO. 

5.1.7 TRANSFER RCUTINE -- ENTERED WHEN A TRANSFER CARD IMAGE 'S FOUND. COMPUTES 
THE NEXT LOCATION AVAILABLE FOR LOADING IF ANOTHER PROGRAM FOLLOWS. 
TRANSFERS CONTRCL TO THE LCCATICN SPECIFIEC ON THE TRANSFER CARD. 
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MEX TO BINARY CCNVERSICM ROUTINE -=- CONVERTS A HEXACECIRAL CARD IMAGE TO 
BINARY. ADDS In eErOcAN TEN: roi oi Tf REGU TALUS 


Care RECOGNITION 


THE FOLLOWING ARE CARD IMAGES WHICH CAN BE LOADED BY THE 1130 RELOCATABLE 
DIAGNOSTIC LOADER. — 


ABSOLUTE HEADER CARD HAVE a 1 PUNCH IN COLUMN &. 
RELOCATABLE HEADER: CARD HAVE A G tZERO). PUNCH. a COLUMN: Ae 


NORMAL DATA CAKES ‘HAVE NO PUNCHES IN ROW 12. IN COLUMN eee AN. ADORESS 
IN ROWS 11 THROUGH 9 IN COLUMN 1 AND ROWS 12 THROUGH 1 IN COLUMN 2. 


A CHECKSUM IN RCWS 2 THROUGH 9 OF COLUMN 2 AND ROWS 12 THROUGH 5 OF 


THRGCUGH 9 CF CCLUPN 4. A RELOCATION FIELD (WHICH MAY BE BLANK) IN 


5204 


COLUMN 3. 4&4 12,5 O PUNCH IN COLUMN 4, A WORD COUNT IN ROWS 4 


COLUMN 5 THROUGH 12. OATA IN COLUMNS 13 THROUGH 72. A SEQUENCE 
NUMBER IN COLUMNS 73-80. 


BINARY TRANSFER CARDS HAVE 125 lle Of 1 PUNCHES IN COLUMN & AND A 


WORD CCUNT OF ZERO (NO PUNCHES IN ROWS 4 THROUGH 9 IN COLUMN 4). 


5.205 


HEXADECIMAL TRANSFER CARDS HAVE A 12 PUNCH IN COLUMN 1, A TRANSFER 
ADDRESS IN COLUMN 2 THROUGH 5 AND NC PUNCHES IN COLUMNS 6 AND 7. 


HEXAOECIPAL CORRECTION CARCS HAVE A 12 PUNCH IN COLUMN 1. AN ADORESS 
IN COLUMN 2 THROUGH §. CATA IN COLUPNS 6 THROUGH 80. 


CATA IS GRCUPEO S COLUPNS TO ONE CORE WORD. THE FIRST COLUMN OF EACH 


— GROUP SPECIFIES WHETHER OR NOT THE GROUP RECUERES A RELOCATION. 


FACTOR. IF THE FIRST CCLUMN OF A GROUP IS BLANK A RELOCATION FACTOR 
WILL NOT Be ADDED. IF THE FIRST CCLUMN OF A GROUP CONTAINS AN.R 
(11,9 PUNCH) A RELOCATICN FACTOR WILL BE ADOED TO THE FIELO. 


LOADING OF THE CARD 4S TERMINATED BY TWO SEQUENTIAL SLANK COLUMNS. 


Ee APPENDIX (NONE) 
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026C 


0000 
G001 
0002 
0003 

0004 
0005 
0006 
0007 
0008 
0009 
000A 

0008 
000c 
0000 
OO00E 
oooF 
0010 
ov12 
0012 
0013 
0015 
0016 
0017 
0018 
0019 
001A 
0018 
001€ 
0010 
CO1F 

0020 
0021 
0022 
0023 
0024 
0025 
0626 
0027 


2Sleoce ose ls eee SoC e rece eS ooeeeee reel eres S 


0028 


0050 
0028 00 


002A GO. 


002C 00 
OO2E 00 
0030 O. 
0031 0 
0032 0. 


0633 00. 


0035 0 


0036 00 


0936 OC 
003A 00 
-003C OO 
OO3E O. 


003F 00 


0041 
0042 
0043. 
0044 


eoo0o 
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7011. 


6000 
0000. 


0000— 
- 0000 


C000. 
0000 
0000 
0000. 


0000 


0000 
0000 
0081 
0000 
0000. 
0000 
0000 
0000 
Coos 


84000000 | 


DooB 
COFD 
8008 
DOFB 


F008 
. 4820 
. TOF6 


C004 | 


40180028 - 


30F1 


- 7007 


5118 
0160 
0001 
0000 
0000 
0000 
0000 


0028 


6COOTFFF 
6500008 1 
6000000C. 
6700015C 
7302 
10A0 
DBO2 


ABS 
ORG 


MDX. 


STRT 
CSADD 


CHKSM 
LAST 
K0001 


DC 
DC 
DC 
OC 
OC 
OC 
DC 
DC 
DC 
oC 
DC 
DC 
DC 
OC 
DC. 
OC 
oc 
LO. 
AL 
STO 
LO 

A 
STO 
EOR 
BSC 
MDX 
LD 


ut 


BSC Lt 


WAIT 
MDX 
DC 
oc 
oC 
DC 
DC 
oc 
oc 


BSS 


ORG 
STX L 
LOX Ll 


~STX. til 


74000000 .. . 


OFA 
C4007FFF 
¢C18003F. 
6FCO015F. 


C400015F 


30F4 
6F00015 
703C 
0000 


0000 | 


0000, 


15NOVE6 


419643 © 


 W3OF4 
* 


CORES 


LDX L3 
MDX 3 
SLT 
STD 3 
MDX L 
MDX 
LO 

STX L3 
LD 

WAIT. 


STX 1.3 
MDX 
oC 


dC 


oC 


-159UN67 


420317 


. 
STRT | 


_ CHKSM 


peers 
CHKSM 


CSADD+1 ~~ 
- K0Cc01 


CSADD+1 


LAST 


Z 


- STRT 

CHKSMS : 
COREst=- — 
7215 . 


CORE 
/5118 
END 
0001 


40 


MODIFIED FROM O TO END 


“MODIFY. ADD INST 


~ CHECK FOR END 
SKIP IF FINISHED 


SUM OF ALL WDS IN LOADER 
BR IF CHECK SUM ZERO 
CHECK SUM ERROR 


. or. hue 
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3AC00000 





2191286 
, | 


3ACO0010.. 


3AC00020 


3AC00030. 


34000040 
34C00050 
3AC00060 
3AC00070 | 
34C00080 
3AC00090 
3AC00100 © 
3AC00110 
3AC00120. 
34C00130 
3AC00140 
3AC00150 
3AC00160 
3aC00170 
3AC00180 
3AC00190 
3aC00200 
3aC00210 
3aC00220 


‘3AC00230 


3AC00240. 
3AC00250 © 
3AC00260 
3AC00270 


3acCo0280 ~. 


3AC00290 
3AC00300 
3AC00310 
3AC00320 


' 3ACT00330 


- 3AC00340 


- 3AC00399 | 


DEFINES INPUT AREA 


THE INPUT AREA IS OVERLAID 
_ BY THE FIRST RECORD OF THE PRUGRAM 
READ INe - ae 


INPUT | 
/TFFF 
INTE 
/C. 
END-4 
2 

32 

2 ; 


CORE2 


Lt /TFFF 
BSC L 

t 

L 


CORE3¢+- 
ULIM 
ULIM 


ee ¢ 


ULIM 


— ROCD 


7000090 


INTERRUPT TR VECTOR © 


SKIP. IF ZERO CLEARED 


CK IF LAST ADR CLEARED 
BR IF CLEARED - 
FETCH THE LaST ADR 


A = BIT THAT FAILED 


CAN NOT CLEAR CORE 


ADDRESSING BIT FAILED 


SET THE CORE SIZE 
GO LUAD PROGRAM 


3AC00350 | 
3AC00360 
3AC00370 | 
3AC00380_ 


3AC00400 
3AC00410 
3AC00420 
3AC00430 
3AC00440 


-3AC00450 


3AC00460 
3AC00470 
3AC00480 


3AC00490 _ 


3AC00500 . 
3AC00510 | 
3AC00520 . 
3AC00530 
3AC00540 
3AC90550. | 
3AC00560 
3ACO00570 | 


3AC00580 __ 


3AC00590 
3AC00600 
3AC00610 
3AC00620 
3AC00630 


3AC00640 


3ACO0650_ 
3AC00660 
34C00670 


PROG ID 
PAGE 


03AC-2 
l 


oo Oe ell 


oo 86266 to oe 


p ) 
»7y ) 
Jo 
3 
3 
3 
»g 3 
dq 2 
,q 8 
3 
5 
? 
5. 
a 
5 
> : 
) 2. 
1 > 
to3 
foo 
yly 
ee 
yy <2 


TBM MAINTENANCE DIAGNOSTIC PROGRAM 


0045 
0046 
0047 
0048 
0049 
004A 
0048 
004C 
004D 
004E 
004F 
0050: 
005} 
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0055 
0056 
0057 
0058 
0059 
005A 
0058 
005C 
005D 
O05E 
OO5F 
0060 
0061 
0062 
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0064 
0065 
0066 
0067 
0068 
0069 
0064 
0068 
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COGE 
O06F 
0070 
0071 
0072 
0073 
0074. 
0075 
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0077 
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0070 
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- 0000 - 
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D340 
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- DOC 


DC 
DC 
OC 
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DC 
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DC 
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oc 
DC 
OC 
OC 
OC 

oC 
BC 
oc 
oC 
DC 
DC 


oC 


oc 
Oc 
oc 
OC 
oc 
oc 
DC 
DC 
oc 
DC 
DC 
oc 
oC 
OC 
DC 
OC 
Dc 
oC 
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LOAD x19. 


AND 
BSC 
LO 

STO 


DCL 


LOX 


15JUN67 
420317 


Lox. 
STX 


| aad anad 


FOR THE 1130 SYSTEM 


THESE DC STATEMENTS 


' ARE NECESSARY: TO CLEAR | 


THE LOCATIONS FOR . 
CHECKSUM 


TIT P rrr rrr or T Te PT Pee Terre re rer rt tt er et tt tt ae 
_® ps 


PAPER TAPE LOADER 
SENSE DSW 


SENSR-1 

«0200 ~ CHECK FOR READY 
MLCDe2 BR 1F NOT READY 
INTAD 

140 INTERRUFT TR TASLE 


READ TAPE RECO2D- AND PACK INTO. 
LOCATIONS /0028 TO 0050 


28 
STORE+) 


54 


3AC009TO 


& () C) & | ¢ 


2 ' 


PART NO. 2191260 
PAGE OIA 


3AC00680 
3AC00690 
3AC00700 
3AC00710.. 
3aAC00O7T20... 
3AC00730- 
3ACO00740-.- , 
34500750. 


- 3BACO0760 | 


3AC00770 
3AC00780 


- 3aCCO790 


3AC00806 
3ACCO08;30 


-3AC00820 


3aC00830. 
34C00840 
3AC00850 
3AC00860. 
3AC00870. 
34C00880 
3AC00390 
3AC00900 
3AC00910 
3aC00920 - 
3AC00930_ 
3AC00940. 
3AC00950 
3AC00960 


3AC00980 

3AC00990 sit "hun | 
3AC01000 ~— “4 
3AC01010. a 
3AC01020 
3AC01030 | 
3AC01040 st 
3ACO1050 ts 
3AC01060 _ - 
3AC01070._... - 
3AC01080 oe | 
3ACO10S0 . : 
3AC01100 - ’ 

3AC01110 

3AC01120 

3AC01130 — 

3aC01140 — 

34C01150 

3AC01160 | 

3AC01170 -. 

3AC01180 

3AC01190 

3AC01200 

3AC01210 © 

3AC01220 2 

3AC01230 — 

3AC01240 





 3AC01250 


3aC01260. 
3aC01270 
3aC01260 
3AC01290. 
3AC01300. 
3aC01310 


3ACO1320 © 


3AC01330 
3ACO1340_ 
3AC01350 - 
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008A 
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. OOAD. 
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- 00B0 
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— 00BS 


0081 
0084 
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OO6F. 
0091 | 
0095 
0096 
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0090 


OO9F. 


OOA4 


-OOA5- 
00A6 
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OOAE. 


00B2 
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4C 2000AF 
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F018 
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Co1D 
1808 
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NRDY»Z 


~" RDRLP 
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-. K7EOO 


LDRO3_9+— 
CHAR 

8 
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RDRLP 
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24 


RDRLP 
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8 
Poe 


STORE+1,51 © 


WOCNT el 
LDORO4 
0 


_ CHHDR 


'  JECFO 


/1FO1 
/0C0O0 


/7F00° 
/1F00° 
CHAR 


71400 


-, 40200°-— 
‘ “40001 
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INTE 


pak 


*—% 
+¥—* 


-8 

RDCD 

am & 
SENSR=1 


RORLI 


Sm 
STRDR=-1 
SENSE-1 
KECFO 


— KOCO0 


SLA 

LORO] STC 

‘Mi’? 
MDX 
* fT eer 
x10 
| AND 
; BSC Lt 
. 
LORO3 BSI 
to 
EOR 
BSC L 
to. 
SRA 

; STO 

& 

LORO4 BSI 
to 
 §RT. 

. 

BSI 

LO 

RTE 
STORE STO L' 

MDX L 

x 

st ADX L 

., MDX 

. LDX 
| MDX 

oe , 

: ae 

KECFO DC 

SENSR. DC 

KOCOO OC - 

STROR OC. 

K7FOO DC 

SENSE DC 

RDIN DC. 

* pC 

* ? = 

KO200 DC 

ONE2 0C 

ADRS DC 

INTAD DC 

CHAR DC 

WDOCNT DC 

DATA DC 

NRDY WAIT 
- MDX 

INTE DC. 

| x10 

MDX 

RDRLP OC 

| x10 
X10 
AND 
-EOR 
BSC 
MDX 

* : 

RORL1 XIO- 

| BOSC 1 
i‘ 
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CHECK READY 
BR IF NOT. READY 


390 READ A CHAR 
OAD CHAR READ 
CHACK FOR DELETE 
BR IF DELETE 
FIRST CHAR 


WORD COUNT 
READ A CHAR 


LOAD THE CHAR RAAD 
SHIFT TO LOW ORDER Q 


~ 3ACO1460 © 


READ SECOND HALF-nkORD 


LOAD SECOND HALF 
STORE: PACKED WORD 
INCRE STORE ADDRESS 
SKIP WHEN FINISHED 


CLEAR XR 
BR TO CHECK HEADER 


SENSE RESET 


- START READER 


READ A CHAR 


WORD COUNT 


READER NOT KEADY 
TRY AGIN | 


SENSE RESET 


START READER 

SENSE DSW 

MASK PUNCH BITS 
CHECK FOR BUSY, NRDY 
SKIP IF ANY CHANGE 
LOOP UNTIL CHANGES 


READ A CHAR 


SHIFT TO COMBINE HALVES. 
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4C200158 
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¥ 


* 
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* 


* 
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BSC LL 
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S 
BSC L 
S 
ssc UL 


MF RE Me RR eR A RR RR A A eR Re ME A I a ae a a 


CHECK HEADER | 
2 ea a eR ee ea a a a RR A a a a aR a a a AR a a a a a a 


1 sINPUT+¢2 


MLCD,t+- 
_ LB20 
~tB25 


ABHED?+=— 


—LB25 


 RLHED, +~ 


_® THIS RT DETERMINES WHETHER THE DATA CARD 1S 
* 1) ABSOLUTE HDR CARD 2) RELOCATABLE HDR CARD- 


CK FOR HDR CARDS 
BR TO USER - BLANK CD 


BCH IF ABSOL HEAD CARD 


BCH IF RELOC HEAD CARD. 


TTI TtTTTTTT TT TT TTT TTT I TLL TT TT TT TT tT TT TTT Ty 


CHECK SUM 


A A A A A aR a a a a EE 


*. THIS ROUTINE ADDS COLUMNS 0 - 72 


x 
* 


TO CHECK THAT THIS SUM PLUS THE CARD 
SEQUENCE NUMBER EQUALS ZERO . .- 


\ 


SSeS SS Se SSS Se Se SSeS > iy GD Gia Gate Gee Ge GE Gm 


* 


CKSM1 


cae | | 
BRCII Titi tier irri pr rrr rrr rer tire rr ttt. te tt. te 
i: 
MR a a a ea a a RR a a a a a a 

* THIS RT PLACES DATA FIELOS INTO THE CORRECT 
CORE LOCATIONS AND ADDS IN A RELUCATION 
FACTOR IF REQUIRED-: 


og 


LOX 
BSC 
MDX 
MDX 


BSC L 


MDX L 


= | 

CKEOP LD 

| SLA 
SRA 
STO 
BSC L 

* 


A 
A L 
S 
BSC Lt 
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CKEOP,+— 


COCcT 
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Cc 
ONE] 


CKSM1 


ONE2 © 
CKSUM,Z 


CDCTe1 


1 INPUT4+2 
8 
8 

1 INPUT+2 


EOP ,+—- _ 


1 INPUT 
UPPER 
ULIM 
OVCRe- 


LD CHECK SUM 
SKIP CKSUM IF. ZERO. | 


ADD WORDS 1 TO 54 


BR IF CK SUM ERR 


ADD 1 TO CARD CT 


GET WORD COUNT 
CLEAR CARD CUDE 


SAVE WORD COUNT 
EOP IF WC = ZERO 


SUM WC+STO ADDRS+RELOC, — 


BR IF OVER CURE 


RELOCATE AND STORE 


1 INPUT 


LD STORE ADDKS 
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OOFS 
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OOFD 


0100 
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0104 0 
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0107 
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0109 


010B 
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010F 
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8400015D 
DOOB 
66000028 


63F8 


C200 
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1082 
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T0F2 
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7OED 
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TOF 1 
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0100 


Co57 
9058 


D056 
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“69FB 
OOTE 


clea. 
8052 
DOSE > 


C12B 
804E 
DOO) 
4C000000 


419543 


“ESNOV66 | 


A tL UPPER RELOCATE STOKE ADDRS 


Pees eta casera iusseeecassccensssee ees 


& HEADER AND EOP CARDS 


SRKKKCKKCCKKCKKCKKKKEKKKCRKKSERSKSKKKKKECKKESKRKKKKE 


9 ow ee am om 00 a ar oe rr re ae OOOO SOEs Seow owas eae 

* THIS RT. HANDLES RELOCATABLE HOR CARDS. 

Reser enemas ee owe wwwowwwene > A 6 oe 6 OP OP a Om OP oe oe ee ae 

* 

RLHED LD NLOC COMPUTE RELOC FACTOR 

S RLBA 

* 

fee eee ewe ee SOO we Bw Oe weer en Sew mor oewe 

* THIS RT. HANDLES: ABSOLUTE HDR CAROS. 

SF oe om oe o> oe om re we re OO OOOO OOOO OO SOO Bewwowoerwe 

* 

ABHED STO UPPER 
ae ieee  INITALIZE CARD. COUNT. 
~$TxX © ¥ CoOCT. Le ee 
Lox he ROCD ~~ 

*. ®. a ee ee eae eee re 

i sa Se : 

* THIS ROUTINE HANDCES ENDO OF PROGRAM CARDS» 

: enn re eee Tame ea eee aoe Tea e oe 
. , 
EOP LD: oe INPUT. pe oe 
A UPPER: tee Ret, 
* §T0 Sn oee SET NEXT. AVAIL Loc Bh ees - 
* LOD 1 INPUT#3 LD TRANSFER ADDRS ~ , 
Apa hie Coa ae 
E0PL. Ride aie TRANSFER. To PROGRAM 


Me 


seecesenacenecesseauneuesesesoensanensesnesee ~~ 


* ae =HEX: DATA, ROUTINE. 


COREL GE EEEREAORRARE CAE SREAT RHEE RRR R ERR RR 


* THIS ROUTINE CONVERTS HEX CORRECTION 
* DATA TO BINARY AND STORES THE DATA. 


~APSYUNGT Foto 


420317 


STO STORS41 
LOX L2 INPUT+3 XR2 = RELOCATION CODE ADOR 
¢.- 
STOR] LDX 3 -8 XR3= REL BIT CNT 
* 
LO 20 LD NEXT RELOCATION CODE 
RTE 16 STO IN EXT REG 
STOR2 SLT 2 BRING IN NEXT REL BIT 
BSC t STOR6sE BR IF RELOCATE 
Pe 
SRA 16 
STOR3 A 1 INPUT4+9 ADD NEXT WORD 
STORS STO Ll *-* STO IN PROGRAM 
MDX L INPUT+2 9-1 DECR WORD CNT 
MDX ‘STORS SKIP WHEN WC = O 
LDX ROCD FINISHED 
* 
STORS MDX 11 ~ ADV WORD AND STO ADRS 
MDX 31 ADV REL BIT CNT 
- MDX STOR2 
MDx 21 ADV TO NXT RELOC wD 
MDX STOR 
x 
STOR6 1D £L_ UPPER LD RELOC FACTOR 
MDX STOR3 GO RELOC ADOKS 
=. 2 
coct oc t—% 
L820 DC- /OFOO 
L625 oc 40100 


—,, 
~ 


PAKT NO. 


PAGE 


3AC02720 
3AC02730 
3AC02740 
3AC02750 
3AC02760 
3ACO2770 
3AC02780 
3AC02790 
3AC02800 
3ACO02810 
3AC02820 
3AC02830 
3AC02840 
3AC02850 
3ACO2860 
3AC02870 
3AC02 880 
3ACO02890 
3AC02900 
3ACO02910 
3AC02920 
3AC02930 
3AC02940 
3AC02950 


3AC02960 | 
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0112 0. 
0113 00 
O115 00 
0117 0O 
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0132 0. 
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O14C 0. 
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40280134 
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 TOFA © 


colic 
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74010149 
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Ge ce et SOO 8 OOOO SO OO OW WO SOOO SOSOODO OOO 
. | 
HEX STO — HE224¢1 CLEAR STORE ADDRS 
 tD CL &DRS 
-"§TO' LL DATA 
HEX] LD I DATA LOAD RELOCATION BIT. 
' §TO -* RLREO STO RELOCATIUN BIT 
MDX L DATA) ADV TO NXT WORD 
‘ | } 
IES chad a> 0 AnD aD ON OR WES ED OD OD GAD OP ele OD OPED ES ED OD tv am am Ow Ge ae Ee GP aD OE ED ED OP OF OP eRe CD anew ae 
* CONVERT HEX TO BINARY 
3K > aw ens cae 0 Om ae eae ae ae Om ne om a oe oe om oe 0m ow ae oe om a Oe OP a On Om 0 OD a OD ED OD OE ED ew 
* es 
HE10 LO FOUR 
~$To0 INDX1 
_ SRA 16 
HE1]) StA . 4 
- §TO- TEMP 
- SRA 16 
~$TO INDX2 
- “LO I DATA CK FOR BLANK COLUMN 
: “BSC tL RDCD,+- FINISHED - LUAD NEXT CARD 
* : 
Bsc L HELLA»- BR IF NOT A-F 
"MDX L  INDX299 ADD 9 FOR ALPHA 
= Boga PS 
HELIA'SLA = 3 ELIMINATE ZONE BITS 
~- BSC tL HE14,4- XF+R 1F HEX CHAR = O 
= MOX LE INDX2e1] | | 
HE12 BSC Lb  HE13—+Z XFER IF BIT IS FOUND 
SLA > =) PREPARE TO LK AT NEXT BIT 
| ee HEL2=2 
Ses Ss a 
HEI3— “LD* > ENDX2 = LOAD BINARY BITS 
HE14 “OR *> TEMP’ ADD TO PREVIUUS CHARS 
MDX LL DATAs1 
MDX -L INDX)Ds=2°- 
“MDX HE11 
so 
Hemme en- ~~ i at aaa Sen ae eee ee ee 
* FINISHED - CONVERTED WORD IN ACCUMULATOR 
ee 
‘MDX Lb HE224+1.0 SKIP IF STO ADRS 
MDX © HE21 BR IF DATA 
* : 
a.’ UPPER RELOC STO ADDRS 
~ §To HE22+¢1 
LD- L INPUT+6_ LD NXT WORD 
- BSC JI) HE224¢1e+- BR TO ADDRS IF BLANK 
os MDX HEX1 CONV NXT WORD 
go: 
HE21°- MDX". L  RLREO,0 SKIP IF NO RELOCATE 
Cl Whe UPPER > 
HE22 STO*L 4-8 _ STORE DATA 
-.) MDX Lb HE2241921 ADV STO ADDRS 
os MDX HEX) CONV NXT WORD 
se RT gt OG ; 
a i 
TEMP DC me TEMP STORAGE 
FOUR’ 0C 4 | 
FOCD: OC’ '/71402 FEED CARD 
INDX1 DC *#=% | 
INDX2 DC) > em St ge 
RLREQ DC 7) oes HEX RELOCATION SITS 
| NOP 
9 NOP 
FE aVE DEE? /FRFEF TAPE LOADER SWITCH 
* 1 
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. PAGE 
1231 GPTICAL READER 
TABLE OF CONTENTS 
PARAGRAPH © PAGE 
he PURPOSE e 2 ® @ @ e e @ @ e @ hah oe @ e e @ e e @ e @ e eo ®@ e e e 1 
Ze REQUIREMENTS e e e ee @ e & @ Z e e @ ~~ ‘* e @ e e @ e e @e @ e oe . 1 
2e1 PROGRAM REQUIREMENTS. 
2e2 EQUIPMENT REQUIREMENTS 
36 OPERATING PROCEDURE @ @ eo @ e@ e e e e@ @ @ e @ @ @ es @ @ @ e e - lA 
321 PROGRAM LOADING 
302 PROGRAM OPERATION 
3e2e1 PROGRAM CONTROL — FUNCTION O 
Be2e2 ROUTINE SELECTION = FUNCTION 1 
— Be2e3 1231 OMPR SETUP. 
303 HALTS 
303-1 NORMAL HALTS 
3e3e2 ERROR HALTS 
304 PROGRAM TERMINATION 
3-5 RESTART 
Se PRINTOUTS ee 5g ee3soeeee.e8e8ee8 © @© &©6——hhUcOrmhC OhClHhlUh OhUlUCcOlhlCrOhlOhlUcrhlUlhlU 3 
&el STATUS MESSAGES 
4e2 ERROR MESSAGES 
Se COMMENTS eo ® e e e @ ea @ eo ®@ e ® e e e e@ 6 e@ e t e@ eS e @ @ e@ @ 4A 
le PURPOSE 
THE 1231 OMPR DIAGNOSTIC PROGRAM CHECKS THE OPERATING PERFORMANCE OF THE 


1231 OMPR. | 


2e PREREQUISITES 


2e1 


2e2 


EC ND. . 


‘15JUN67 
420317 


PROGRAM PREREQUISITES 


THE 1231 OMPR DIAGNOSTIC PROGRAM MUST BE RUN UNDER CONTROL OF THE 
1130 SYSTEM DIAGNOSTIC MONITOR. 


EQUIPMENT PREREQUISITES 

THE FOLLOWING EQUIPMENT IS REQUIRED. 
A.. 1131 CENTRAL PROCESSING UNIT (CPU) 
6. 1231 OPTICAL MARK PAGE READER 7 
Co PROGRAM INPUT DEVICE. 


eeeesesses 


~ PRUG ID 
PAGE. 


2243555 © 
' 0001 


0314-8 


ooo1 


oo ® 


5 








Tee MAINTENANCE DIAGNOSTIC. PROGRAM FOR THE 1130 SYSTEM 


aw 
- 


«123A OPTICAL READER 











PART NOD. 


PAGE _. 0OOLA 


3e OPERATING PROCEDURE 


3.1888 PROGRAM LOADING 


s, : : STANDARD MONITOR LOADING PROCEDURES APPLY 


- THESE PROCEDURES ARE SUMMARIZED HERES 
0 : DETAILS. 


le 
. JS Ze 


4e 


LOAD DIAGNOSTIC MONITOR. 


SEE DM USE PROCEDURE FOR 


SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 
SET BIT SWITCH 15 OFF - LOAG AND GO 

ON = TF HALTED AFTER LOADING» SELECT 
PROGRAM OPTIONS THEN TURN OFF 
HALT SWITCH OR FOLLOW NORMAL 
RESTART PROCEDURE (SECTION 3.5) 


SELECT PROGRAM OPTIONS, IF DESIRED. 
SERRE ; 


3e2*** PROGRAM OPERATION. 


- FOR 
MONI 


le 
Ze 


vey 3e 


THE 


. le 
See 


DATE | 
} - —EC NO. 


“W5uune7 
420317 


THESE OPERATING PROCEDURES APPLY TO SINGLE PROGRAM OPERATION ONLY. 


OVERLAP OPERATION REFER TO SECTION 3.223 OF THE 1130 DIAGNOSTIC 
TOR I] DOCUMENTATION. 


PROGRAM CONTROL - peer 0 


SET SWITCHES O-1. OFF. 

SET PROGRAM LOADING SEQUENCE NUMBER IN SWITCHES 4-7. 
(ONE UNLESS RUNNING OVERLAP) 

SET SWITCHES 8-15 AS DESIRED. 


SW FUNCTION 
8 = RESTART | 
9 ROUTINE START MESSAGE 
10 LOCK ON FUNCTION 
11 LOOP PROGRAM 
12 LOOP ON ERROR 
13 BYPASS ERROR PRINTOUT 
14 HALT ON ERROR 
15 HALT 
FRESS INT REO KEY ON CONSOLE} 
ee 


ROUTINE SELECTION - - FUNCTION 1 


SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED. 


SET SWITCHES O-1 TO Ol. 
SET PROGRAM LOADING SEQUENCE NUMBER IN SWITCHES 4-7. 


(ONE sieseas SUNNING OVERLAP) 


PROG 1D 
PAGE . 


0314-8 
-. QOOLA 
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3e SET ROUTINE NUMBER IN SWITCHES 12-15. 


ID GND CE SE GRY GED GO aS GED Gi GRE WEY RD GM wie Ge? Gee Qiks UE GHP Wer EP GEO Tae Gi Gan Cie Gr a ta GRE HD Ae dr ae ie Gi E> Gea Gar re oe > Ge Hie Gee Ge Ce Ce CEP ahr Eb Gea Sere ap =D 


RTN DESCRIPTION 


I READ DOCUMENTS AND « NORMAL ROUTINE 
COMPARE . ° | 
a ee "MASTER MARK TEST e SELECTIVE ROUTINES 
3. * - ALTERNATE. SELECT” e THESE ROUTINES RUN 
. e eae Ses e ONLY IF SELECTED. 
_& . #., READ DOCUMENTS», 0! ° 
COMPARE Beene » 


a ‘m REFER TO SECTION 3.263 FOR SPECIAL INSTRUCTIONS.» 
** = OPTIONAL FEATURE TEST / 


4e PRESS INT REO KEY ON CONSOLE. 
BBRCKSS 


1231 OMPR SETUP 


THE 1231 MUST BE SETUP AS FOLLOWS. { 
| 7 rere 7 | af 

le ROUTINE 1 USES THE 1231 ONLINE TEST 
— DOCUMENTS P/N 648746. 


2. A CONTROL SHEET WITH COLUMNS 8 AND 18 
MARKED IN ALL ROWS SHOULD BE USED. 


3. SET 1231 SWITCHES AS FOLLOWS.* 


REKEEEEREEESSEHRERASERESEEESESESSESEESERERERE ESSE 


* SWITCH ; e RTN e SET * 
Re ee et ee ee re ee ee oe ee re me ee ee a een wee & 
 *® FIELD CHK e ALL e« AS REQ*D * 
* e e * : 
* TIMING MARK 2 1 « 6 & ” 
* CHECK — © 2-4 « AS REQ*D i 
s _ e ° & 
* FEED MODE e ALL « ON-DEMAND ® 
x e e % 
* CONTRL . | e 1. e« YES % 
© TIMING © ‘ ee. ® 
* MARKS © ° 2-4 AS REQ'*D 
CESS REC ERERERESERERHOSEREEERTEESEERSESEEEETS 


* SEE 1231 SRL FOR DETAILED DESCRIPTION. 


303%%* PROGRAM HALTS 


32301 (NORMAL MALTS 
“GHALT NO. DESCRIPTION. e ~ RESTART ° 
e(B. REG). | — ACTION ° 
1 @ ee Se ee Pe SP OE OS OP OOOD@O@ od ees = e ip i Grr Ge Gp a> G> Gm Gr EEG Gh GP GP PSP GD OP PP EES CSD e 
e 3001 . PROGRAM STOP OR ADDRESS STOP PRESS START e 
@e a e @ 
e 3002 . HALT ON ERROR ‘ DISPLAY MODE-PRESS START. 
° is | %* RUIN MODE = PRESS START ¢. 


DATE 
EC NO. 


420317 
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one PAGE. . 
1231 “OPTICAL READER a 
3.302 ERROR HALTS 

SHALT NO. DESCRIPTION . RESTART : 

o(B REG). a ACTION i 

» 30Fl . CHECK SUM ERROR ON FIRST e RELOAD : 

‘ : CARD OF LOADER ; : 

. 30F2 =. --READER DSW ERROR WHEN ove, RELOAD. | : 

° os es ~sLOADING -LGADER - ° ° 

e 30F3°° a. ~ CARD, ee re Des. RELOAD - ; 

: : LOAD ‘ 7 

. 30F4 . CAN NOT CLEAR CORE - DUE TO . ; 

., . ERROR IN ADDRESSING UPPER ‘ : 

© ° CORE. : e @ 

. 30F5 4 READER CHECK WHEN LOADING » NPRO THEN PLACE CARDS . 
i. . MONITOR OR TEST. PROGRAM 2 RUN OUT IN FRONT OF 2 
e e Z a eae os! ° REMAINING DECK AND PRESS.e 

e e @ START. oe 

» 30F6 MONITOR pip NOT LOAD. «  RELGAD : 

. 30F7 CHECK SUM WHEN LOADING «RELOAD : 

: : MONITOR - | 7 

. 30F8 . READER NOT READY 2 MAKE READER READY : 

» 30F9 . INVALID INTERRUPT WHICH WILL » PRESS RESET AND START 

‘ ‘ NOT RESET 3 - | 

e@ e © .) 

. 30FA . CONSOLE PRINTER HANG UP - 2 FIX THE CONSOLE PRINTER « 

‘ ; BUSY WILL NOT GO OFF » OR NOP THIS WAIT ; 


SRESKE 


3e4*%% PROGRAM TERMINATION 


- IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
, AT THE <ND OF ROUTINE 1. ROREDNE 2-4 WILL ONLY RUN IF 
SELECTED. 


IF ANY ROUTINE iS SELECTED THAT ROUTINE WILL Loop AND WILL NOT 


TERMINATE. 
aeeeee 


3e5%"e RESTART 


DATE. 
EC. NGe- 


—YSuUNET 
@20317 = | 


Le SET SWITCHES O-7 TO Ol. 

2e TURN ON SWITCH 8. 

36. SET DESIRED CONTROL IN SWITCHES 9-14. 

Ge PRES INTERRUPT REQUEST KEY. 
CEKEREEERS 


PAGE | 


BS gos a ~ a . ae ei . Bos . a aerK Pa 
oe Bee ee ee ee ae ee ee ae 
sl Nah te Jal tek ack tak “kg 
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4e PRINTOUTS 


ALL PRINTOUTS 


APPNN GORR AAAA 


OR 


EPPNN OORR XXXX 


ARE IN THE STANDARD FORMAT. 


(MESSAGE) 
(MESSAGE) 


WHERE A IDENTIFIES STATUS MESSAGES 

E IDENTIFIES ERROR MESSAGES 

PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 
THIS WILL BE EITHER OO FOR MESSAGES 
ORIGINATED 6Y THE MONITOR OR O3 FOR 
MESSAGES ORIGINATED BY THIS PROGRAM. 

NN IS THE MESSAGE SEQUENCE NUMBER 

RR IS THE ROUTINE NUMBER 

AAAA IS THE ADDRESS OF THE ROUTINE 
MESSAGE IS ANY VARIABLE INFCRMATION. 


4o1*** STATUS MESSAGES 


A0000 


A0001 


NUM PID ADRS RELF LD 
XXKX XXXX XXXK AXAXXX- 


THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR). THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, THE 
PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, AND THE 
RELOCATION FACTOR. 


SWS PID 
XXXK XXX 


THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ BY TH 
MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ TOGETHER WITH 
THE PROGRAM ID OF THE PROGRAM INTO WHICH THE CONTENTS OF SWITCHES 
8-15 WERE STORED. IF THE SWITCH ENTRY CALLED FOR HALT OR RESTART OF 
ANY PROGRAM THE WORD HALT OR RESTART WILL FOLLOW THE MESSAGE. 


A0300 OOOR AAAA 


A0301 


A0302 


A0303 


DATE 
EC NO. 


ROUTINE START MESSAGE — IF SWITCH 95 FUNCTION O, IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. | 


OOOR AAAA 1231 NOT READY 
THE 1231 IS NOT READY. MESSAGE WILL BE REPEATED EVERY 15 SEC. AP- 
PROXIMATELY. 

OOOR AAAA 1231 HOPPER EMPTY 


ooo. 


BEFORE STARTING AN OPERATION, THE PROGRAM HAS FOUND THE HOPPER EMPTY. 
MESSAGE WILL BE REPEATED EVERY 15 SEC. APPROXIMATELY. 

AAAA TOO LATE TO SELECT 
IN ROUTINE ONE>, THE DOCUMENT JUST READ HAD THE SELECT BIT IN WORD 


91 MARKED, BUT THE OK TO SELECT BIT IN THE DSW HAS TIMED OUT. THIS 
COULD BE DUE TO ERROR MESSAGES DURING THE READING, OR DELAYS DUE TO 


OTHER PROGRAMS OVERLAPPING. IF. THESE DELAYS HAVE NOT OCCURRED, AND 
THIS MESSAGE PRINTS» CHECK THE OK TO SEL SINGLE SHOT. 
15 JUN67 PROG ID> 
420317 PAGE 


2243555 
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0003 
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4e2%8* ERROR MESSAGES 


RERKESKKEKKEKKESKKKKKKSELKKKKSHSKECKERESKKKK KCK SEKKSSKKSEHE 


* THE 1231 DSW * 
SR ee ee ee we er ee ee ewe we we we we 8 we OO OO OS onrere om om ree axe I 
x 
* BIT 
* 0 READ RESPONSE 
% 1 T™ MARK ERROR 
* 2 READ ERROR 
% 3 MASTE DATA 
x & OPERATION COMPLETE 
* 5 OK TO SELECT 
* 6 FEED BUSY : : 
: * 7 DOCUMENT SELECTED BY OMPR. 
; *« 8 TM CHECK BUSY 
j * 9 HOPPER EMPTY 
j * 10 NOT USED 
! * 11 NOT USED 
i * 12 NOT USED 
i * 13 READER BUSY 
' * 14 BUSY 
i * 15 NOT READY 
i x 


KEKKEKKKKKEKRSEKCKERKKKEKEKKKKECKSKKEKKCKRKKKKK KK KK KCKCKKIEK SSE 


£0001 SWS  INVLD 
XXXX 

THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PRGSRAM IN CORE} 

E0003 OVR CORE 
THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 

E0004 CKSUM | 
A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM. 
Ti4IS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. | 
le A CARD IS MISSING OR IS OUT OF SEQUENCE. 
2e THERE IS AN EXTRA CARD IN THE DECK. 
3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 
Ge DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 
5. DUE TO A CPU MALFUNCTIONe THE CHECK SUM WAS NOT 

CORRECTLY CALCULATED. : 

WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 

£0005 OOON XXXX 


THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSw 
WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSWe 
BY A BOS]. 
THE REQUEST BIT. 


WAS - S/B DSW ERROR INITIALIZING 
XXXX XXX 


E0301 O0OR AAAA 
MODIFIERS SHOW OSW SENSED BEFORE ANY OPERATION WAS STARTED. 


15JUN67 
420317 


DATE 
EC NO. 


SeRRHRHARERHBRHAHRERBRR ABA S 


THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
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PAGE 
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PAGE 
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E0302 


E0303 


E0304 


£0305 


E0306 


EC NO. 


O00R AAAA 


0002 AAAA 


0001 AAAA was - S/B DATA ERROR 


MXXX - XXXX DDODD 


DATA FROM DOCUMENT DID Not COMPARE EQUAL. 
MODIFIERS (XXXX) SHOW HEX REPRESENTATION 
OF THE WORD IN ERROR. HODIFIER (ODDDD) 
IS THE wURD NUMBER. THE MESSAGE WILL 
BE PRINTED Ok EACH WORD IN ERROR. | 
0001 ‘AAAA WAS - S/B LATE READ CALL OS& 
XXXX XXXX | 


A LATE READ CALL WAS GENERATED AS A RESULT OF A MARK IN WD 92, AND 
THE DSW IS NOT CORRECT. THE MACHINE SHOULD GO NOT READY WITH REFEED 
SEi DOC LIGHT. 


WAS - S/B INTERRUPT DSW ERROR 
XXXKX XXXK 


THE OS® SENSED IN THE INTERRUPT ROUTINE DID NOT APPEAR AS EXPECTED. 


WAS” - S/B- DSWe MASTER MARK NOT INDICATED 
XXXX XXXX 


THIS MESSAGE INDICATES THE OSW IN WHICH THE MASTER MARK BIT WAS EX- 
PECTED BUT NOT RECEIVED. THIS WAY BE DUE TO CIRCUIT PaLCURSE OR THE 
MASTER MARK SWITCH BEING OFF. 
OOOR . AAAA _ NO INTERRUPT DSW 
XXXX 


A READ WAS INITIATED, BUT NO INTERRUPT OCCURRED WITHIN 2 SECONDS. 
THIS MAY BE DUE TO READY CIRCUITSs INTERRUPT GENERATION, OR FEED 


PROBLEMS. 
bh DSJUNGT Ogee OP nahi ase ae sy wale pnwg PROG id: 
420317 | PAGE 
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5. COMMENTS 


5el 


502 


DATE 
EC” NO. 


ROUTINE 1 - READ DOCUMENTS AND COMPARE 
THIS ROUTINE READS THE ON-LINE PREPRINTED DOCUMENTS AND COMPARES EACH 
WORD PROGRAMMED: IN THE.-1231 TO A TABLE. ANY COMPARE ERRORS GIVE AN 
ERROR MESSAGE. IF THE CPU SELECT MARK IN WORD 91 IS PRESENT, AND NO 
DELAYS HAVE OCCURED FROM MESSAGES ON. OVERLAP CONDITIONS, THE DOCUMENT 
IS SELECTED. IF THE O.D. MARKS IN WORD 92 ARE PRESENT, A LATE READ 
CALL CONDITION IS CREATED. ALL DSW'S ARE CHECKED FOR EXPECTED RE~ 
SPONSE. | | 
ROUTINE 2 ~ MASTER MARK TEST 
THIS ROUTINE CHECK THE ABILITY OF THE 1231 TO RECOGNIZE THE MASTER 
MARK (OPTIONAL FEATURE). SPECIAL MASTER’ MARK DOCUMENTS ARE USED. 

THE ROUTINE MUST BE RUN WITH THE MASTER MARK SWITCH ONe 
ROUTINE 3 - ALTERNATE SELECT 
THIS ROUTINE FEEDS DOCUMENTS AND SELECTS EVERY OTHER ONE. ‘THIS MAY 
BE USED FOR ADJUSTMENT AND CHECKING THE SELECT MECHANISM AND FEED. 
ROUTINE 4 - READ DOCUMENTS, NO COMPARE 
THIS ROUTINE READS DOCUMENTS INTO CORE. IT MAY BE USCD FOR SCOPING 
THE DATA LINES, CHECKING THE FIELD SWITCHES». ETCe 
15uUN67 ee ee ee PROG ID 
2038107 CR eke. Se ee ae ee ee ae ‘PAGE 
ae at Poe awoN , ee om Ce < s . e. ae wos ~~ we 
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a a 7 a a ae ae = 


2243555 
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- C004A 


ee 


a ie 


Te oe Peper ree Cees wage dept see ees 
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0160 
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0165 


0166 
C167 
0168 


Ol7A 
O1l8A 
O19A 


Ol1AA 


O1BA 
0188 
01B6C 
0180 


0000 


o50C 
0500 
OSDE 
OSDF 
O5E0 
O5E1 
O5E2 


O5Es 
O5E5 
O5E6 


-oococerroo0oocececdco 


O5EB 00 44800160 
SEA 2 
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._ ss EQUATE TABLE 
pebesbadedeesecnodec 604054 ckuecnsnedecousens 
* THIS TABLE EQUATES TEST PROGRAM LABELS 
* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 
* ADDRESSES. 
s 
Cow eee’. were se OOOO wee ae eeoeew a en a on am ae ae eee aw ee wae ow 
* MONITOR ENTRY ADDRESSES 
$$ eee OOOO OOO OOOO SOOO ODO eee eeowmeeewea 
BEGIN EQU 10160 BEGIN ROUTINE 

START EQU: BEGING1 SUPERVISOR ROUTINE 
ERROR EQU START+1 - ERROR LOG ROUTINE 
LOG EQU ERROR+1 STATUS LOG ROUTINE 
END EQU LOGe] END ROUTINE 
x 
a = ics uh ies ach sl cs ui ste <a gy ck a ea Gs ies to cea 
* MONITOR CONTROL WORD ADDRESSES 

+ Ramee > Ch SEEDY CAPD SIP OP ED EEPES D GP SaaS SEDEED-EEP Ue GD n> OD ERED GE ED Om Ge Gene ae a 
RTNSW EQU END+1 ROUTINE START SW 
ERLCK EQU END+2 LOCK ON ERROR CONTROL 
LOGBY EQU END+3 ‘1/0 BUSY SW ADDRS 

- RLCF EQU END?+4 RELOCATION FACTOR ADORS 
* 
3} cece an cewence aan ees Sew ee eRe wen enews ome 
* INTERRUPT TRANSFER VECTOR ADDRESSES 
BRimemiaces _ il ass cea we a i cs ei ial 
ILO EQU SO17A INTERRUPT LEVEL ZERO 
IL1 EQU IL0+16 -INTERRUPT LEVEL ONE 
IL2 EQU IL1+16 INTERRUPT LEVEL TWO 
IL3 EQU IL24+16 INTERRUPT LEVEL SHRKEE 
IL4 EQU 1L3416 INTERRUPT LEVEL FOUR © 
RQTY EQU IL4+] CONSOLE PRINTER REQUEST 
RQKR EQU RQTY+1 USE KEYBOARD REQUEST 
SVKB EQU —RQKB+1 KB SERVICE REQUEST 
x 

PRCRET EAS ESSE REESE EEE EES EEEEE ED ETEK EERE EE 

ORG %+/050C 

 Rewmwoeoewewe PES a> Ch ar SP PLCS AED Fb EP RP EP >TO SD 
* THE MONITOR USES CORE LOCATIONS O0-05D0C. 
* FOR CONTENTS OF THESE ADDRESSES REFER 
* TO THE DIAGNOSTIC MONITOR LISTING. 
an cam oom mw eevee ee cate eee emma ee ae ame aoe eo ea 
x 
KEKKAKAKAKSEKKSTKKRSEKKSLSEKKEKKEKKKKSKSEKKAKEKEKEKSEE 
* PROGRAM CONTROL TABLE 


CERES AE REARS RESREEAEEAREES ESSE EEEESEEDEEE ERE 
ss. 


PID oC 10314 PROGRAM ID 
RID OC — ROUTINE ID 
RAD DC to ROUTINE ADDRS 
SWO DL  eo* _ PROGRAM CONTROL 
SWl OC st ROUTINE SELECTION 
SW2 DC 2 , 
‘Sw3 OC a~% | 

oc LPTST LOOP ADDRESS 

DC STRT RESTART ADDRESS 
MLSCF DC ane ENTRY ONE 

DC —% ENTRY TWO 

DC /FEFF TERMINATOR 
& ; 
KEKKSKSCSEKCKCKCSKSCKSESEKKKCKCKCKCKCKSEKKKCAKKCKEKKKKCKALEKSEKKS 
* INITIALIZATION AND START 
SSSECKSESEKKCKEAKKKSCRKRESCKCKKKSKKKRKKKKKKTSEKE KK KEKE 
& 
BGIN BSI I BEGIN s J | 

DC PID PCT ADDRESS 


PART NO. 


PAGE 


eeexxexk 31400010 


21400020 
31400030 


31400040 © 


31400050 
31400060 
3100070 
31400080 
31400090 
31400100 


31400119. 


31400120 
31400130 
31400140 
31400150 
31400160 


31400170 


31400180 
31400190 
31400200 
31400210 
31400220 
31400230 


31400240 


31400250 
31400260 
31400270 
31400280 


' 31400290 


31400300 
31400310 
31400320 
31400330 


~ 3140034C 


31400350 
31400360 
31400370 
31400380 
31400390 
31400400 
31400410 
31400420 
31400430 
31400440 
31400450 
31400460 
31400470 
31409480 
31400490 
31400500 
31400510 
31400520 
31400530 
31400540 
31400550 
31400560 
38400570 
31400580 
31400590 
31400600 
31400610 
31400620 
31400630 
31400640 


- 31400650 


31400660 
31400670 
31400680 


PROG ID 


PAGE 


2243553 
i 


0314-0 
| 


oD - 
) ) 

} ) 

) ) 

) 

) 

; 

j ) 

) D 

) ) 
‘ " 
) 

ae 


a ene cree eS 


pas ae 
\ “F 


~ 


cea gn oo i ae cae a 
& ay he 
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 O5EB 0 


OSEC 01 
O5EE 00 


O5FO O 
O5F1 O 
OSF2 0 


O5F3 0 
O5F4 0 
O5SF5 01 


OSF7 O 
OSF8S O 
OS5SF9 01 
O5FB 0 
O5FC O 
OSFD 0 


O5FE 01 
0600 0 
0601 0 
0602 00 


0604 01 
0606 01 
06038 0 
0609 0 
060A 00 
— 060C OG 


O60E 0 
O60F O 


0610 
0610 
0611 
0612 
0613 


f=) pnd fed et 


0614 
0615 
0616 
0617 


oo0oo 


DATE 
EC NO. 


1000 


65000614 
6D000185 


6100 
69EB 
4000 


0006 
CocB 
4CO805FE 


DOES 
9015 
40080604 
1810 
DOES 
DODF 


7401050D 
Copc 
900D 
44800104 


6580 95DD 
C500060F 
DODS 
Droc 
D4000165 
44800161 


0004 
0001 


0647 


06D0 
O6FD 
071C 


0000 
0808 
0029 
1000 | 


15JUN67 


420317 


8 


" SERESKERKEKEE 





x 
STRT NOP 
Fecccecevcccccccccccccccccccccccccccccocees 
* - DFIN INT4e5eINT4 
Feccccccccesecccccccscccccccoccenoccccccces 
LOX Ll INT4 f 
STX Ll IL4-5 : 
& 
LPTST LOX 10 
STX 1 RID SET TO START AT RTN ONE 
BSI CNTRL 
KEVKKKKKHKKKKKKSEKKEKKCKKKEKKKKEKKKKKECKKKKKKK..H 
* SEQUENCE CONTROL ROUTINE 
KEKKEKAKASCKKKAKKKKSEKKKKEKKTCHKKKKKSCKKSKKKKEKKKEKHK 
* THIS ROUTINE CHECKS SW1 AND CONTROLS 
* THE SEQUENCE IN WHICH TEST ROUTINES 
= ARE ®8UNS 
Cow wee. =. we ae <n an an a os ar am a aw 0 Gener an enan anes on eae 
& 
CNTRL DC s—-¢ : c 
LB Swi 
BSC tL CN20,+ BR IF NO RTN SELECTD 
sd 
CN10 STO - RID SAVE NEW RTN NUMBER 
S RIDCK 3 | 
BSC t CN30,%+ BR IF VALID RTN 
SRA 16 
$ToO - $Wl IF INVALID RTN GO 
$Ta RID TO RTN ONE 
- . . 
CN20 MDX L RIDel | AOV' TO NEXT ATTN 
LD RIO CHECK FOR END OF 
S RTNOM NORMAL SEQUENCE 
BSI I END»s<-Z END OF PROGRAM 
s ; 


XR1L=NEW ROUTINE NUMBER 
FETCH RETURN ADRS 


CN30 LOX 11 RID 
LO 3 =6L1 RTTBL-2 























ST RAD STORE NEW RTN ADDRS 
sto MLSCF41 SET MLSCF FOR RETURN 
! STO LC RTNSW SET RTN START SW 
| BSI I START GO TO MONITOR 
& F 
RIDCK 01C LRIN-RTTBL+1 
RTNOM DC NRTN-RTTBL41 
x 
& ees eee ees 
* ROUTINE ADDRESS TABLE 
* at ios eas ces arenas es evan ececinat aren ds ain anaes mas 
_& 
*  DFIN RINeRTN1 es eoRTINZGRTIN3SeR TING 
Feemaceeeeceseee SSeS eeeeeeseeseesesecececece 
RTTBL DC PTNL 
NRTN EQU RTTBL 
OC RTN2 
OC . RIN 
LRTN OC RTN4 


EEE RER ESE EER EERE EES ES EERERREEE EEE EEE SEEN ETE EEE ES 


INTERRUPT SERVICE SUBROUTINE ***%880% 
SKKKCKKKKKKEKKSEKCCKEAKSCKKKKEKREKKKKKESKVHK AK KSAKKKEKKRKS 


INT& DC . t-& = ; os 
SENSE RESET DSW. 


x10 SENSR 
sto HDSWI STORE INTERRUPT DW 
NOP USE FOR TRAP 70FF 
& 
BPeeereceee seer ceceecrsesceceeeceeseevacssececoooecs 
* CALL  BROUT»INT& BRANCH OUT OF INT 
x 


@@880888882800SOSO8S8OES8SCHSHOSEOEOCHCE COSC 8ECCE SO 


- PART NOe 2243553 


.. PAGE 


31400690 
31400700 
31400710 


' 31400720 


31400730 
31400740 
31400750 


- 31400760 


31400770 


31400780 — 


31400790 
31400800 
31400819 
31400820 
31400830 
31400840 
31400850 
31400860 
31400870 
31400880 
31400890 
31400900 
31400910 
31400920 
31400930 
31400940 
31400950 
31400960 
31400970 
31400980 
31400990 


- 31401000 


31401010 
31401020 
31401030 
21401040 
31401050 
31401060 
31401070 
31401080 


31401090 | 


31401100 


32401210 


31401120 
31401130 
31401140 
31401150 
31401160 


31401170 


31401180 
31401190 


31401200 - 


31401210 
31401220 
31401230 
31401240 
31401250 


31401260 


31401270 
31401280 
31401290 
31401300 
31401310 
31401320 


°31401330 
. 31401340 


31401350 


31401360 . 


PROG ID 


PAGE 


1A 


0314-0 


1A 





| 
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18M MAINTENANCE DIAGNOSTIC PROGRAM FOR HE 1130 SYSTEM PART NO. 2243553 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
| PAGE 2 7 PAGE 2A 
1130-1231 OMPR Fe Te 1130-1231 OMPR F. Te 
0618 01 670008C6 LOx L3 ZZRO) 31401370 O64E 01 OF000622 X10 tL FEED START FEED 31402050 
O61A Os 6FOOOSES STX L3 MLSCF+. 31401380 . j * : , 31402060 . 
O6l1C 01 40800614 BSC T INT4 BR OUT OF INTERRUPT 31401390 Prerrrererrrererrrrerreee ae Se eeeoeveeoeeseenved 31402070 
* 31401400 * CALL WAITsNINT bAIT FOR INTRRUPT 31402080 
* : IGCC A: EA F 7 : 31401410 Seeeeeee Ses SSeS SS SSeSSEeSSSOFSsSeesesseessee 31402090 . 
KESKSEREERER J/O ( MMANDS  €88eRKEe eRe EEEERE 3124601420 0650 01 440008A2 RIA BSI tL WAIT | = 31402100 | 
O61E 0000 BSS E S2 : 31401430 | 0652 1 0731 DC NINT TIMEOUT RETURN ADOR 31402110 
O61E 0 0000 SENSR DC 0 31401440 nd _—_. ad - | , 32402120 
O61F 0 4702 DC 4701 SENSE RESET 31401450. 0653 01 44000780 BSI. bt CHECK CHECK DSW FROM INT 31402130 | 
0620 0 0000 SENSE OC 0 _— 3 31401460 : me ' dy oa 7 - 31402140 
0621.0 4700 9) 44700. SENSE NO RESET 31401470 e 0655 01 05000624 R18 X10 L. READ READ COMMAND 31402150 
0622 0 ocood FEED DC o be 31401480 ~ 0657 O01 65800641 -LOX I1 DWCNT WORD COUNT 31402160 
0623 0 4404 OC 14404 | FEED START 31401490 C659 0 COE8 LOD HDWAS DATA wORD 31402170. 
0624 1 0642 READ DC HDWAS . DATA LOCATION 31401500 | 065A 01 F50007B9 EOR Li TABLE COMPARE TO TABLE 31402180. 
0625.0. 4200 DC 14200 READ COMMAND 31401510 065C 01 4C200661 BSC cL R1Co2 BR IF DATA ERROR 31402190 
0626 0 0000 SELCT OC oO. | = 31401520 _ - 3 Be Po Pg ; ~ 31402200. 
0627 0 4480 * OC 44480 SELECT COMMAND .. 31401530. ie; O65E 01 74010641 R1B1 MDX L OWCNT,+1 INCRE WORD COUNT 31402210 
0628 0 0O000. DISC OC 0 | 31401540 0660 O TOEF MDX. R1A ‘LGOP : 31402220 
0629 0 4402 DC 14402 DISCONNECT COMMAND 31401550 > 7 ; we , 31402230 
. * oe 314791560 0661 0 CODF Ric LD OWCNT WORD CGUNT 31402240 _ 
ESKEERRRERE CONSTAXTS RRS KRKAKAKETKRKESEREKKKK 312401570 0662 01 9400062C te OS Lt KOOSA SUBTRACT 90. 3 31402250 . 
e | : : 31401580 ; 0664 O01 4C10068E BSC LL R1De- BR JF CONTROL WORD 31402260 
062A 0 8686 H8686 DC 4/8686 | . 31401590 ' * . Su pf svi 4 31402270 
0628 0 8486 H8486 DC 1/8486 NORMAL READ INT DOSW 31401600 0666 O01 74010641 #£=.R1C1 WDX L ODWCNTe+1 INCRE’ WORD COUNT 31402280 
062C 0 OOS5A KOO5A DC /OOSA DECIMAL 90 31401610 0668 01 C50007B9 . tO Ll TABLE _ PROPER WORD 31402290 
062D 0 FBTF KFB7F DOC /SFBTE ERRGR OCCURRED CONSTANT 31401620 066A 01 D400063F $TO Lt HO2BE- STORE FOR LOG MSG 31402300. 
062E 0 £700 KE700 DC /E700° SELECT. KORD 91 31401630 066C O01 C4000643 LD t EROCC ERROR OCCURRED SW 31402310 
O62F O 7BC3 K7BC3 DC /7BC3 LATE READ CALL WD 92 31401640 — O66E 01 4C200681 BSC LL R1IC2]eZ — BR JF ON. 31402320. 
0630 0 FODFF KFDFF OC —/FDFF- : = ve 31401650 } cee fe * Sh as : ; 31402330 
0631 0 EFFF KEFFF OC: /EFFF a a ui? 31401660 0670 01 C400062D LD tL KFBT7F. ERROR OCCURRED CONSTANT 31402340 
0632 0 9107 HO107 DC - 40107 DSW S/B--LATE READ CALL 31401670 0672 01 04000643 STO .t ERGCC SET ERROR OCCURRED SW 31402350 | 
0633 0 0001 KO0OO1 OC /0001 ONE | 31401680 7 | : * | | : ~~ 31402360 - 
0634 0 OC 82 KOC B82 DC /0C82 OP COMPLETE DSW 31401690 | Feee eee SeSeSSSSSSSSSSSSHSHESESEESEEEOESESE®S 31402370. :- 
0635 0 9686 H9686 DC 19686 MM DSW S/B 3 31401700 | * CALL LOG,E02+AWSBE,ADERR sHDWAS,HOCBE,DWCNT 31402380. 
0636 0 04C0 KO4CO DC , /04C0 oP COMP VARIABLE BITS 31401710: . is Pecccccccvcccccccccccccccccosescccccccocces 31402390 " 
0637 0 7939 K7939 DC 47939 ERROR BITS READ RESP 31401720 0674 01 44000908 BSI Lt 2ZZERR | | 31402400 
0638 0 FB39 KFB39 DC /FB39 a | 31401730 0676 0 0000 — DC ; Bi 31402410: 
0639 0 FB3F KFB3F DC /FBS3F 31401740 | 0677 O O002 oC 402 — MSG NO 31402420 © 
063A QO 0200 KO200 DC 70200 | 31401750 © 0678 0 0004 DC 40004 HEX=-DEC SW 31402430 . 
063B 0 0800 KO800 DC /08co 31401760 0679 0 0007 — DC /0007 DATA ID) 31402440 
* 31401770 O67A 1 0810 - DC AWSBE ALPHAL 31402450 
ReEKKKEEKESE WORK AREA BUCKET KEAKKEKRERAKREREKRK 37401780 067B 1 0840 DC ADERR ALPHA2 31402460 
* | | 8 31401790 O67C 1 0642 Oc HDWAS : . oe? 31402470 
063C 0 0000 EOPAD DC t—-* END OP ADDRESS 31401800 0670 1 O63F OC HO2BE 3140245u 
0630 0 0000 FRSW OC +—% FIRST RESPONSE SW 31401810 O67E. 1 0641 OC OWCNT 31402490. . 
063E 0 0000 HWAST OC *—*% OSwW WAS INITIAL 31401820 * 31402500. 
063F 0 0000 HOZBE OC +-2 SHOULD BE | 31401830 O67F 01 4C000c50 BSC L RIA BR TO CONTINUE 31402510 
0640 0 0000 HDSWI OC . *—-* INTERRUPT DSW 31401840 a * 31402520 
0641 0 0000 DWCNT oc t~—*% DEC WORD COUNT 31401850 — Ke ceeeeeeee SSS SO SOSS ASSESSES EH SCALES EOSECES 31402530 ie 
0642 0 0000 HOWAS DC ant DATA WORD 31401860 * CALL LOGeEsHDWAS »sHO2BEsDWCNT 31402540. 
0643 0 0000 EROCC OC a8) ERROR OCCURRED Sw 31401870 Kocccccecccccecsevessscescccsescecesecosese 31402550 
0644 0 0000 HOSWF OC komm FEED BUSY OSW | 31401880 0081 O01 44000908 R1C2 BSI L ZZERR 31402560 
0645 0 0000 HLRCD DC *~—* DSW WAS=-LATE READ CALL 31401890 0683 0 0000 — pc. : 31402570 
06%6 0 0000 HDSWN OC Rm & NO INTERRUPT OSW 31401900 0684 9 0000 DC 400 ‘MSG NO 31402580 
: SHREKCKRKKASKKKEREKAK TY SKKKKKKKKEKKAKERERSAKEKKKKKEKERK 31401910 0685 0 0004 OC 4/0004 HEX-DEC Sw 31402590 
* ROUTINE ONE | 31401920 0686 0 8007 DC /8007 - DATA 1D | 31402600 
SHERKKEREAKREKEKKREKSEL DEKKTRAKKERARKSEKSSESKKEEKKRESRSRER 31401930 0687 0 0000 OC . a ALPHA] 31402610. 
* THIS ROUTINE READS TEST DOCUMENTS AND COM- * 31401940 0688 0 G000 OC QLPHA2 31402620. 
x PARES THE DATA RECIEVED TO A TABLE} A ONE ¥* 31401950 0689 1 0642 oc HDWAS 31402630 
* BIT lw WORD 91 OF THE DOCUMENT SHOULD CAUSE * 31401960 068A 1 O63F . oc HO2BE 31402640 
* IT TO BE SELECTED. A 1ley3e+6 BIT IN WORD 92 * 31401970 0688 1° 0641 | . OC OWCNT 31402650 | 
* SHOULD CAUSE A FEED CYCLE AND A LATE READ CALL * 31401980 © * | 31402660 
CERES CREASE ERERS SELES REESE SRE SE ERARERREES 372401990 068C, 01 4C000650 . BSC t RIA BR TO CONTINE 31402670 
0647 01 6C00063C RTN]) STX tL EQGPAD  ~— SET END OP ADDRESS 31402000 | os | 7 a vee 31402680 
0649 01 44000740 BSI t INIT INITIALIZE 1231 31402010 yo O68E O01 94000633 RID = =6§ tL «KCOOl] ~ ' $UB ONE 31402690 
0648 0 1010 SLA 16 4 - | | 31402020 0690 0 4810 . BSC oe oe SRKEP TF COL 92 31402700 
064C 0 DOFS STO DWCNT “CLEAR WORD COUNT . , 31402030 . 0691 0 7005 _ MOx R1D1 BR IF NOT © 31402710 
0640 0 DOFS STO ~— EROCC CLEAR ERROR OCCURRED SW 31402040 0692 01 C40C9642 -.. tO -L HODRAS DATA WORD -31402720 | 
DATE | 1SJUN6T PROG ID 0314-0 DATE 15JUN67 PROG ID 0314-0 
EC NO. 420317 PAGE 2 EC NO. 420317 PAGE 2a 
. : 
gee ~ oe ~ ge —r oo —— ~, a “rs vos ae \ ye sos a aon “ BOSS ie es aS ~ Oo ios ae ™ gr ee = 
py ay, 1 Oe Cy Oy ey oe ee OY TD Le id 1 uP ae Ae Bese ren’ ae, 
ee aH ss sf Sie 4 ae ae Zz J ee ma wee Sha een ae ue \ ene Es ee oy ; ae Ae NY aw eee . ° a 
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0694 
0696 


0698 
069A 
0698 
069C 


0690 
O069F 


O6Al 
06A3 
O06A4 
O6A5 
O6AT 
06A9 


O6AB 


06A0 
O6AF 


0680 
0682 


0683 
0685 
0687 
0689 


0688 


O6BD - 


O6BE 
O6BF 
06CO 
06Cl1 
06C2 
06C3 
06C4 


06C5 


06C7 
06Cs 
O4CA 
06cs 
O6cc 
06CO 


O6CE 


DATE 


01 
01 


01 
0 
0 
0 


01 
01 


01 
0 
0 
01 
01 


01 


01 


01 


01 
Ot 
Ol 


-_ 


~rwrmwmOooecoceo 


i) 
~~ 


~Ooooco 


EC NO. 


F400062E 
4C 200666 


0C 000620 
1005 
4810 
TO2A 


0C000626 
4COOO065E 


94000633 


4810 
70Ccl 
C4000642 


F400062F. 


4C200666 


0C000622 


&40008A2 


0731 


440008E2 
2710 


0C000620 
04000645 
F4000632 
4C 180647 


44000908 
0000 
0003 
0000 
0003 
081D 
0846 
0645 
0632 


4C000647 


44000900 
0002 
0000, 
0000 
0000 
0864 


4C00065E 


1S JUN67 


420317 


R1D1 


* 


s 


EOR L KE700 
BSC Lt RIC1sz 
X10 t SENSE 
SLA 5 

BSC ek 
MDX . R102 
X10 L SELCT 


BSC Lt R161 


SELECT WORD 


BR IF DATA ERROR 


SENSE DSW 


CHK OK TO SEL 
SKIP IF OK TO SEL 
BR IF TOO LATE 


SELECT COMMAND 
BR TO PROCESS NEXT wD 


SUBTRACT ONE 
SKIP IF COL 92 
BR IF DATA ERROR 


LATE READ CALL WORD 
BR IF NOT PROPER 


SET UP LATE READ CALL 


C 


Se cee SSS SSS SSSSSHSHOHSHSHHSSHSHSSHSSOHSHSHSSHESSHEHOHSSSHESEOCE 


Terccecvveccecs 


gs 


S tL «oool 

BSC - 

MDX R1Cl 

LO CL. HDWAS 

EOR L KT7BC3 
BSC. L RICle2Z 
x10 L FEED. 
CALL {WAIT NINT 


BSI Lj] WAIT 
DC / NINT 


Pi gaa tae Cu & See Saleh Ee bone eaeeeeeees ee wees 


* 


DELAY,10000 WAIT 10 SECONDS 


FT acco See SSO SSO HSHOHSHSHSHESHSOHSSEEESOOLES® 


= 


* 


DELAY FACTOR 


SENSE DSW _ 

STORE FOR MSG 

LATE READ CALL OSW 
BR IF PROPER DSW 


: “sce ee wees Se e6es eG eee eb eeeeeSeeSeeeeae es , 


LOG»E03sAWSBEsALRC eHLRCD, HO90] 


Feeeeeeeeeseseesse SSS SSSHSSSSeSeTessseseeses 


x 


a 
& 


CALL / 

BSI & OELAY 
DC 10000 
X10 L SENSE 
STO £ HLRCO 
€0R Lt 0107 
BSC L_ RTNle+- 
CALL 

BSI t ZZERR 
pC 

DC 403 
DC /0000 
pC. 40003 
oc AWSBE 
DC. ALRC 
DC HLRCO 
DC HO107 


BSC Lt RTIN1 


MSG NO 
HEX-DEC SW 
DATA ID 
ALPHA] 
ALPHA2 


BR TO BEGIN AGAIN 


Pe Err ere Tr errr Te rT Tee 


x 


R1D2 


CALL LOG»A03eATOLA 
ToeceSCSSSOSSSSHSHSHSSHSHSHSSSHSSSSSSHSSEESHSHLESECEE®S 

BSI t 22L06 

DC /03 MSG NO 

DC /0000 HEX-DEC SW 

OC 40000 DATA ID 

DC . ALPHA] 

OC ATOLA ALPHA2 


*e* - 


- 


= 


REEERRAERHREEREREERERSERS EECEEEEEERESEEEEERESEE DED 


x 


BSC Lt R161 


BR. TO CONTINUE 


ROUTINE TWO 
KECCSTHESEHKSEKAASESSSSSEKS SKS SKAAKSEKRSRASASAAS KEKE RE SEE 


is ‘ “N/ \ C Pa % 
| | 
Le C ) ee New 


PERT NO. 


PAGE 


31402730 
31402740 
31402750 
31402760 
31402770 
31402780 
31402790 


31402800 . 


31402810 


31402820. 
31402830 


31402840 
31402850 
31402860 
31402870 
31402880 
31402890 


31402900 


31402910 


31402920 


31402930 
31402940 
31402950 


31402960 | 


31402970 
31402980 
31402990 

3140300 
31403010 


31403020 


31403030 


31403040 
31403050 
31403060 
31403070 
31403080 
31403090 
31403100 
31403110 
31403120 


31403130 


31403140 
31403150 
31403160 
31403170 
31403180 
31403190 


31403200. 


31403210 
31403220 
31403230 
31403240 
31403250 
31403260 


31403270 


31403280 
31403290 


31403300 — 


31403310 


31403320 . 


31403330 


31403340 
31403350. 
31403360 


31403370 
31403380 
31403390 
31403400 


PROG ID 


PAGE 
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06D0 
06D2 
06D3 
0604 


06D5— 
0606 


06D7 
06D9 


06DB 


0600 
O60F 


O6EO 
O6E2 
06E3 
O6E5 


O6E7 


O6E9 
O6EB 


O6ED 


O6EF 
O6F1 


O6F2 
O6F4 
O6F5 


O6F6. 


O6F7 
O6FS 
O6F9 
O6FA 
O6FB 


O6FC 


oO MEP mM OOOCO. 


mOqo0oddodoc 


01 
01 


01 


01 


01 
01 
Q1 
al 


01 


O01 


01 


- 


44000900 


0000 


0009 
8000 
0000 
0888 


6C00063C 
44000740 


0C 000622 


440008A2 


0731 


4000640 
1003 

4C1006F2 
C4000640 
E4000631 
D4000640 
44000780 
06000624 
0C000628 
TOET 


44000908 
0000 


0005 
0000 — 
0003 
081D 
0891 
0640 
0635 


70E8 


O6FD 01 44000900 
O6FF 0 90000 
0700 0 0006 


DATE 


EC NO. 


15 JUN67 


420317 


* MASTER MARK TEST 
* THIS TEST READS DOCUMENTS MARKED 
* AS MASTERS. NO DATA IS COMPARED. THE 
* DSW IS CHECKED TO INSURE THAT THE 
* MASTER MARK IS RECOGNIZED. 
KECSKKKEKKASSKKEKKSE KES KSE SE KKKE KS KELE CHS KE KL LER EKS 
2 | 
Se ceeeSSSSSSSSSSSCHOSSSHSSOSHOSSEESSOHEOSOHSOSEC®E 
% CALL LOGsAsAMMTS 
Te ceee ce Seles SOSSSSSSSSSHOSSHSHSSEHNHEOEOEED®E 
RT™N2 BSI L Z2ZL0G 

OC . /00 MSG NO 

DC /0000 HEX-DEC SW 

DC 48000 . . DATA 10 

oC _. ALPHAL 

DC . AMMTS ALPHA2 
Ps 

STX L  EOPAD SET END OP ADDRESS 
R2A BSI Ct INIT INITIALIZE 1231 
* | 

X10 L FEED FEED A DOC 
* 
Reece eee eeeseoeseseSeSeSessSSSsseesesseseeeese 
® CALL WAIT »NINT 7 
Ker eceeee eee eeS ee SSSSSSSSSSSSSSSSesseesesese 

BSI Lt WAIT 2 

OC NINT TIMEOUT RETURN ADDR 
* ‘ 

tO. L XHDSWI INTERRUPT OSW 

SLA 3 , CHECK IF MM BIT ON 

BSC LL . R2Ble- BR IF NOT 
R2B LD L HDSWI LAST OSW 

AND L_ KEFFF . REMOVE MM BIT 

STO t HOSwWI FOR CHECK ROUTINE 

BSI Lt CHECK CHECK OSW FROM INT 

X10 t READ READ THE WORD -* 

X10 tL DISC DISCONNECT 

MDX R2A BR TO READ NEXT ODOC 
= 
Wises oi who bce eee ee ow be 0b ees 60S bb OSS eeeewes 
* CALL LOG, E05, AWSBE, AMMNR »HDSWI »H9686 
Keo eceee eee OSSeOSOSSEOOSOOEESOECSESCELOELEOEESE 
R2B1 BSI L ZZERR | 

OC | 

DC ' . f05 MSG NO 

DC 40000 HEX=-DEC Sw® 

DC 40003 DATA ID 

_, oC AWSBE ALPHAL 

DC AMMNR © ALPHA2 

DC HOSWI 

oc H9686 
* | 

MDX R280 BR TO READ AGAIN 
* . 
KKKKKKEKAKERKECKEKRKHKEREKKHKEKSEEKAKKEKKRKKEERSEREECRALT EEE 
% . ROUTINE THREE | 
ERR EEE EH HHH RR 
* . ALTERNATE SELECT TEST 
* 7 THIS TEST SELECTS ALTERNATE DOCUMENTS 
Bs 
KECKKKKKKKEKKKKKKKEAKKSKKKRKKSCKKEKKKEKKEKKKKKKKKKEKKKEHK 
x 
VicsaGbes seu esewee ee seed woeee seers wowsavee< 
* CALL LOGsAsAALTS — 
KeoeeceeeSe eee es SS eeseseseeseseesevsseseeeees 
RTN3 BSI Lt ZZLOG 

OC — £00— “SG NO 

DC 40000 HEX=-DEC Sw 
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31403410 — 


31403420 


31403430 
31403440 


31403450" 


31403460 
31403470 
31403480 
31403490 
31403500 
31403510 
31403520 
31403530 
31403549 


33493550 


31403560 
31403570 
31403580 
31403590 
31403600 
31403610 
31403620 
31403630 
31403640 


31403650 . 


31403660 
31403670 
31403680 
31403690 


31403700 | 
31403710 
31403720 


31403730 
31403740 


31403750 


31403760 
31403770 
31403780 


31403790 


31403800 
31403810 
31403820 
31403830 
31403840 


31403850. 
31403860 


31403870 
31403880 
31403890 


31403900 


31403910 


31403920 © 


31403930 
31403940 


31403950. 


31403960 
31403970 
31403980 
31403990 
31404000 


31404010 | 
31404020 © 
31404030 
31404040 - 


31404050 


31404060. 
31404070. . 


31404080 


PROG ID 


PASE 


3A 


0314-0 


3A 
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: PAGE 7 4 i oe | me ee os PAGE 4A 
1130-1231 OMPR F. Te . —_ : | | . 1130-1231 OMPR F. T. 
0701 0 8000 - oC 48000 - PATA 1D - 31404090 0733: 01 D4000646 STO Lt HDSWN STORE FOR MSG 31404770 
0702 9 0000. | -oc a ALPHA! 31404100 ‘ * | 31404780 
0703 1 o0s7C 2 DC AALTS ALPHA2 , 31404110 : Ssloxccsodstesbasseoure tose ees evens sees 31404790 
i 9; | a | varied fe 31404120 | * CALL . LOG»E06seANINTsHDSWN | 31404800 
0704 0 6102 R3A - LOX 1 2 —XRi FOR SELECT ALT SWITCH 31404130 } Be ccccccccescecccccccecccececcccccccccecees 31404810 
0705 01 6C00063C .$TX kbc EOPAD SET END OP ADDRESS 31404140 | 0735 01 4400090B BSI t ZZERR- | | | 31404820 
0707 01. 44000740 R3Al BSI Ct . INIT INITIALIZE 1231 31404150 0737 0 0000 DC | : 31404830 
0709:' 01 0C000622 XIO LC FEED FEED A OOC 31404160 0738 0 0006 DC 406 MSG NO | 31404840 
| * ay . 31404170 / 0739 0 0000 OC _- 4/0000 | HEX-DEC SW _ | ‘31404850 
Mreccccccccccseceeeeeecesecccccccceososcocececs 31404180 . O73A 0 0001 . DC : 40001 7 DATA ID = : 31404860 
* CALL WAIT ONINT — 31404190 0735 0 0000 DC  ALPHAL — 31404870 
e Di66 6:00 06s 6. 6468.6 0 66665 666665 00 606K OHSS SWS OS 31404200 073C lL 0850 . OC ANINT ALPHA2 : ‘31404880 
0708 01 440008A2 : | BSI t WAIT 31404210 | } 073D 1 0646 DC HOSWN | . 31404890 
0700 1 0731 DC NINT TIMEOUT RETURN ADOR 31404220 ie i * . ' 31404900 
| | s | 314042 30 O73E 01 4C€000741 BSC Lt INIT#1 BR TO RETURN VIA INIT 31404910 
O70E 01 44000780 BSI t CHECK CHECK DSW FROM INT 31404240 . | ad 31404920 
. —o * ? ako 31404250 J} | AERERREREACERERS EERE SACSATE AEST ERAS SENS SARA EE ESE 31404930 
0710 01 0C000624 XIO LC READ 31404260 | : * INITIALIZATION AND STATUS CHECK 31404940 
O712 0 TIFF MDX 1 -1l SELECT SWITCH 31404270 bi ae | RKKKKKKKSEKKKKKAKSSKKARAEKKAEKKKKRKKKKKKREKREREEKERK 31404950 
0713 0 7005 MDX R3A2 ALTERNATE BRANCH 31404280 2 — * a | 31404960 
: * a 7 31404290 | 0740 0 0000 INIT OC tod | 31404970 
0714 01 0C000626 X10 t SELCT SELECT COMMAND ' 31404300 7 ca 0741 01 0C000628 XIO Lt OISC DISCONNECT COMMAND 31404980 
0716 01 0C000628 x10 t OSC DISCONNECT COMMAND 31404310 * 0743 0 1010 SLA 16 31404990 
0718 0 70EB MDX R3A LOOP 31404320 0744 01 D400063D S$TO tL. FRSW CLEAR FIRST RESP Sw 31405000 
lee a . . 31404330 0746 01 OCOOO6IE ~ . XIO kbc SENSR SENSE DSW 31405010 
0719 01 0C000628 R3A2 XIO t OFSC. DISCONNECT 31404340 0748 01 E400062D IN] . AND tL. KFBT7F IGNORE SS TIMINGS 31405020 
0718 O 7OEB 7 MDX R3Al. LOOP | . 31404350 O74A 01 D400063E . STO t HWASI 31405030 
* ; a | . : 31404360 074C O01 4C980740 | BSC I INIT¢et+— BR IF DSW CLEAR - 31405040 
— RE ERAEEEERE EERE EERE EERE SER EKEEERESERSEERERE SEES 314604370 | si | _ * | 31405050 
& | ROUTINE FOUR 31404380 O74E 01 4C040764 BSC L IN2eE BR IF NOT READY | 31405060 
RHEKEREKRSEREAASEREAKSAARSEKSEAAKEREREKKEKLLARKRKRERERES 31404390 - 0750 0 - 1806 SRA 6 CHECK HOPPER EWPTY 31405070 
m a 4 READ DOCUMENTS» NO COMPARE 31404400 | ". 0751 01 4C040775 BSC LL IN3sE BR IF HOPPER EMPTY 31405080 
ss : THIS TEST READS DOCUMENTS AND CHECKS 31404410 ~.0753 0 1010 SLA 16 CLEAR ACC = s 31405090 
* THE OSW FOR CORRECTNESS. NO CHECKS 31404420 0754 01 D400063F —  ($§$T0 L HO2BE STORE FOR MSG 31405100 
* | ARE MADE ON THE DATA 31404430 “es . os . eH * | (31405110 
EEKEREKEKEARS SRK SSEAERESAARRE SEK SREKEEREAKERASEERSEKEK 31404440 8 Kecccccccccc en secccesececeseccesececceeeees 31405120 
+ | : : 31404450 SP: * CALL LOG, EO] sAWSBEsADSWI sHWASI »HOZBE ~ 31405130 
. Fecccccccccccccccccccccccoccccccccccccccecs : (31404460 am a . ‘ Bp eAWecassisdienevewcsewsecsecsccsecvedeseuss 31405140 
* CALL LOGeA, ARNC a 31404470 | 0756 01 44000908 BSI t ZZERR 31405150 
BASS ae ieee A 8 GEL a PLL PN MC gs RRC PO 31404480 . 0758 0 0000 DC . bs ‘ 31405160 
~~ 071C O1 44000900 RTN&. BSI L. ZZLOG . - 31404490 7 0759 0 OOO] — oc - 401 MSG NO : 31405170 
O71E 0 0000. Oc 700 MSG NO : 31404500 075A 0 O0000 OC - 0000 HEX-DEC Sw 31405180 
O71F 0 0009 ‘OC 40000 HEX=-DEC SW 31404510 | 075B 0 90003 oc 4/0003 OATA ID ? 31405190 
0720 0 8000 | DC 48000. DATA 1D — 31404520 ts 075C 1 0O81D . OC AWSBE . ALPHA1L a ; 31405200 
0721 0 0000 oc a ALPHA] ~ 31404530 j 075D 1 0822 DC ADSWI ALPHA2 -, 31405210 
O722 1 O86E OC ARNC ALPHA2 | 31404540 O75E 1 O63€E Dc . HWAS I eS 31405220 
ae * a3 - | 31404550 a4 O75F 1 O063F Oc HO2ZBE ' 31405230 
0723 O1 ©C00063C STX L  EOPAD SET END OP ADDRESS 31404560 | oe nd * | (31405240 
0725 01 44000740 R4A BSI Lt. INIT INITIALIZE 1231 31404570 * 31405250 
0727 01 OC000622 X10 tL FEED . FEED A DOC | 31404580 * 31405260 
~ C2 eee Se gh aes bO Cae SCRE OSES O06 ES CREE SS 31404590 e : Kecccccceccecscceseecesecesesesecceeccceeceece 31405270 
¢ CALL WAIT SNINT 31404600 * CALL DELAY+e8000. DELAY 8 SECONDS 31405280 
- * . , Miec.d w aidee Se eke soe swe 60 66 owe bees atewb ones 31404610 ‘ : Kec eece ese eceeseeeeeeseseeseeseesesoveesecese 31405290 
0729 01. 440008A2 R4B BSI L WAIT = 31404620 0760 01 440008E2 BSI Lt DELAY 7 | 31405300 
072B 1 0731 DC NINT TIMEOUT RETURN ADDR _ 31404630 0762 0: 1F40 DC 8000 . DELAY FACTOR 31405310 
2 | s | | a | | 31404640 : | ii a | ; 31405320 
-072C O01 44000780 BSI t CHECK CHECK DSW FROM INT 31404650 0763 0 700D ‘MDX.  INIT4#1 TRY AGAIN 31405330 
* | 31404660 * wae he 31405340 
O72E 01 0C000624 AIO LL READ _ READ A WORD 31404670 * . | . 31405350 
0730 0 TOF8 MDX R4B _ LOOP hao, 31404680 Ke ceece eee oeeeesee eee lessees eeeseseevseecesese : 31405360 
| , + | oe | | 31404690 : * CALL ©§ DELAY,15000 — | 31405370 
bd ae F ; : 31404700 : ‘ : Pocccccccccccscncccccssescccsseseccccccccee 31405380 
REETHRKELESAEKERESESEES SESE RSERASERERE HEARSE EESSRESES 31404710 0764 01 440008E2 IN2 BSI t OELAY : 31405390 
* wo . NO INTERRUPT SUBROUTINE 31404720 0766 0 3A98 OC -15000 DELAY. FACTOR ~ . ' 31405400 
COERESESREEREREREEELS SESS EEESSSERESSRS ES EASE TERE RES 31404730 a & | ran . 31405410 
* 3 31404740 : 0767 01 O0C000620_. X10 L SENSE “SENSE DSw : 31405420 
| * : 31404750 0769 01 4C04076D BSC Ct INIT4sE  86R IF STILL NOT READY 31405430 
0731 01 0C000620 NWINT xXIO Ct SENSE SENSE 1231 STATUS 31404760 076B O 70DC MDX INl BR TO CHK OSW 31405440 
DATE 15 JUN67 | PROG ID 0314-0 3 DATE 15 JUN67 PROG ID 0314-0 
EC NOs. 420317 ecg he % «ode ~ ~ PAGE _ | EC NO. 420317 -  S | PAGE “A 
' ‘} 
) | 
a ee a - oh Se SS on 
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o76C 0 7008 MDX 1N3 BR TO CHK DSw 
| Z | 
Tee ee ee SOSSSSSHEHSHSESHESSSHOOSHSHCSEHOOSEOSEEEO 
. * CALL LOG,A01 sANRDY 
‘ SoeeeeleSSSSOSSSHOSHSHSHSOSHOSHOSOOSES ES ESESES®S 
076D 01 44000900 INITS BSI t 2ZZLOG 
O76F O 0001 | 0c /01 MSG NO 
0770 0 0000 DC 40000 HEX-DEC Sw 
0771 0 0000. DC 40000 DATA 10 - 
0772 G 0000 OC ALPHA] 
0773 1 O82E OC ANRDY ALPHA2 
: “ , 
0774 0 T0CC | MDX INIT#1 
% : 
¢& 
TeoceceSeSeee SS SSSSOSHHHSOEHEROOECOOOOOSEEEC®E 
* CALL LOG,»A02 -AHOPE 
* ‘ Ke cece eSeSSSSOSSHHOSHHOOSHSSHOSOOHHSCOSSOSOSEEE 
0775 01 44000900 INS BSI L ZZLOG~ | 
0777 0 0002 - Dc 702 MSG NO 
0776 0 0000 0c /0000 HEX-DEC Sw 
0779.0 0000 pc 40000 DATA ID 
ore Oo 0000 Oc ALPHAL 
07,78 1 0836 DC AHOPE © ALPHA2 
| 
/ ; Feoecee eee eee SoS SS SSS SESS SSSSSSSCEE SHS OLEOE®S 
| * CALL DELAY» 15000 
owt | Veoceecce ee SeS SS OSSSS SSS HSSOSEEEOLEL OL EEOEHEO 
O77C O1 440008E2 BSI t DELAY 
O77E 0 3A98 DC 15000 DELAY FACTOR 
: * 5 
O77F O 70Cl MDX INIT41 
* 
ERRAKERERESERERLE ES EEAEEA SARS ES ETEK SHEER ELE EE ESE 
* CHECK DSW SUBROUTINE 
38 ease em ap om ow a err er corae ae Om am core eee eR a on aD ace Enema ae ar Er a ee Om ae a ae 
- : 
* THIS SUBROUTINE CHECKS THE LAST 
* INTERRUPT OSW FOR PROPER RESPONSES. 
EKKEKKKKEKKKKKEKKKEKESKKKEKKCSEKKKKKKKKKRKKTEKAKKKKE KK 
3 i . 
0780 0 0000 CHECK DC t—e | 
0781 O01 C4000640 LD t HDSWI 7 
0783 0 810 BSC - SKIP IF RD RESP 
0784 0 7022. MDX CHK3 BR IF NOT 
0785 01 74000630 MDX L FRSWeO0 SKIP IF FIRST RESP 
0787 0 7007 MDX CHK BR JF NOT 
t * , ¢ 
0788 01 6C000630 STX LL FRSW SET FIRST RESP SW 
078A O1 F400062A EOR L H8686 PROPER FIRST RESP 
o078C 01 4C980780 BSC I CHECKe+- 8R BACK IF PROPER 
. _ | 
O78E 0 7004 MDX CHK2 CHECK ERRORS 
a é ; 
O78F O1 F4000628B CHK] EOR L H8486 PROPER 2ND RESP 
0791 O01 4€980780 BSC I CHECKy+— # £BR BACK IF PROPER 
& : 
0793 01 E4000638 CHK2 AND L_ KFB39 ALL ERROR BITS 
0795 01 4C980780 BSC I CHECKe+-— 6R BACK IF NO ERRORS 
‘ s : 
0797 O01 F4009640 EOR t HDSWI RESTORE S/B DSw 
0799 01 0D400063F STO t HO2BE STORE FOR MSG 
x 
PEPE EPP e TOE eT eee eee CY eT re ee 
* CALL LOG, E04, AWSBE,AINDS SHC SW1,HO2ZBE 
Se eceeceSSeSSSSSSOSSSHHSSSHSSHSEHESOSSCEHLCESSO ESOS 
DATE 15JUN67 


EC NO. 420317 


PART NOs 2243553 
5 


PAGE 


31405450 
31405460 
31405470 
31405480 


31405490 | 


31405500 


31405510 


31405520 
31405530 
31405540 
31405550 
31405560 


31405570 | 


31405580 
31405590 
31405600 
31405610 
31405620 
31405630 
31405640 
31405650 
31405660 
31405670 
31405680 
31405690 


31405700 | 


31405710 


31405720 | 
31405730. 


31405740 
31405750 
31405760 
31405770 
31405780 
31405790 
31405800 
31405810 
31405820 
31405830 
31405840 
31405850 
31405860 
31405870 
31405880 
31405890 
31405900 
31405910 
31405920 
31405930 
31405940 


31405950 


31405960 
31405970 
31405980 
31405990 
31406000 
31406010 
31406020 
31406032 


31406040 


31406050 
31406060 
31406070 
31406080 
31406090 
31406100 
31406110 
31406120 


PROG ID 


PAGE 


0314-0 
5 


™~ 
} 
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079B 01 44000908 RlIF3 BSI tL’ 


Wied ci Koee bas Saw Ow OC bese ee 6 Sew ewes eeeee ewes 
. LOG, E05 es AWSBEs AINDS sHDSWI ,H9686 


Keoecceeeeeeeseeeeeeeseeeesceseseeseseseseeece 


ME EE MR KR RE KEKKKKKLKEKKEKKKSKKKKKKKKKKKER ERKRK 
MEME whe Re a MK Be HE HE KE eM HE Me ME KE EME HE RHE RKRKS 


| DATA TABLE 
9 Me ee eM a A RAKE ERK KKKKKCEKCEKKKEKKKKKK KKK ERS 


0790 0 0000 DC 
O79E 0 0004 0c 
079F 0 0000 oC 
07A0 0 0003 We 
O7Al1 1 0810 DC 
O7A2 1 0859 DC 
O7A3 1 0640 OC 
O7TA4 1 063F oc 
x 
O7A5 01 4C800780 Bsc I 
, * 
OTA7T 01 F4000634 CHK3 EOR L 
O7A9 01 £4000629 AND L 
O7AB 01 4C80063C Bsc I 
m . 
* CALL 
O7AD 01 44000908 BSI L 
O7AF 0 0000 - oc 
0780 0 0005 DC 
0781 0 0000 - DC 
0782 0 0003 OC 
07B3 1 081D DC 
07B4 1 0859 DC 
0785 1 0640 DC 
0786 1 0635 OC: 
~- : 
0787 01 4C80063C BSC. I 
. > 
& 
ogg 
* 
; * 
| 2 
0789 0 4200 TABLE OC . 
07BA 0 4100 DC 
07BB 0 1181 DC 
07BC 0 2200 DC 
07BD 0 F3C3 DC 
O7BE 0 8803 ' oc 
OTBF 0 8741 «OC 
07CO 0 9582 DC 
07C1l 0 0642 DC 
07C2 0 5F81 DC 
07C3 0 8A43 OC 
07C4 0 EB42 DC 
07C5 0 B200 | DC 
07C6 0 4200 Oc 
07C7 0 €EDC3 DC 
07C8 0 E241 OC 
07C9 0 7882 | ‘OC 
O7CA 0 £803 oc 
O7CB 0 5EC1 3 DC 
O7CC 0 0702 DC 
07CD 0 7380 DC 
O7CE 0 S5CCO DE 
O7CF 0 EE4&2 DC 
07D0 0 0785 DC 
07D1 0 5E40 OC 
07D2 0 €803 DC 
0703 0 F2C2 OC 
0704 0 4E82 DC 
0705 0 4200 Dc 
DATE 15JUN67 
EC NO. 420317 





ZZERR 


104 

4/0000 
40003 
AWSBE 
AINDS 
HDSWI 
HOZBE 


CHECK 
KOC82 


KFB3F 
EOPAD 


ZZERR 
/05 


4/0000. 
40003 
AWSBE | 
AINDS 


HDSWI 


H9686° 


EOPAD 


44200 
44100 
41181 
42200 
/F3C3 
48803 


/B8741 — 
— £9582 
£0642 


/5F81 
/8A43 
JEB42 
48200 
44200 
/€0C3 
4E241 
47882 
4E803 


45ECL 


4/0702 
47380 


45CCO . 


JEE4S2 
4/0783 
45€40 


/E803 © 


/F2C2 


/4E82 | 


44200 





ASG NO 
HEX=DEC Sw 
DATA 1D 


ALPHA] 


ALPHA2 


NORMAL OP COMP OSW 


IGNORE SS TIMINGS AND HE 


“MSG NO 
HEX-DEC Sw 
DATA ID 


ALPHA1 


ALPHA2 


OONe WN FWN & 


BR IF PROPER END OP 
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PAGE 


31406130 
31406140 
31406150 


SA 


31406160 _ . 


31406170 
31406180 
31406190 
31406200 
31406210 
31406220 
31406230 
31406240 
31406250 
21406260 
31406270 
314062 80 
31406290 


31406300 . 


31406310 


31406320 | 


31406330 


31406340. 


31406350 
31406360 
31406370 
31406380 
31406390 
31406400 
31406410 
31406420 


31406430 — 
31406440 


31406450 | 


31406460 
31406470 
31406480 
31406490 
31406500 
31406510 
31406520 


31406530 | 


31406540 
31406550 
31406560 
31406570 
31406580 
31406590 
31406600 
31406610 
31406620 
31406630 
31406640 


31406650 


31406660 
31406670 
31406680 
31406690 
31406700 


31406710 


31406720 
31406730 
31406740 
31406750 


31406760. 


31406770 
31406780 
31406790 
31406800 


PROG ID 


PAGE — 


were 


0314-0 
SA 


freer ne 


8 ceo 





¢% 


ey 


¢ 


“O7DE 


—O7E3 
OTES 


— OTEC 


 O7F8 


 OTFF 


0802 
- 0804 


_ O80A 
080C 
.080D 
O8OE 
- 0810 


0812 


(0815 


0819 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1130-1231 OMPR Fe Te 


07D6 
07D7 
07D8 
07D9 
O7DA 
0708 
070C 
070D 


OT7DF 

O7E0. 
O7E1 
O7E2. 


O7E5 
O7E6 
O7E7 
O7E8 
O7E9 
O7EA 
O7EB 


O7ED 
O7EE 
O7EF 
O7FO 
O7F1 
OTF2 
O7F3 
OTF4 
O7FS5 
OTF6 
OVF7 


O7F9 
OTFA 
O7FB 
O7FC 
O7FD 
O7FE 


0800 
0801 


0803 
0805 
0806 
0807 
0808 
0809 


080B 


O80F 
0811 


0813 
0814 


0816 


0817 
0818 


DATE 


EC NO. 


eoecoececeecocooococoocoocoooeooocoooeoooecoocoocccooocoooooooeoqoo0ocoeooooooo0o0on%o 


0603 


(A402. 


4100. 
1181 
0941 | 


-19C2 
£680 


F642 


_ EEC3 
FBO) 


5382 
4B42 


5BCl 


9582 


 BD42 


90061 
4200 
4100 
1181 
2200 
F3C3 
8803 __ 
B741 
9582 
0642 
5FE1 
8A43 
EB42 
B200 
4200 
EDC3 
E241 


7882 
£803 


5EC1 


- 0702 
‘7380 


5CCO 
EE42 
0783 
5E40 
E803 


F2c2 


4EB2 
4200 
0603 
A402 
4100 
1181 
0941 
19C2 
E680 


F642 


EEC3 
FBO1 
5382 
4B42 


5801 


9582 . 


8D42. 


90C1 
A702 
29C2 
0003 
0003 
0003 
0082 
8400 


ISJUNOT 


420317 


DC 


DC 
DC 
DC 
DC 
OC 
oC 
OC 
DC 


oc 


oC 


oc 


oc 
OC 


6 


DC 
DC 
DC 
DC 
OC 
OC 


oc 


DC 
DOC 
DC 


DC 
DC 
oC 
DC 
DOC 
OC 
DC 
DC 


+. 
0c 


OC 
oC 
OC 


DC 
DC 


0c 


DC 
DC 


OC 
oc 


oc 
DC 
OC 
CC 
DC 
OC 
oc 


oc 


0c 
oC 


oc 
oc 
oc 
oc 
oc 


oC 


oC 
oc 


yi 


40603 — 


/A402 
44100 
41181 
/0941 


419C2. 


/E680 
4F642 


/EECS 


/FBO1 
45382 


14842 
75801 


49582 


— 18042 


/9001 
14200 
44100 
41181 
/2200 
/F3C3 
/8803 


/B741 
19562 


10642 
/5F81 


- (8A43- 
JEB42 > 


48200 


44200 | 


/EDC3 
4E241 
/7B82 
/E803 
/5EC1 


_ 10702 


47380 
/5CCO 


— (EEG2 


4/0783 


45E40 © 


/E803 
/F2C2 
44EB2 
44200 
40603 


A402 


44100 
41181 


10941 


419C2 
4E680 
/F642 


(/EEC3 


/FBOl 
15382 
14842 


‘756C1 


49582 


— 48042 


49001 
74702 
429C2 


40003 


40003 
40003 
40082 
48400 


30 


31 


'B2 
(33 =. 


34 
35 


36 . 


37 


3g 
39 
- 40 
41 


42 


4&3 


44 


45 


- 48 
i 4&9 
50 


52 
53 
54 
55 
56 
57 
58 
59 


60 


61 
62 
63 
64 


665 


66 


67 


68 
69 
70 
71 
72 


73 
14 
75 


76 
TT 
78 
79 
80 
81 
82 
83 
84 


85 
86 
87 


(89° 


90 


“91 


92 


“93 


94 
95 
96 
97 


ee 


. 


ae 


PART NO. 


PAGE 


31406810 
31406820 
34406830 
31406840 
31406550 
31406860 


- 31406870 


31406880 


- 31406890 
31406900 


31406910 


31406920 


31406930 
31406940 
31406950 


- 31406960 
31406970 


31406980 
31406990 
31407000 
31407010 
31407020 
31407030 
31407040 
31407050 


31407060 
31407070 


31407080 
31407090 


31407100 | 
31407110 


31407120 
31407130 


-31407140 


31407150 


31407160 


31407170 


- 31407180 


31407190 


31407200 


31407210 
31407220 


31407230 
31407240 
31407250 
31407260 
31407270 


31407280 
31407290 — 
“31407300 


* 31407310 


31407320 
31407330 
31407340 
31407350 
31407360 
31407370 


31407380 


31407390 
31467400 


- 31407410 


31407420 


- 31407430 


31407440 


-’ 31407450 


31407460 
31407470 
31407480 


PROG ID 


— PAGE 


2243553 
ote & 
| 
} 
+) 
a 
) 3 
ya 
I 
al 
i ) 
|. 
“h 
4 
| 
0314-0 y 
. 6 
i oo} 
} 2 
= ss > Y a ) 
| 
ee : ae 2) 


—081c 


—081D 
OBIE 


0821 


~ 0822 


0827 


 O82F 


0831 


083A 
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081A: 
0818 


O8iF 
0820 


ooo0o°0o 


0823 
0824 
0825 
0826 


0&28 
0829 
O82A 
082B 
082C 
082D 


oooo0oo0oo0ooeodcoo 


O82E 
0830 


0832 
0833 
0834 
0835 


0836 
0837 
0838 
0839 


0838 
083C 
083D 
083E 
083F 


0840 0 


DATE... 


EC NO. 


(ooo 


eocooo0co 


ecoocooceooco°o 


8001 


0042 


8001 


903C 
9821 


2198 


BC18 


FFF 


3098 


9021 


3460 


6050 
6021 
2074 
209C 
203C 
5C20 
A020 
7414 
FFFF 


FCO8 


- DCFC 


2174 
509C 


— 2160 


343C 
30A4 


FFFF 


~FCD8 
OCFC 


2124 
5054 
5434 
6021 


3470 


549C 


‘A421 
FFFF 


393C 


1130-1231 OMPR F. Te 


15 JUN67 
420317 


a Ske 


OC ' /8001 98 


. OC 40042 99 
DC /80C1 100 
* 
REKKHKSREKKHEKKKKCSEKKKKKAKKESKEKSERKKKKLKKEKSESEKKREKKE KEK 
% MESSAGES | 
RKEMKKKEREKKARKKRKKKKEKKESKKREKKESREKKEKKKAEKRKAKKKSEKKKKE 
* oe 
& 
Goo c O6 5 eee wee Oe 06.6 bb 666 6b 6 086 See eee ee 
* ALPH WAS S/8B 
Kec ceceesc ese SESS SSSSSSeOSSSlHHOosecssesnee 
AWSBE DC 4903C 
DC 19821 
DC 42198 
pc /8C18 
oc FFF 
* : . 
* 
Ke eeee cece eee Se SSeSSHOSSSSSSESHOHOSESELEOCE® 
* ALPH DSW ERROR INITIALIZING 
Keece cece ee SSS OOOO SSSOSESEESOSSES OOOO OO SES 
ADSWI OC 43098 
DC 49021 / 
DC 173460 
DC 76050 
DC 46021 
OC 12074 
DC 4209C 
DC 4203C 
OC ~  F5C20 
DC ‘14020. 
0C  /T&le 
oc JEFFF 
* 
x 
Keocceccecceeseeseeeseseseesesseesesecesescovecs® 
* - ALPH 1231 NOT READY 
Foceccccccccenccccseceseecesseecscecevseseoe 
ANRDY DC -/FCOB 
~ 0c /OCFC 
oC * 12174 
oc 7509C 
OC 42160 
DC ' £343C 
DC F30A4 
pc /FFFF 
* 
KeoeeeeSessees OS SSO SS SSSSHSSSSSSOLOLEEOESOEES 
*  ALPH 1231 HOPPER EMPTY > 
Ke cce creer ee SSO SSeS OSSSOSSOSSEEOSHESOESESEOSS 
AHOPE OC 4FCD8 
~ oc /OCFC 
DC 42124 
OC 15054 
DC £5434 
Oc 16021 
— OC - £3470 
~ oc * 4549C 
‘DC F4A421 
DC -JEFFF 
x : 
x 
KeoeeecececeseSceee esses eseeseesesecesceeceese 
* ALPH DATA ERROR 
Meccccccocccceecccsececcesecceesescococeoscos 
ADERR DC 4303C 
_ TE _ = 
) \ } 


. . \ a ‘ XN ; 
. / . é 4 | 
oot ee ee Se Sees _ negabe oe 


/ 


PART NO} 


PAGE 


31407490 
31407500 


31407510 


31407520 
31407530 
31407540 
31407550 
31407560 


31407570 


31407580 


"31407590 


31407600 
31407610 
31407620 
31407630 


31407640 


31407650 
31407660 


31407670 


31407680 


31407690 
31407700 


31407710 


31407720 


31407730 


31407740 
31407750 


31407760 
31407770 
31407780 


31407790 


31407800 
31407810 
31407820 


31407830 
31407840 
31407850 


. 31407860 
. 31407870 


31407880 


-31407890 
31407900 


31407910 


31407920 


31407930 
31407940 


31407950 


31407960 


- 31407970 


31407980 
31407990 
31408000 


~ 31408010 
31408020 


31408030 
31408040 
31408050 


31408060. 
31408070 


31408080 


31408090 
. 31408100 
31408110 
31408120 
31408130 
31408140 


31408150 
31408160 


PROG ID 


PAGE 


2243553 


6A 


0314-0 
6A 
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0841 
0842 
0843 
0844 
0845 


ooooo 


0846 
0847 
0848 
0849 
084A 
0848 
084C 
084D 
O84E 
O84F 


eooo0coo6cedce 


0850 
0851 
0852 
0353 
0854 
0855 
0856 
0857 
0858 


eooooo0oo°odeo 


0859 
O85A 
0858 
085C 
085D 
O85E 
O85F 
0860 
0861 
0862 
0863 


qeooocoooooo°odso 


0864 
0865 
0866 
O8é7 
0868 
0869 
O86A 
0868 
086éC 
086D 


qeooooooecooco 


DATE 
EC NO. 


9C3C 
2134 
6060 
5060 
FFFF 


5C3C 
9034 
2160 
343C 
3021 
1€3C 
5C5C 
2130 
9890 


FFFF 


7450 
2120 
749C 
3460 
6080 
549C 
2130 
9890 
FFFF 


2074 
9034 
6060 
B054 
9C21 
3098 
9021 
3460 
6050 
602) 
FFFF 


9C50 
5021 
5C3C 
9034 
219C 
5021 
9834 
5C34 
1C9C 
FFFF 


1S JUN67 


4203)7 


DC 
DC 
DC 
oc 
OC 
* 
* 


Wigs sd SG ass wS eee Ree as eb ebb e be eee es seeees ce 
* ALPH 


Poccccceccecceceeeccecsecccscvecsesesccoecceeee 


ALRC OC 
oC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 

* 

* 


thi ncuccct vase ig iat wg Sige wala wieiele bie So wie wee eeees eeeee 
* ALPH 


Fr cce eee eSOSOSSSHOHSHOHSSSHOSEESSSESELEESEOEOEE 


ANINT OC 
oc 
DC 
DC 
OC 
DC 
OC 
OC 


OC 


ALPH 


x 
x 
Feoceeeee SSS SS SO SSSSESSSSHSHSEHSSESESESOSHLOETE 
x 
* 


AINDS OC 

| DC 
OC 
OC 
DC 
DC 
oC 
OC 
oc 
OC 
OC 

* 

* 


ST eeeecee ee eeS SS OSOSSSSHSSHOSEHSSHSSH SEE SE SCEHOOCOSEH SESE 
* ALPH 


Fecccc cece eees sees eSeesseeeeseeseseseveccesosecsserencs 


ATOLA OC 
‘OC 
oc 
OC 
OC 
OC 
DC 
DC 
oc 
oC 


* # & 


49C3C 
12134 


/6060 
/5060 
/FEFF 


LATE READ CALL DSW 


/5C3C 
/9C34 
12160 
1343C 
13021 
/1C3C 
/5C5C 
12130 
19890 
/FEFF 


NG INTERRUPT DSW 


47450 
42120 
7749C 
43460 
460B0 
4549C 
42130 
49890 
/FFFF 


INTERRUPT OSW 


SOeSeoeeseeeeeeeeseeoeoeoeeeaeeoeneeeeeeGeeeeeeeeedse 


12074 
19C34 
76060 
18054 
49C21 
43098 
79021 
43460 
46050 


— 46021 


/FEFF 


ERROR 


TOO LATE TO SELECT 


/9C50 
45021 
/5C3C 


19034 


/219C 
45021 
19834 
15C34 


/iC9SC 


/FFFF 


SSHSOSSSSOHSSHSSSSSHESSHSCHOSSEHSOSHSSCHEHSEHEBSEESESE 
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PAGE 


31408170 
31408180 
31408190 
31408200 


31408210° 


31408220 
31408230 
31408240 
31408250 
31408260 


- 31408270 


31408280 
31408290 
31408300 
31408310 
31408320 
31408330 


31408340 


31408350 
31408360 
31408370 
31408380 
31408390 
31408400 
31408410 
31408420 
31408430 
31408440 
31408450 
31408460 
31408470 
31408480 
31408490 
31408500 
31408510 
31408520 
31408530 
31408540 
31408550 
31408560 


31408570 


31408580 
31408590 
31408600 
31408610 
31408620 
31408630 
31408640 
31408650 
31408660 
31408670 
31408680 
31408690 
31408700 
31408710 
31408720 
31408730 
31408740 


- 31408750 


31408760 
31408770 
31408780 


31408790 


31408800 
31408810 
31408820 
31408830 
31408840 


PROG ID 


PAGE 


2243553 
7 


0314-0 
7 


{ 


eee eee 
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1130-1231 OMPR Fe Te 


O86E 
O86F 
0870 
0871 
0872 
9873 
0874 
0875 
0876 
0877 
0878 
0879 
O87A 
087B 


KN --N-E--0- 0-0-0 


087C 
087D 
O87E 
O87F 
0880 
0881 
0882 
0883 
0884 
0885 
0886 
0887 


oooo0ooo0ocoeoo0ocoe 


0888 
0889 
O88A 
088B 
O88sc 
088D 
O88E 
O88F 
0890 


0891 
0892 
0893 
0894 
0895 
0896 
0897 
0898 
0899 
O89A 
0898 
089C 
089D 
O89E 
O89F 
O8A0 


oeoecooo0ooo0ooqo0oo0ooooo 


DATE 
EC NO. 


oeooooo0oco0o0co 


6034 
3€30 
8021 
7450 
2130 
3C9C 
321 
1050 
7054 
3C60 
342 
9034 
989C 
FFFF 


3C5C 


9C34 j 


6074 ; 


3C9C / 
3421 =} 
9834 /; 
5634 | 
1c9C i 
219C 
3498 
9C21 
FFFF 


703C 
989C 
3460 
2170 
3060 
5821 
9034 
989C 
FFFF 


3098 
9080 
2121 
703C 
989C 
3460 
2170 
3C60 
5821 
7450 
9C21 
2074 
3020 
103C 
9034 


3021 


15JUN67 


420317 


*  ALPH 


KececeeeseeeSeoseseeSeSeseseSeseeesevesenseses 


ARNC OC. 


OC 
oc 


DC 


DC 


oc 
OC 
OC 
OC 


DC 


OC 
oc 
DC 
dC 


x 

e 

Ke eceeeee SS SSSSSSSOSSSOHSHSCEHHSSOHOSEOSSEESEEEE®S 
* ALPH 

x 


AALTS OC 
DC 
DC 
DC 
DC 
DC 
oc 
oC 
OC 
DC 
DC 
DC 

* 

ee 


Feoeee SSO SSS SSHHSH OSHS SHSHOSESOOSCEOECEOCESESO®S 
* ALPH 


Seccccccsececes >@eeeoeoeooes ecoeoeeaeeaeneeeeneaaneneooeoeoeeede 


AMMTS OC 
OC 
DC 
OC 
DC 
DC 
OC 
DC 
oc 

* 

* 


TSoeeeeee SSS SS SSSSOSHHSHSHOSSS SHEESH SE OESOEE®E 
MASTER MARK NOT INDICATED 


Fecccccecevcescccescecsccecsesssececsccccos 


* ALPH 


AMMNR DC 
OC 


DC 


OC 
OC 


DC . 
DC. 


DC 
OC 
DC 
DC 
oC 
DC 
oC 
OC 


OC . 


READ,» 


16034 
/3C30 
/8021 
17450 
12130 
/3C9C 
/3C21 
71050 
11054 
/3C60 
13421 
19034 
4989C 
/FEEF 


NO DATA COMPARE TEST 


ALTERNATE SELECT TEST 


— 73C5C 


19C34& 


16074 
/3C9C 
13421 
19834 
/5C34 
/1C9C 
/219C 
13498 
/9C21 
/FFFF 


MASTER MARK TEST 


/703C 
/989C 
13460 
12170 
/3C60 
/5821 
/9C 34 
/989C 
/FFFF 


DSW, 
73098 


49080 


42121 
4703C 


—989C 
13460 


42170 


/3C60 


45821 
47450 
19C21 


42074 


43920 
J1iC3C 
19C34 
13021 


se ~ : oe a re . ee ap ar oe, ~, _ ’ f ae 
COCTCOCOCOOC 
a se ae. ‘ 7 / Z oe ; wt ye 
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PAGE 


31408850 
31408860 


31408870 


31408880 


31408890 
31408900 
31408910 
31408920 
31408930 
31408940 
31408950 
31408960 


31408970 


31408980 
31408990 
31409000 
31409010 


31409020 


31409030 
31409040 
31409050 
31409060 
31409070 
31409080 
31409090 


31409100 


31409110 
31409120 
31409130 
31409140 
31409150 


31409160 


31409170 
31409180 
31409190 
31409200 
31409210 


31409220. 


31409230 
31409240 
31409250 
31409260 
31409270 
31409280 
31409290 
31409300 
31409310 
31409320 
31409330 
31409340 


31409350 


31409360 
31409370 


31409380. 
31409390. 
31409400 


31409410 
31409420 


31409430 
31409440 
31409450 


31409460 
31409470 
31409480 
31409490 
31409500 
31409510 
31409520 


PROG ID 


PAGE 


TA 


0314-0. 
7a 





a 


er 


oo 


{ 


a 
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1130-1231 OMPR F. 


O8Al O FFFF 


O8A2 
O8A3 
O8AE 


O8AT7. 


O8A8 
O8AA 
O8AC 


O8AD 
O8AF 


0661 
0883 


0864 


O08B6 
0887 
O8B9 


O8BB 
O8BD 
O8BF 
O8Cl 
08c3 


O8C5 


O8C6 
O08C8 
O8CA 


 OBCe 


oscD 
O8sceE 
OSscF 
08D0 
08D1 
08D2 


DATE 


0 


01 
00 
0 


Lom | 
01 
0 


01 
00 


01 


0 


Ol 
G 

01 
Ol 


Ol 
00 
Ol 
Ol 
00 


0 


01 
01 
01 


1 


EC NO. 


0000 
440008CC 
65001000 
6910 


650008B1 
740005E6 
TO0E 


6D0005E5 
44800161 


T4FFOBC5 
70F% 


C4B8008A2 
DOEB 

650008C8 
6DO0005E6 


C40005E0 
44880161 
940005DD 
442005F3 
44800161 


0000 


740108A2 
440008D4 
4C8008A2 


0000 
D812 
2807 
6908 
6A09 
660A 
4Cs800scc 


15JUN67 
420317 


Te. 





PAGE 

oc /FFFF 31409530 

* 31409540 
* 31409550 
EKSCKSSKESERSKKAKKS SKS SSKKKKKSERSKKKESKKEKSEKCESKKEKHKKESK 31409560 
* DMIG SUPPLIED SUBROUTINES 31409570 
SKELKSCTKHESKAKES KATE KKK SEKKKSSSSKLKSEKSSEKIRSSKKKESCEKSESESK 3) 409580 
* 31409590 
KEKKKEKSEKRE KSEE SKC KKKSKEKKEKKSEKKKKKRKSKCKKKKESE 31409600 
x . INTERRUPT WAIT ROUTINE 31409610 
SSKCHSSKARHECSELKSE KRESS SKSELKKSSKSEKKKKRSEKKSEKE KS 31409620 
* | 3 31409630 
* THIS SUBROUTINE WAITS FOR INTERRUPT. 31409640 
* WHEN THE INTERRUPT IS RECEIVED IT WILL 31409650 
of CHECK THE ROUTINE SELECTION SWITCH. 31409660 
7 IF A NEW ROUTINE HAS BEEN SELECTED IT 31409670 
* WILL BRANCH. TO THE CONTROL ROUTINE} 31409680 
$ eee ee nn 31409690 
* 31409700 
WAIT DC eu 31409710 
BSI tL 2Z22ZSAV SAVE MACHINE STATUS 31409720 

LOX Li /1000 SET INTERRUPT 31409730 

STX 1 ZZwCT WAIT COUNT 31409740 

* = 31409750 
ZZWOl LDX Ll 22W03 31409760 
. MOX L MLSCF4+1,0 CHECK FOR INTERRUPT 31409770 
MDX —LZ2ZW04 BRANCH IF INTRPT OCCURED 31409780 

* : 4a * 31409790 
ZZwWO2 STX Lil MLSCF SET RETURN ADDRESS 31409800 
BSI I START GO TO MONITOR 31409810 


* 31409820 
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ZZWO3 MDX L ZZWCT»—1 DECREMENT WAIT CNT 31409830 
MDX ZZwol 31409840 

* . 31409850 
LD I WAIT ENTER HERE IF NO INTRPT 31409860 

STO WAIT SET NO INTERPT RETURN 31409870 
LOX tl 2Z2ZRO2 31499880 

STX Ll MLSCF41 31409890 
* | 31409900 
ZZwO4 LD eLOSW 31409910 
BSI J STARTe+ CK FOR ROUTINE SELECT 31409920 
S  L RID. CK FOR NEW ROUTINE 31409930 
BSI Lb -CNTRL9Z BR IF NEW ROUTINE 31409940 

BSI I START GO TO MONITOR 31409950 
* 31409960 
ZZWCT OC wm 31409970 
* | = of, 31409980 
I nn rr nn ~—==--= 31409990 
* RETURN HERE AFTER INTERRUPT 31410000 
* a a nn ee nnn 31410010 
ZZRO1 MDX L WAIT? 31410020 
ZZROZ BSI LL ZZRES RESTORE MACHINE STAT&S 31410030 
BSC I WAIT RETURN 31410040 

* | | 31410050 
. : 31410060 
RESKSECKKRKKKEAKKEKKKARKKESKKSCKKKSEKKCHAKKKTKKKSEKEKKKSEKEKEKKRE 31410070 
* SAVE MACHINE STATUS 31410080 
SRKEKCKCKSSSEESCKKKEKRKCKEKKKKSESSEAEKKSKKKEKKKESKKEKRKKKLCKE 31410090 
* 31410100 
ZZSAYV DC t—* 31410110 
STD ZZSAQ 31410120 

STS 2zSTS 31410130 

STX 1 228141 31410140 

STX 2 228241 31410150 
STX 3 228341 31410160 

BSC I ZZSAV 31410170 

& | 31410180 
KHEEEKKAKEKSKKSKECKKRSEKRESCKESKSSKEKKKKKESSSEKKSKEE KKK KSEKKHESHKE 31410190 
* RESTORE MACHINE STAI"S 31410200 
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2000 
65000000 
66000000 
67000000 
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0002 
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ZZSAQ 
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L2 #-*% 
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I ZZRES 
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FOR THE 1130 SYSTEM 


SKKKCKKREEKEKKEKEKRSEKKKSKKCTKSEKEKSEKSE LKR KKK KEKSEKEKKEKES 


WKAR EK AKKKEKEKKKAKEKSKEKKSHKKKKKKERKKSEREKKKKHKKKKKKKEKKRKE 


DELAY SUBROUTINE | 
SKKKKKEKLREKEKKEKKKKKKEKKKEKKSEKKKRKCKKKAKKKAKEKKKH 


ZZRES DCC 
LDD 

ZZSTS LOS 

ZZS1_ LDX 

ZZS2 LOX 

7ZS3 LOX 

BSC 

ZZSAQ BSS 

x 

* 

* 

* 

DELAY DC 
BSI 

LO 

STO 
MDX 

7ZD02 LDX 
STX 

* . 
LD 
BSI 
Ss 
BSI 
BSI 

x 

ZZD01 MDX 
MDX 
BSI 
BSC 

ZZ0FA DC 

x 

x 


4 


Fg : 

ZZLOG DC 
BSI 
LDX 
BSI 


BSI° 


DC 

BSI 

BSC 
* 


to me errr om fT 


mm Ce 


13 
Ad 


I 


pat peo 


t—%& 


ZZSAV 
DELAY 
ZZDFA 
DELAYs+1 
zZD01 
MLSCF41 


SWl. 
START o+ 
RID 
CNTRL eZ 
START | 


ZZDFAe-1 
ZZD02 
ZZRES 
DELAY 
kane 


GET DELAY FACTOR 


CK FOR ROUTINE SELECT 
CK FOR NEW ROUTINE 
BR IF NEW RNT 


DECRE COUNT 
BR 
RESTGRE SYSTEM 


DELAY FACTOR 


PRINT STATUS MESSAGE SUBROUTINE 


Kon | 

ZZSAV 
2ZLOG 
ZZTCM 
LOG 

ZZTAL 
ZZRES 
ZZLOG 


SAVE STATUS 


SET UP MESSAGE TABLE 
PRINT MESSAGE 


RESTORE STATUS 


RKRKKCKKKKKEKKKKKKKKKEKEKRKKKKKKEKK KKK KEKE KKKKKK KEKE 


PTTTTT TTT TT TI TTT UT TT TL te ttt tt 


RKKKKEKRKKKS KESSLER SEEKS ERE EEEEE SERRE 


PRINT ERROR MESSAGE SUBROUTINE 
REREKEHSELEKEK SKS RES KASS SLEA SRK ESASAKAKER SE KSKERH LHRH 


x 


* : 

ZZERR DC 
BSI 
LDX 
LD 
STO 
MDX 
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DOC 
ZZLOP DC 
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3 
3 


*—% 
ZZSAV 
ZZERR 
G 
ZZLOP 


31 


ZZTCM 
ERROR 
ZZTBL 
Km 


ZZRES 
ZZERR 


SAVE STATUS 


SET UP MESSAGE TABLE 
PRINT MESSAGE 


RESTORE STATUS 
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O91A 
0918 
091C 
091D 
O91F 
0920 
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0925 
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0929 
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6932 
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0938 
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093F 
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Te 


m 
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x 
*---~-- 
ZZTCM DC 

LOx 2 
zzT1 =O 3 
STO L2 
MDX 3 
MDX 2 
MDX 





Lo 3. 


SLA 

SRA 

STX 3 
STX 3 
BSC I 


ZzZT2 


RTE 

LD 13 
STO L2 
MDX 2 


MDX 3 


SLT 
MDX 
* 





* 
* 
ZZTBL DC 
: DC 
DC 
DC 
DC 





“MESSAGE 


eee 


DOC 
DC 
OC 
OC 
OC 
oc 
DC 
OC 
oC 
oC 
OC 
~—6hoe 
DC 
BC 
OC 





s-% 
-5 

0 
ZZTBL+5 
1 

1 
2zT1 


-3 

1 

1 

ZZLOG 
ZZERR 
ZZTCMe+ 


17 

0 
ZZTBL+5 
l 

i 

16 

ZzZT2 


COMMON MESSAGE SET UP SUBROUTINE 








STO MESSAGE CONTROL 


LD DATA CONTROL 


SET RETURN ADDRS 


RETURN IF FINISHED 


LD DATA 
STO IN MESSAGE TABLE 


LOOP UNTIL LAST DATA WORD 





MESSAGE TABLE 





e—e 
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tm—%& 
*—* 
Kuh 


DATA 


Row HK 
Siem & 
Eom | 
Bae & 





MSG ID 
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CROSS REFERENCE LISTING 


SYMBOL 
AALTS 
ADERR 
ADSWI 
AHOPE 
KINDS 
ALRC 
AMMNR 
AMMTS 
ANINT 
ANRDY 
ARNC 
ATOLA 
AWSBE 
BEGIN 
BGIN 
CHECK 
CHK1 
~CHK2 
CHK3 
i CNTRL 
CN10 
CNzO 
” CN30 
DELAY 
DISC 
) DWCNT 
? END 
EOPAD 
ERLCK 
EROCC 
ERROR 
FEED 
FRSW 
HOSWF 
3 HDSwWI 
HDSWN 
HDWAS 
HLRCD 
HO2BE 
HWASI 
HO107 
H8486 
H8 686 
H9686 
ILO 
Itl 
q IL2 
IL3 
IL4 
a INIT 
INIT4 
INT4 
“} IN] 
IN2 
IN3 
4 KEFFF 
~KE700 
KFB3F 
a KFB39 
KFBT7F 
KFOFF 
- KOC82 
KOOO] 
KOOSA 
K0200 


DATE 


EC NO. 


VALUE 
os7c 
0840 
0822 
0836 
0859 
0846 
0891 
0588 
0850 
O82E 
O86E 
0864 
081D 
0160 
O5E8 
0780 
O78F 
0793 
OTAT 
O5F3 
OSFT7 
OSFE 
0604 
O8E2 
0628 
0641 
0164 
063C 
0166 
0643 
0162 
0622 
0630 
0644 
0640 
0646 
0642 
0645 
O63F 
O63E 
0632 
062B 
C62A 
0635 
O17A 
018A 
O19A 
OlLAA 
O1BA 
0740 
076D 
0614 
0748 
0764 
0775 
0631 
O62E 
0639 
0638 


0620 
- 0630 


0634 
0633 
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0784 
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O5F5 

O5F9 

06B0-0760,0764,077C s08E5,08E8,08FD 
O6EF .0716,0719,0741 
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0000,0913 
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0000 
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0662 


a, 


PART NO. 2243553 


PAGE 


peo 


PROG 1D 


, PAGE 


9A 


|, 0314-0 
9A 


a ae . 








IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1130-1231 OMPR Fe. 


K04CO 
KO800 
K7BC3 
K7939 
LOG 


LOGBY 


LPTST 
LRIN: 
MLSCF 
NINT 
NRTN 
PID 
RAD 
READ 
RID 
RIDCK 
RLCF 
ROKB 
ROTY 
RTNOM 


RTNSW 


RTN1 
RTN2 
RTN3 
RTNS 


RTTBL 


RIA 
R16 
R161 
RIC 
R101 
R1C2 
R1D 
R1D) 
R1D2 
R1F3 
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R2B 
R2B1 
R3A 
R3Al 
R3A2 
ROA 
R4B 
SELCT 
SENSE 
SENSR 
START 
STRT 
SVKB 
Swo 
Sw 
Sw2 
SwW3 
TABLE 
WAIT 
ZZOFA 
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2z002 
ZZERR 


ZZL0G 
ZZLOP 
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0000 
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OSE4 
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08D6 
0807 
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aie ne ta PAGE | 0001 
1403 PRINTER: FUNCTION TEST. ae ee 
TABLE OF CONTENTS 
PARAGRAPH — | | ; PAGE 
lé PURPOSE. ® e e e e e e e e eo @ ® e e e 6 e e e @ e eo e e e e e e i 
Ze REQUIREMENTS 2 6 oo we eee ere cee ec ere ce ener eees 2 
2.1 PROGRAM REQUIREMENTS. 
202 EQUIPMENT REQUIREMENTS 
3. OPERATING PROCEDURE cee ee scceccccsecsccecsvese =W 
?,1 PROGRAM LOADING | 
3.2 PROGRAM OPERATION 
3.2.1 PROGRAM. CONTROL OPTIONS - FUNCTION 0 
302.2 ROUTINE SELECTION — FUNCTION 1 
302.3. PRINTER SIZE OPTION — FUNCTION 2 
32204 OPTIONAL ROUTINE SETUP 
363 PROGRAM HALTS , 
3.3.1 “NORMAL HALTS 
32302 ERROR HALTS 
364 TERMINATION | 
4e PRINTOUTS. « ee ee eee eee ewe ee eo eo eo ec ww oe © eo 3A 
: 4el STATUS MESSAGES 
402 ERROR MESSAGES 
5. COMMENTS eee @ @ @ 6© @ @ ° eo eeeeeeee%8e 8h @86hOHhrhCihC<C HC OHhUCUrOlhlCFhlCUO . GA 
5el ROUTINE DESCRIPTION : 
562 1403 QUTPUT CHARACTER copes 
5.3 CARRIAGE TAPE 
6. APPENDIX | 
601 SAMPLE PRINTOUT 
le PURPOSE 
‘THE 1403 FUNCTION TEST IS DESIGNED TO CHECK THE OPERATING PERFORMANCE OF THE 
1403 PRINTER» 120 OR 132 PRINT POSITIONS, AND TO AID IN ITS ADJUSTHENT. 
2. PREREQUISITES 
2.1%*% PROGRAM PREREQUISITES 
THIS PROGRAM HUST RUN UNDER CONTROL OF THE. DIAGNOSTIC MONITOR. THE 
DIAGNOSTIC MONITOR PROGRAM USES 1500 STORAGE WOKDS, AND THIS PROGRAM 
USES 1400 STORAGE WORDS. 
2.2%6% EQUIPMENT PREREQUISITES | | 
ALL CHANNELS PUNCHED EQUALLY SPACED IN NUMERICAL ORDER 1S NECESSARY 
FOR THE CARRIAGE TEST ROUTINE. THE CHANNEL PUNCHES SHOULD BE SPACED 
FOUR OR MORE LINES APART ON THE CARRIAGE TAPE. AMY SUCH TAPE WILL 
WORK WELL. SEE TABLE 4 FOR A SUGGESTED CARRIAGE TAPE. 
SSLSKCEKESES 
DATE 15JUN6? 20 SEPT.67 PRUG ID 030D-* 
EC NOw 420317 420317C 
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1403 PRINTER FUNCTION TEST | 


3. OPERATING PROCEDURE 


3.1%4% PROGRAM LOADING 


STANDARD: MONITOR LOADING PROCEDURES APPLY | 
THESE PROCEDURES ARE Sunn tee ED HERE. SEE DM USE PROCEDURE FOR 
DETAILS. | 


le SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 
 2e SET BIT SWITCH 15 OFF - LOAD AND GO 
ar ON - TO SPECIFY OPTIONS BEFORE RUNNING» 
3e LOAD DIAGNOSTIC MOl-ITURe . 
4. SELECT PROGRAM OPTIUNSe IF DESIRED. 
SRETHE 


3e2%%** PROGRAM OPERATIONS 


STANDARD MONITOR OPERATING PROCEDURES APPLY. 
THESE PROCEDURES ARE SUMMARIZED HERE. SEE OM USE PROCEDURE FOR 
DETAILS. 


PROGRAM CONTROL = FUNCTION O 


3201 
le SET SWITCHES 0-1 OFF. 
2. SET PROGRAM LOADING SEQUENCE NUMBER IN SWITCHES 4-7. 
(ONE UNLESS RUNNING OVERLAP) 
3. SET SWITCHES 8-15 AS DESIRED. | ea = 
SW -UNCT ION a re 
8 RESTART 
9 ROUTINE START MESSAGE 
10 ‘LOCK ON FUNCTION 
11 —- LOUP PROGRAM 
12 LOOP ON ERROR 
13 BYPASS ERROR PRINTOUT 
14 HALT ON ERROR 
15 HALT 
46 PRESS INT KEO KEY CN | CUNSOLEs | | 
3o202 ROUTINE SELECTION - - FUNCTION 1 
THE SELECTED ROUTINE WILL LOOP UNTIL A REW ROUTINE 1S SELECTED. 
le SET SWITCHES 0-1 TO Ole me - | 
2. SET PROGRAM LOADING SEQUENCE NUMBER IN SWITCHES 4-7. 
3 (ONE UNLESS RUNNING OVERLAP) 
DATE 15JUN67 20 SEPT.67 PROG ID 
EC NOe 420317 420317C¢ | | PAGE 
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, DATE, 


__15guN67 20 SEPT 67 
EC’NOS 420317 420317C 
= : . we . 
ee Se TF 4g 


3e SET ROUTINE NUMBER IN SWITCHES 12-156 


1 PRINTER READY + BUSY TEST 
2 CARRIAGE READY + BUSY TEST 
3 PARITY CHECH (GOOD PARITY) 
4 _ BIT LINE, TEST 
“5 PARITY TEST {BAD PARITY) 
6 —s CHARACTER COMPLEMENT 
7 “SPACE AFTER PRINT TEST 
8 SPACE BEFORE PRINT TEST 


9 # SKIP AFTER PRINT TEST 
A. * SKIP IMMEDIATE | 
B  *% PRINTER DATA ENTRY 

x 


PART NOw 2243558 
PAGE 0002. 


- NORMAL ROUTINES= ~ 


THE PROGRAM STARTS WITH 
ROUTINE le RUNS EACH 
ROUTINE IN SEQUENCE 
THEN TERMINATES AFTER 


‘ROUTINE 8.- 


OPTIUNAL ROUTINES= 
THESE ROUTINES RUN 
ONLY IF SELECTED. 


= REFER TO SECTION 3.263 FOR. SPECIAL INSTRUCTIONS. 


4 PRESS INT REQ KEY ON CONSOLE. 
EER ERS 


3.203 PRINTER SIZE OPTION — FUNCTION 2 


. TO TEST 132 POSITION PRINTERS (RPQ) SET FUNCTION 2, BIT 25 ON. 


le. SET SWITCHES 0-1 TO 10. 


2e SET PROGRAM LOADING SEQUENCE NUMBER IN SWITCHES 4-7. 


. (ONE UNLESS RUNNING OVERLAP) 
3- TURN ON SWITCH 15 
4 PRESS INT REQ KEY ON CONSOLE. 
Se RESTART THE PROGRAM. 


FOLLOW THE SAME PROCEDURE.WITH SWITCH 15 OFF TO RESELECT 120 POSITIONS. 


“NOTE® IF THE 132 POSITION OPTION IS SELECTED ON A 120 POSITION PRINTER, LOST 
INTERRUPT MESSAGES WILL OCCUR IN ROUTINES 3 AND 5, 


30204 OPTIONAL ROUTINE SETUP 


le ROUTINE 9 AND A 


THESE ROUTINES REQUIRE A SPECIAL CARRIAGE TAPE OR A TAPE WHICH 
HAS TWO ADJACENT HOLES IN CHANNELS le 9 AND 12.2 A SAMPLE TAPE 


IS CALLED OUT IN SECTIUN 53. 
20 ROUTINE B 


THIS ROUTINE PRINTS THE CHARACTER SET UP IN THE BIT SWITCHES. 
. THIS IS CODING UNIQUE TO THE 1403 AND IS SHUWN IN SECTION 5.2. 
THE BIT CODE IS SET IN BIT POSITIONS 8-15. BIT O SWITCH MUST 
BE ON OR THE MANUALLY ENTERED CODE WILL NOT BE PRINTED. HS 
WILL BE PRINTED IF THE HONOR BIT (B-0) IS NUT ONe 


PRUG ID 
_ PAGE — 0002 
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a emer 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NOe 2243558. 
7 | PAGE ——sO 002A 
1403 PRINTER FUNCTION TEST 
3.3%8% PROGRAM HALTS 
30321 NORMAL HALTS 
eHALT NO} DESCRIPTION ; ‘ RESTART = : 
e(b REG). 1 e ACTION e 
« 3001 . PROGRAM STOP OR ADDRESS STOP »« PRESS START " 
e 3002 . HALT ON ERROR ° DISPLAY MODE-PRESS START. 
x) e : e RUN MODE-PRESS START e 
e e 2 
3.3.2 ERROR batts 
“HALT NOe DESCRIPTION 3 RESTART | ; 
e (8B RES de oe : ACTION fs Mo es - @ 
. 30Fl1 «. CHECK SUM ERROR ON FIRST ~ RELOAD ao ° 
‘ ‘ CARD OF LOADER m ; 
. 30F2 «. READER. DSW ERROR WHEN » RELOAD ; 
. <2 =~ LOADING LOADER - ‘ 
. 30F3 . ‘CARD 2 OF LOADER DID NOT ° RELOAD ; 
° . ° ~ LOAD e ° 
« 30F4 . “CAN NOT. CLEAR CORE ~ DUE TO . ‘ 
‘ é ERROR IN ADDRESSING UPPER ; 
@ @e COR E. . ; @ @ 
e . 6 e $f. @ 
e 30F5 READER CHECK WHEN LOADING e NPRU THEN PLACE CARDS 
‘ a ee MONITOR OR TEST PROGRAM ° RUN OUT IN FRONT OF .‘e 
. . « REMAINING DECK AND PRESS. 
e e e START. e 
‘° : e ghee ; e . e 
e BOF6 ¢« MONTTOR DID NOT LOAD e RELUAD e 
@ e @ e 
° 30F7 CHECK SUM WHEN LOADING e  RELUAD ‘ 
5 a MONITOR ‘ ‘ 
~ 30F8 READER NOT READY « MAKE READER KEADY ° 
e e F ‘4 .e . , e 
2° 30F9 . INVALID INTERRUPT WHICH WILL « PRESS RESET AND START 
e er NOT RESET e a) 
e@- @ e e 
e BUFA . CONSOLE PRINTER HANG UP — © FIX THE CONSULE PRINTER eo 
e e BUSY WILL NOT GO OFF e OR NUP THIS WAIT: e 
: | seeaae 
3e4nes PROGRAM TERMINATION. 
IF Loop PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
. AT- THE END OF ROUTINE 7. ROUTINE 7yA» AND E WILL ONLY RUN 
SELECTED, = ss | oo | 7 
IP, ANY. ROUTINE. IS SELECTED, THAT ROUTINE. WILL Loup AND WILL NOT 
TERMINATE * 
due, HSH 
DATE 15JUN67 20 SEPT.67 PRUG ID 030D-* 
-: EC NOs . 420317,... 420317C PALE O0002A 
Ke = an 7 _ ~ : i N a 2 Les 
} } ) J : \ ~ e \ i. ss | ~\ 
> ac Soe * ~ SSE: —. ee. ee ee a ee NY QU YY Re ae C7, 


a 


shape wee - dees sae 
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1BM MAINTENANCE DIAGNOSTIC PROGRAM FOR 


THE 1130 SYSTEM... 


1403 PRINTER FUNCTION TEST 


(3/5585 RESTART 


Be5el RESTART ALL PROGRAMS idee agate 
‘ le TURN OFF SWITCHES 0-76 
; 2. ‘TURN UN- SWITCH Bo 
3e SET DESIRED CONTROL IN SWITCHES 9-14. 
: 4 PRESS” INTERRUPT REQUEST KEY. 
2: os 
36562 RESTART THIS PROGRAM ONLY 
le TURN OFF SWITCHES 0-35 
2e SET SWITCHES 4-7 TO PROGRAM LOAD SEQUENCE NUMBER. 
3- TURN ON SWITCH Be 
4. SET DESIRED CONTROL IN SWITCHES 9-14. 
5. PRESS INTERRUPT REQUEST KEY. 
. nn 
3.503 RESTART FROM HANG uP 
PRESS IMMEDIATE STOP, RESET, THEN START. THIS WILL RESET 
ALL MONITOR» CONTROLS” AND» THEN RESTART THE MONITORS 
a Ae ae oe a ae ok a REE 
DATE 15JUN67 20 SEPT.67 
€C ND. 420317 420317C 


- PART NO. 
PAGE ~ 
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PART. 
PAvE 


1403 PRINTER FUNCTION TEST 


4e 


ALL PRINTOUTS . eins 


APPNN OORR AAAA. 


A0OQOd1 


AODOO OOOR 


WHERE A 


PRINTOUTS 


IN THE STANDARD FORMAT. | 
 CUMESSAGE) | 


IDENTIFTES.STATUS MESSAGES | 

E IDENTIFIES. ERROR MESSAGES 

THE PID GF THE PROGRéM CAUSING 
THE MESSAGE SEQUENCE NUMBER 
THE ROUTINE NUMBER 

THE ADDRESS OF THE ROUTINE 

ANY VARIABLE INFORMATION 


PP IS THE MESSAGE 
NN TS 
RR IS 
AAAA IS 


MESSAGE IS: 
STATUS MESSAGES 


Pa PID ADRS RELF LD 


XXXX XXXX XXXX XXXX 


THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR), THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID~y THE ADDRESS INTO WHICH THE PROGRAM WAS LUAUVED, 
AND THE RELOCATION FACTOR. 


SWS PID , 
XXKXX AXXXXK , r 


THIS MESSAGE 1S PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 


4g 223% 


DATE 
EC NOs 


. LS JUN6T 
420317 


BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM 1D OF THE PROGRAM INTU WHICH THE 
CONTENTS GF. SWITCHES 8-15 WERE STORED. IF THE SrnITCH ENTRY 
CALLED FOR HALT OF ANY Cacwemr THE WOKD HALT WILL FOLLOW THE 


PEoancws 


AAAA 


ROUTINE START MESSAGE = IF SWITCH 95 FUNCTIUN O- IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE. NEXT ROUTINE AND AAAA IS TRE STARTING 
ADDRESS. 
BETAS 


ERROR MESSAGES 


THE OSW IS CHECKED FCR ABSOLUTE CORRECTNESS AT ALL TIES. 
ERROR 3S DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE DSW FOR THE 
SPECIFIC PRUBESM AREA 


IF AN 


PRUG 
PAGE 


- 20 SEPT.67 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FUR THE 1130 SYSTEM PART NO. 2243558 IBM MAINTENANCE DIAGNOUTIC PROGRAM FOR THE 1130 SYSTEM PART NUe 2243558 
: c PAGE 0004 | : PAGE | O004A: 
_ ™ 1403 PRINTER FUNCTION TEST | | _ 1403 PRINTER FUNCTION TEST 
¢ 
¢ 1 6 MAE Me ae ae a ee ae Me a Me A a ee a a a a ee ee a a ea a a ae ae ke ea ae a eae ee a ae CARRIAGE TAPEe | 
* THE 1403 OSW 
5 2K ae ce oe oe am am ewe aD 80 > ae GD om ee aE aw ow on ae ee ee ee ewe ew a ee On ae PDE eas OD OD Om aD OD OD ED OD ED on ow ‘e : 
Dor * +. EODO1 OOOR AAAA WAS S/B - 
3 * BIT | x j | XXXX OOYY 
Co, * 0 PARITY ERROR * / 7 
- % 1 TRANSFER COMPLETE INTRPT % 1 PRINTER SHOULD BE READY. 
_ % 2 PRINT COMPLETE INTRPT * a 
% 3 CARRIAGE OPERATION COMPLETE INTRPT % | i 
te % 4 % EODO2 OOOR AAAA. WAS S/B 
: % 5 RING CHECK x : XXXX OOYY 
% 6 SYNCH CHECK * 
ee % 7 % PRINTER | SHOULD BE NOT-BUSY. 
i ee Emr VAN VE ee gd UE UR eR cake ata 
: % 8 x. ? 
nae * 10 | * EOD03 OOOR AAAA- .- -~———~—™:é«C<WAS.sSSB 
_ * 1 CHANNEL 9 * | | | Senn ea 
: * 12 CHANNEL 12 * Got 8 a ee 
— * 13 CARRIAGE 8USY * CARRIAGE SHOULD BE NOT=-BUSY. 
:* * 14 PRINT BUSY x ; o-------- -— 
* 15 NOT READY x i | bet 
* # EOD04 OOOR AAAA. - WAS S/B 7 | ° 
peepee ehawereseseeunss GUknsoees den cieesewicnanceseen a oe “XXXX OOVY . . 
: CARRIAGE SHOULD BE. BUSY AND: PRINTER. SHOULD BE BUSY. 
E0001L_~ st. SWS  INVLD a a a a a 
7 EODOS O00R cy WAS © $/8 
i THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE | XXXX OOYY 
i NUMBER OF ANY PROGRAM IN COREe i | 
i PRINTER SHOULD BE. BUSY AND. READY« 
: E0903 | OVR CORE . sata eeemaneees 
C. THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD EOD06 OOOR AAAA tits Re 
aa | EXCEEDED AVAILABLE CORE. LGADING WAS TERMINATED. XXXX OOYY 
i C E0006 | CKSUM | CARRIAGE SHUULD BE BUSY. 
§ ‘ ; ¢ =m G® G2 Gn €® a» @= ae pew 
} . . 1 
; A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM. a i Be , 
: | THIS ERRUR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. EODO7 OOOR | ARMA | ! WAS S/B. 
" | Wt? | XXXX 10vY 


1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 

C eae 2e. THERE IS AN EXTRA CARD IN THE DECK. | 

: un 3e THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. - 
4e DATA WAS LOST OR PICKED UP_DUE TO A MACHINE MALFUNCTION. 


Bee ie ote. 


CARRIAGE CHANNEL INDICATOR BITS NOT WORKING PROPERLY. 








: 
: , » He 
i ¢ Se OUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT EO0D11 0001 AAAA 3 WAS S/B. | : 
oe | CORRECTLY CALCULATED. | XXXX 40YY (TRANSFER COMPLETE DSW) 
f | | 
a WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. y190 | | XXXX 20YY (PRINT COMPLETE DSw) 
} E0005 _ 3 —  QOON XXXxx | | | | ERROR IN INTERRUPT DSW (XXXX)e WHEN PRINTING BLANK LINES WITHOUT 
a | | > =) SPACING THE CARRIAGE. ANY PRINTED CHARACTER ON THE 1403 1S AN 
— THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSW , ERRORe i 
WAS NOT CORRECT. N JS THE INTERRUPT LEVEL AND XAXX IS THE | an eee ame --- 
ILSWe THIS PRINTOUT WILL’ ONLY OCCUR IF THE INTERPUPT IS RESET \ > , | . ae | a 
_ BY A BOSI. NO ATTEMPT IS MADE BY. THE ERRUR ROUTINE TO RESET | of EOD12 0002 AAAA te FWAS. SJB. | 
THE /REQUEST: BITs | font 7 XXXX,LOYY (CARRIAGE OP COMPLETE DSW) 
’ THE. ERROR MESSAGES WILL BE IN THE FULLOWING FORM, | | ; 7 ) TF ds es ERROR IN INTERRUPT DSW (XXXX) WHEN SPACING THE CARRIAGE WITHOUT 
, | =. * PRINTING» 
7 XXXX OOYY ae 
C. WHERE NN IS THE MESSAGE NUMBER | 3 
"R IS THE ROUTINE NUMBER : pe 
bce din fae AAAA IS THE ADDRESS OF THE ROUTINE | | a mae 
C pe ae XXX TS THE OSW IN ERROR 3 a, oe 
, OOYY IS THE DSW AS IT SHOULD BE. bECAUSE UF CHAN 9 + 12... a 
(4 BITS THE YY POSETEON. MAY VARY DEPENDING ON ‘THES ee co , _ | 
C. | Wer anee 9 ; os) DATE? 15JUN67~ 20. SEPT.62.0 © 2s ee Ge | : pros 10" (0300~" 
3 DATE 15JUN67. . 20 SEPT.67 PRUG 10 030D-* ee: EC NUe 420317 420317C —_— “PAGE =~» Q0004A 
EC NOw 420317 420317C PAGE 0004 =e | 
( cs ) 
C ) ) 
f | \ ~ ~ Ni | ” ~ ‘ > S Me , ss ~ Ca ) - 3 ~ — _— — wnt, sobee, a er ~ dee " am 
an “ — ctl ‘i xe = - ea + of Seo ee, N | | ) ’ | | | ) | : ‘ \ | \ . 
4 - ~ are — a 7 7 a J ~~ ~ Som eee oe 2 hy Gays aa ee Sn 
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ee 
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E9D13 G003 AAAA 


ERROR’ IN. INTERRUPT OSW (0000s 


E0D14 .0004 


— PAGE 


WAS S/B : 
XXXX 4002 OONNN: (TRANSFER COMPLETE DSW) 


“XXXX' 2000 (PRINT COMPLETE! DSW) 

WHEN’ PRINTING SINGLE-B17° GYD: 
THE LAST WORD INDICATES IN DECIMAL THE PRINT 
ONE. CHARACTER AT A TIME IS PRINTED. 


wy 


PARITY CHARACTERS. | 
POSITION IN ERROR. 


***1122335599VVRR11223°°¢ _ 


1 = 40. 2 = Ol Wak He Ghee He atta de toes ot 
3.2 02 5 = 0% a hee Ae 
4 = 08 V = 10 
R = 20 7 - 
AAAA - WAS S/B : 4 
XXXX 4OYY (TRANSFER COMPLETE) 
XXXX 1OYY (CARRIAGE OP COMPLETE) 
XXXX 20YY (PRINT COMPLETE) 


ERROR IN INTERRUPT DSW (XXXX) WHEN PRINTING SINGLE-EIT CHARACTERS 


EOD15 0005 


£0D16 0006 


1SJUN67 20 SEPT.67 
420317 


960) 122335599VVRRI1L2Z23e¢8 


1 = 40 2=01 

3 = 02 5 = 04 

9= 08 V=10 

R = 20 - 
AAAA WAS S/B 


XXXX COYY OONNN (TRANSFER COMPT PARITY ERROR) 

XXXX AOYY (PRINT COMPT PARITY ERROR) 
ERROR IN INTERRUPT DSW (XXXX) WHEN PRINTING SINGLE BIT BAD PARITY 
CHARACTERS. THE LAST KURD INDICATES IN DECIMAL THE PRINT POSITION 
THAT DID NOT INDICATE A PARITY ERRORe 


1991122335599VVRR1122300° 


l= 00 22 4} 
3 = 42 5 = 44 
9 = 48 Vez 50 
R = 60 
AAAA WAS S/B | 
; XXXX 4OYY (TRANSFER COMPLETE) 
XXXX 1OYY (CARRIAGE OP COMPLETE) 
XXXX 20YY (PRINT COMPLETE: 


ERROR IN INTERRUPT DSW (XXXX) WHEN PRINT THE FULL CHARACTER 
COMPLIMENT. THIS PORTION OF THE PROGRAM USES ROUTINE 4 TO 
QUTPUT THE DATA AFTER ITS INITIAL SET UP. 
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1403 PRINTER FUNCTION TEST 


EOD1LT 0007 


EOD18 0008 


EO0D19 0009 


EODLA OOGA 


EOD16 OOOB 


E0021 


DATE 


FC NO. 


AAAA WAS’? S/B- si 
eles XX: 40vy ATRANS FER COMPLETE) 
XXXX 20YY (PRINT. COMPLETED 
| X00G LOYY. (CARRIAGE. OP COMPLETE). 


ERROR” IN INTERRUPT DSwW- (0800) WHEN: A SPACE - AFTER. PRINT. COMMAND. , 
1S GIVEN. TO SPACE? AFTER PRINTING, A: SPACE COMMAND: 1S. ISSUED. AFTER. 
RAST ES atieeee ee BEEE SYED FROM ae PREVIGUS PRINT COMMAND. 


WAS S/B 


AAAA- 
XXXX GOYY (TRANSFER COMPLETE) 
XXXX LOYY (CARRIAGE OP COMPLETE) 
XXXX 20YY © (PRINT COMPLETE) 


ERROR IN INTERRUPT DSW (XXXX) WHEN A SPACE COMMAND IS GIVEN. 
THE PRINT SPACE COMMANDS ARE -ISSUED AT THE SAME TIME. 


ARAR WAS S/B 


‘XXXX GOYY = (TRANSFER COMPLETE) 
XXXX 20YY (PRINT COMPLETE) 
XXXX LOYY (CARRIAGE OP COMPLETE) 


ERROR IN INTERRUPT DSW (XXXX) WHEN A SKIP ASTER PRINT COMMAND 
HAS BEEN GIVEN. TO SKIP AFTER PRINTING SKIP COMMAND IS ISSUED 


AFTER TRANSFER COMPLETE IS RECEIVED FROM THE PREVIOUS PRINT 
COMMAND. 


WAS S/B 


AAAA | | 
~ XXXX 4OYY (TRANSFER COMPLETE) 
XXXX LOYY (CARRIAGE OP COMPLETE) 
XXXX 20YY (PRINT COMPLETE) 


ERROR IN INTERRUPT DSW (XXXX) WHEN A SKIP IMMEDIATE COMMAND 


1S GIVEN. A PRINT AND A SKIP COMMAND ARE ISSUED TOGETHER. 
AAAA WAS S/B- 
, XXXX 4OYY (TRANSFER COMPLETE) 
XXXX 20YY (PRINT COMPLETE) 
XXXX LOYY (CARRIAGE oF COMPLETE) 


AAAA 


; Os 
ERROR IN INTERRUPT DSW (XXXX) WHEN PRINTING HES on OPTIONAL 
CHARACTERS SET IN THE BIT SWITCHES}. : 


0001 WAS S/B 
XXXX GOYY (TRANSFER COMPLETE) 
0000 20YY (PRINT COMPLETE) 

ERROR IN INTERRUPT DSW (0000). THIS INDICATE THAT ONE 

OR MORE OF THE EXPECTED INTERRUPTS WAS NOT RECEIVED DURING 

THE PRINTING OF A BLANK LINE WITHOUT CARRIAGE SPACING. ANY 

CHARACTER PRINTED ON ‘THE 1403 IS AN ERROR« 
15JUN67 20 SEPT.67 PRUG ID 
420317 4203176 PAGE 
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E0D26 0006 


EQD27 0007 
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1403 PRINTER FUNCTION TEST 


EQD22 0002 AAAA . WAS S/B 


0000 10YY (CARRIAGE OP COMPLETE) 


THIS ERROR (0000) INDICATES THAT NO INTERRUPT WAS RECEJ VED 


AAAA WAS S/B y 
_XXXX GOYY OONNN (TRANSFER COMPLETE) 


0000 20YY. (PRINT COMPLETE) 


- THIS ERROR (0000) INDICATES THAT ONE OR MORE INTERRUPTS WERE NOT 
RECEIVED WHEN TWO WERE EXPECTED. THIS OCCURRED DURING THE 
PRINTING OF GOOD PARITY DNATA», ONE CHARACTER: PER PRINT CYCLE WITH 
NO CARRIAGE SPACING BETWEEN PRINT CYCLES. THE LAST WORUV INDICATES 
IN DECIMAL THE COLUMN WHERE THE FAILURE OCCURRED. 


AAAA WAS. S/3 
XXXX 4OYY (TRANSFER COMPLETE) 


XXXX lOYY (CARRIAGE OP COMPLETE) 
XXXX 20YY (PRINT COMPLETE) 
TRIS PRINTOUT INDICATES THAT ONE OR MORE INTERRUPTS WERE NOT 


RECEIVED. THIS ROUTINE SHOULD SE PRINTING LINES OF SINGLE BIT 
CHARACTERS. © 


AAAA WAS S/B | | 
XXXX COYY OONNN' (TRANSFER COMPT PARITY ERROR) 


0000 AOYY (PRINT COMPT PARITY ERROR) 


THIS PRINTOUT INDICATES THAT ONE GR MORE INTERRUPTS WERE NOT 
RECEIVED. TWO INTERRUPTS WERE EXPECTED. IF NO INTEKRUPTS WERE 
RECEIVED ZERO*S WOULD HAVE BEEN PRINTED FOR THE X*S ON BOTH LINESs 
THIS OCCURRED DURING THE PRINTING Or A BAD PARITY CHARACTER IN THE 
COLUMN INDICATED BY THE LAST WORD. — (OONNN)- 


AAAA - WAS S/B | 
| : XXXX GOYY (TRANSFER COMPLETE) 


XXXX 10YY (CARRIAGE OP COMPLETE) 

0000 20¥Y (PRINT COMPLETE) 
THIS PRINTOUT INDICATES THAT ONE OR MORE INTERRUPTS WERE NOT 
RECEIVED DURING THE CHARACTER COMPLEMENT ROUTINE 
BAAR | WAS S/B 

a XXXX 4OYY (TRANSFER COMPLETE) 

—XXXX 2OYY (PRINT COMPLETE) 
ta fe HE _ 0000 LOYY (CARRIAGE OP COMPLETE) 
THIS” PRINTOUT INDICATES THAT ONE OR MORE INZERRUPTS. WERE: NOT 
RECEIVED DURING THE SPACE AFTER PRINT ROUTINE. THIS KOUTINE 


ISSUES A SPACE COMMAND AFTER THE FIRST INTERKUPT IS RECEIVED. 
THIS SPACE SHOULD BE COMPLETED AFTER THE LINE OF. PRINT. 


LSJUN6% 20 SEPT.67 : | PRUG ID O30D-* 
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1403 PRINTER FUNCTION TEST 


E0D28. 0008 AAAA WAS S/B 


XXXX 40YY . (TRANSFER COMPLETE) 
— XXXX LOYY (CARRIAGE OP COMPLETE) 


0000 20YY (PRINT COMPLETE) — 


THIS INDICATES THAT ONE OR MORE INTERRUPTS WERE NOT RECEIVED 
DURING THE SPACE IMMEDIATE TEST. THE SPACE AND PRINT COMMANDS 
ARE ISSUED TOGETHER. — 2p % 


AAAA WAS S/B- 


XXXX 40YY (TRANSFER COMPLETE) 
XXXX ZOYY (PRINT COMPLETE). 


0000 10YY (CARRIAGE OP COMPLETE) 


THIS IS IDENTICAL TO ‘£0027 EXCEPT THAT IT OCCURRED BURNS THE 
SKIP. AFTER PRINT ROUTINES - 


AAAA WAS S/B 


XXXX 4OYY (TRANSFER COMPLETc) 
XXXX lLOYY (CARRIAGE OP COMPLETE) 


0000 20YY (PRINT COMPLETE) 


THIS IS SIMILAR TO E0D28 EXCEPT THAT IT OCCURRED DURING 
ROUTINE 10 WHERE A PRINT AND SKIP COMMAND ARE ISSUED TOGEHTERs 
THE PRINT TRANSFER SHOULD BE RECEIVED BEFORE THE SKIP 1S COMPLETE. 


THE PRINT COMPLETE INTERRUPT SHOULD FOLLOW. 


AAAA WAS) S/B- 


XXXX 4OYY (TRANSFER COMPLETE) 
XXXX LOVY (CARRIAGE OP COMPLETE) 
0000 20YY {PRINT COMPLETE) 
THIS IS LIKE ECD26 EXCEPT THAT IT OCCURRED DURING ROUTINE 12 


WHERE H®*S ARE PRINTED OR THE BIT SWITCH UPTIONAL DATA IS 
PRINTED. 


AAAA . WAS S/B 
i XXXX 0000 - 
UNEXPECTED INTERRUPT RECEIVED 


SEKKKKKKKS 


e COMMENTS 
__ ROUTINE. DESCRIPTION 


-. THE 1403 FUNCTION TEST HAS EIGHT NORMAL ROUTINES AND THREE “OPTIONAL 


ROUTINES TO AID IN ‘THE ADJUSTMENT. AND CHECKOUT UF THE PRINTER 
OPERATION. THE FIRST EIGHT ROUTINES ARE NORMALLY RUN SEQUENTIALLY: 
UNLESS THE OPERATOR HAS. SPECIFIED. A SPECIFIC. ROUTINE TO BE RUN 
(FCN L)e 


A SINGLE LINE OF PRINT MAY BE OBTAINED. EACH TIME THE KEYBOARD 
REQUEST KEY IS PRESSED> WHEN THE SWITCHES ARE SET TO OX40. (X = 


~*PROGRAM LUADING SEQUENCE -NUMBER)e 


15JUN67 20 SEPT.67 . | PRUG Ib 030D=-% 
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PAGE 0007 
1403 PRINTER FUNCTION TEST 
5.1.1 OPERATION OF NORMAL ROUTINES. 
"As ROUTINE 2 
THE PRINTER READY-BUSY ROUTINE ASSURES THAT THE 1403 CAN BE READY 
AND NOT BUSY THEN PRINTS A BLANK LINE WITHOUT SFACING. THE 
PRINTER SHQULD IMMEDIATELY GO BUSY - NOT READY AND RETURN READY - 
NOT BUSY WHEN THE PRINTER COMPLETE INTERRUPT 1S RECEIVED. 
Be ROUTINE 2 
THE CARRIAGE READY ~ BUSY ROUTINE CHECKS THAT THE CARRIAGE CAN 
BE MADE NOT BUSY AND GOES BUSY IMMEDIATELY AFTER A SPACING 
COMMAND. AFTER THE SPACE COMPLETE INTERRUPT IS RECEIVED, THE 
CARRIAGE SHOULD AGAIN BE NOT BUSYe NOTHING 1S PRINTED BY THIS 
ROUTINE. 
Ce ROUTINE 3 
THE GOOD PARITY CHECK ROUTINE CHECKS THE ABILITY OF THE 1403 TU 
TO PRINT DATA HAVING VALID PARITY BITS. 
A SINGLE GOOD PARITY CHARACTER IS TO BE PRINTED DURING EACH 
PRINT CYCLE. THIS PROCEDURE IS REPEATED FOR ALL PRINT 
POSITIONS BEFORE SPACING THE CARRIAGE FOP THE NEXT RUUTINE} 
De ROUTINE 4 
JHE BIT LINE CHECK ROUTINE PRINTS DATA IN 1TS SIMPLEST FORM TO 
CHECK THE CONTINUITY OF THE PRINT CIRCUITS. ONLY THE FOLLOWING 
SINGLE BIT CHARACTERS ARE PRINTED. 
BINARY WORD CHARACTER 
1000000 1 
0000001 2 
0000010 3 
0000100 5 
000100C 9 
0010000 Vv 
0100000 R 
ANY OPEN OR SHORTED GATA LINE SHOULD BE EASILY SPOTTED BY THE 
PRINTING GF WRONG CHARACTERS. THIS ROUTINE ISSUES A SPACING 
COMMAND IMMEDIATELY AFTER THE PRINT COMMAND. 
Ee ROUTINE 5 . 
THE PARITY CHECK ROUTINE CHECKS THE ABILITY OF THE 1403 TO 
RESPOND TO CHARACTERS WHICH HAVE INVALIU PARITY BITS. 
A SINGLE BAD PARITY. CHARACTER 1S TO BE PRINTED DURING EACH PRINT 
CYCLE. THIS PROCEDURE IS REPEATED FOR ALL PRINT POSITIONS 
BEFORE SPACING THE CARRIAGE FOR THE NEXT RUUTINEs . _ 
Fe ROUTINE 6 - 
THE CHARACTER ROUTINE PRINTS EACH CHARACTER UF THE 4&8 CHARACTERS 
SET IN EACH GF THE PRINT POSITIONS. CHARACTERS ARE RIPPLED 
- 70 THE LEFT WITH EACH SUCCEEDING LINE OF PRINT. THIS RUUTINE 
ISSUES A SPACE COMMAND IMMEDIATELY AFTER THE PRINT CUMMAND, 
Ge ROUTINE 7 _ 
THE SPACE AFTER PRINT TEST ISSUES A SPACE IMMEDIATELY AFTER A 
PRINT CUMMAND TO CHECK THE CARRIAGE SPACING CIRCUITS. 
He RUUTINE 8 
DATE ASJUN67 20 SEPT.67 PRUG ID 030D-* 
EC Ne 420317C PAGE oco7 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM - 


1403 PRINTER FUNCTIUN TEST 


5e1e2 


oD atte TABLE le hf 


DATE 


EC NUe_ 


Ae 


- PART NUe 
PAGE 


THE SPACE BEFORE PRINT TEST ISSUES A SPACE IMMEDIATELY BEFORE A. 
PRINT COMMAND TO CHECK THE CAKRIAGE SPACING CIRCUITS. ~- 


UPERATION OF OPTIONAL’ ROUTINES 


ROUTINE 9 

CARRIAGE SKIP AFTER PRINT ROUTINE FIRST SKIPS CHANNEL 1 THEN 
AFTER THE INTERRUPT ISSUES A PRINT AND SKIP TO CHANNEL 2, 
SUCCEEDING CHANNELS ARE CHECKED IN A LIKE MANNER. | 


A SPECIAL CARRIAGE TAPE WITH ALL. CHANNELS PUNCHED EQUALLY SPACED 


. AND IN ORDER IS REQUIRED FOR THIS TEST. (602) 


Be 


ROUTINE A 


CARRIAGE SKIP BEFORE PRINT ROUTINE ISSUES A SKIP TO CHANNEL 1 


IMMEDIATELY BEFORE A FRINT COMMAND. OTHER CHANNELS ARE CHECKED 
IN A LIKE MANNER ATER WAITING FOR THE INTEKRUPTS. 


Ae SPECIAL CARRIAGE TAPE WITH ALL CHANNELS PUNCHED EQUALLY. SPACED 


AND IN ORDER IS REQUIRED ‘FOR THIS TEST (6. 2). 


‘ROUTINE B 


~ OPTIONAL PRINT. “ROUTINE ‘PRINTS FULL LINES OF ANY CPTIONAL 


CHARACTER ENTERED BY SETTING BIT. SWITCHES, | 7% 
-. OR. BIT SWITCHES. | eer 
SELECT CHARACTER CODE FROM TABLE 1 (5.2) FOR BIT SWITCHES 1 - q and 9 ° 15. wee 


BIT O MUST BE ON 


WILL NOT BE HONORED. SET BIT O UN THEN | 


ae NO CHARACTER: IS ENTERED x LINE. OF HIS WILL BE PRINTED. — 


LSJUN67. 


420317. 


See 


1403 OUTPUT CHARACTER CODES 


_ CHARACTER CODE “CHARACTER: CODE 
 ABITS 8-15) (BITS 8- 15) 
A 6% Y 13 - 
8 25. 2 54 : 
“C. 26 > oe 40 
D 67 “2 Ol 
ow 68. 3 02 
FO 29 4 43 
G 2A | 5 04 
cH. . 6B. 6. 45. 
| 2c 7 46 
J 58 8 07 
K 19 9 08 
oe 1A 7 0 49 
M 5B EQUAL SIGN A 
ONE 2, Wee APOSTROPHE 0B. 
0 5D - ° SLASH 40 
?P SE AMPERSAND 15> 
O° TF COMMA © 16 
Ro. 20° LEFT PARENTHESIS 57 
“8S . 0D ° DASH © ees 
im — OE . — DALLAR SIGN. 22 ee; 
UO 4&F ASTERISK: 63 
a PUT tthe Dances ee ee eae ee 
We oa) eee PERIOD.  6E€ | 
ae eens ae “RIGHT PARENTHESIS (4 i aes 
le ie BLANK so ER, Bers & 
HE RK AE AK 


PRUG ID 
PAGE — 


20. SEPT. 67 v30b-9 


420317¢ 


2243558 
QOOTA 


OOOTA . 











~ «+ @ © 


me | IBM Maintenance Diagnostic Programs for the 1130 System | . Part No. 2243558 
i ae > Page BA 
car a 1130 - 1403 Function Test 

| | . t pee Ue oe WO PARITY RIN 3. | 7 las syed - 

: : 727226 A 2 
IBM MAINTEKANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART WU. 2243558 _ 5 :1022335549VVRR112Z225599VVRR 1122225 5S5VVRR1 1223355 9SVVRR11Z2335 5990 VARI 122335 599VVARI122 
| Phare este, ee PAGE 0008 eo 4 
1403 PRINTER ce doe BIT LINE RIN 6 


) 112233559SVVRR11222 2£5SSVVRR}1223355SSVVRR11222355SSVVRR1122335599VVRR1122335599VVRRD122 

| : 12233559SVVRR112222EESSVVRRIL 223355 SSVVRR1I1222358SSVVRR1I122325599VVRRI1223355SSVYRRI 222) 

 Sehe SUeCesieo CARRIAGE TAPE | | qT. 22225S5S99VVRRIIZZ22ESSSVVRR 11223 95S SVVRRI12223E5S9VVRRI12233E5S9VVPRI122335599VVRR112222 
: | ae : ) 2335S9SVVARIIZZ22EESSVVRRI1Z2S3559SVVRR11223255SSVVRRLIZ2335S599VVRALI2Z2335599VVRR 122212 
TAPE | +«=CHANNER (wt tt ae be See te ; 3Z3ES5SOVVRR1I1Z23255S5SVVRR11Z2235599VVRR11 222 3ESSSVVRRI1L223355S9VVRR1122335599VVRRI22dl22 


COLUMN == PUNCH ae ee ee a 3555SVVRR11222255SSVVFR1122325599VVRR11223255SSVVRR1122335599VVRR1122335599VVRR112211223 

ee #0 ae at ds a ee EG et ae SS5SSVVRR1 1223 2S9SVVRR112232£55SVVRR11223355SSVVRR11223355S9VVRR1122335599VVRR1122112232 

. < | : SOGVVRR1IZ2225S9SVVRR1I122 235S5SSVVRRIIZ223S5SSVVRRI1E23355SSVVRR1122335599VVRR11221122335 

| 99VVRR11223255S9VVRR 112222 559SVVRR11222355SSVVRR112233559SVVRR11223255SSVVRR112211223355 

Jo 9VVRR112233559SVVRR1122325SSSVVRR112233559SVW8R1122335599VVRR1122335599VVRR1122112233559 

| VVRR11222255S9VVRR11223355SSVVRR11222355SSVVRR11223355S9VVRRi1223355SSVVRR11221122235559 

Se AND 12 UEC MUSE THE HYDRAULIC CARRIAGE STOPS AG VRR1122325599VVRR1122235£99VVRR112232559S VVRR1122335399"VRP1122335599VVRR11221122335599V 

ONE “COLUMN PAST THE HOLE WHICH CAUSED 15° Yo. S16P: ) RR11Z233559SVVRR11Z23255SSVVRR11223355S90VRR1122335599VVRR11225355S5VVRR1 12211222355 99VV 

A Hew MUGT CULE TEE COCKTICN GE THE TAPE DUE NG | R1122335565VVRR112Z32£595VVRR1 122235595 VVRR1122335595VVRR1 122335595 ¥V ARI 1221 1223255 99VVR 

INDICATION WOULD BE AVAILABLE IF THE CARRIAGE 
BRUSHES WERE NOT IN THE SECOND HOLE 


1 +:2 
8 

15. 
22. 
29 | 
36 
43° 
50 ge 
57 + 58 
64: ._. 10 
71 ll 

78 + Lad “12. 

85: END . PE TAPE. 


OONTU SUN 


FARITY RIN 5 - : On. en, | 
112233559SVVRR112Z2 2£5SSVVRR11Z23355SSVVRR11223355SSVVRR1122335599VVRR112233559SVVRA1 122. 


CHARACTER COMPLEMENT RIN 6 


ABCCEFGHIJKLVNCPCRSTUVWXYZ 12345€78SC =*/4,(-$*. +) ABCOEFGHI SKLWACFCRSTUVWXYZ 12245678 
AECCEFCHIUKLPACPCRSTLVAXYZ 12345E7ESC #°/%,(-$8.¢) ABCCEFGHIJKLPACFCRSTUVAXYZ 12245678 
ECCEFCHIJKLPACPCRSTUVAXYZ. 12345ETESC #°/%,(-$e.+) ABCCEFGHIJKLPACFCRSTUVWXYZ 12345678 6 

: CCEFCHIJKLPNCPCRSTUVAXYZ IZ345E7ESC =*/4,(-S$e.+) ABCCEFGHIJKLPACFCRSTLVAXYZ 12345678 Ae 
CEFGCHIJKLWACPCRSTUVAXYZ 12245E€7ESC 2°/4,(-$e.4) -ABCCEFGHIJKLPACFCESTLVAXY2Z 12245678 AEC 
EFCHIJKLPACPORSTUVAXYZ 12245E7ESC =*/4¢,(-$e.4) ABCCEFGHIUKLPACECRSTUVAXYZ 12345678 ABCE 
FGHIJKLPACFORSTUVAXYZ 12245E7ESC 2°/4,(-$8.+) ABCCEFGHI JKLPACFCRSTUVAXYZ 12345678 ABCCE 
CHIJKLWNCFORSTUVWXYZ LZ245ETESC #°/45(-$0.+) ABCCEFGHIJKLEACFCRSTUVAXYZ 12345678 AECCEF 
HIJKLWACFORSTUVWXYZ 1234EE7ESC B74, (-$e.4%) ABCCEFGHIJKLPACFCRSTLUVAXYZ 12345€78 SECCEFE 
TUKLPACPORSTUVAXYZ 12245E7ESC =°/4,(-$e.4) ABCCEFGHIJKLPACPCRSTUVhXYZ 12345678 AECCEFGH 

- JKLPACPORSTUVAXYZ 1224E5ETESC =°/4,(-$0.4) ABCCEFGHIJKLPACFCRSTUVAXYZ 12345678 AECCEFGHI 
KLPACPCRSTUVSXYZ 1Z24E5E7ESC |°/¢,(-$0.4) ABCCEFGHIJKLPACFCRSTLVRXYZ 12345678 PECCEFGHIJ 
LPACFORSTUVAAYZ 12245€78SC =£°/4,(-$e.4+) ABCCEFGHIJKLPACPCRSTLVAXYZ 12345678 AECCEFCHIUK 
MACFCRSTUVAXYZ 1Z24EET7ESC =*/¢e(-S$e.¢) ABCCEFGHISKLMACPCRSTLVAXYZ 12345678 AECCEFCHIJKL 
ACFCRSTUVWXYZ 12245€7ESC =°/%,(-$e.¢). ABCCEFGHIJKLPACPCRSTLVAXYZ 12345678 AECCEFCHIJKL® 
CPCRSTLVAXYZ 12345€7ESO =°/4,(-S$e.+) —ABCCEFGHI JKLWACPCRSTUVAXYZ 12345678 AECCEFCHIJKLIR 
POCRSTLVWXYZ 1Z345E7ESC #°/4,(-$e.%) ABCCEFGHIJKLPACPCRSTLVAXYZ 12345678 AECCEFCHIUKLWAC 
CRSTUVWXYZ 12345€7ESC.#°/%9(-$0.4) ABCOEFGHI JKLPACPCRSTLVAXYZ 12345678 ABCCEFCHIUKLMALP 
RSTUVWXYZ 1234567ESC =°/%,(-$e.+) ABCCEFGHI JKLPACPCRSTUVAXYZ 1234S67E ABCCEFGHIJKLPACPC 
STUVHXY2 12345E7ESC 2°/4,(-$e.4) ABCCEFGHIJKLMACPCRSTUVWXY2 12345678 ABCCEFGHIJKLPACPCR 
TUVWXYZ I1Z2345ETESC =°/4,(-$e.+) ABCCEFGHIJKLPNCPCRSTLVAXYZ 12345678 ABCLEFCHIJKLPACPCRS 
UVhXYZ 1234567890 =°/¢,1-$e.¢)  ABCCEFGHIJKLPACPCRSTUVAXYZ 1234567E AECCEFCH] JKLPACPCRST 
VWXYZ 12345678SC =°/4,(-$e.4%) ABCCEFGHIJKLPACPCRSTUVAXY2Z 12345678 ABCCEFGHIUKLPACFCRSTU 
wXv2Z necneeteee rete tees) ABCCERGHTIREPCPERSTLVAKYE 12345678 AECCEFGHI JKLPACFECRSTUY 


- 


4 SPACE AFTER PRINT RIN ? —— | 
| . , /EEEEEEEEEEEEEEEEEEEEEEE EEE BEE EEE CEEEEEEEEEEEEEEEEE 
, —— | /EEEEEEEEEEEEEEEEEEEEEEEE EEEEEEE EE EEEEEEEEEEEEEEEEEE 
) /EEEE SEEEEE EEE E EEE EEEEE EEF EEEEEEE EE € EEEEEE EE EEEE EEEEE 
_ oe  «- /EREEEEEEEEEEEEEEEEEEEEEEEEEEEEEE ZEEE LEEEEEEEEEEEECEEE 

; te cam. wes. |  /EEEEEEEEEEEEEEEE EEE EE EESEEE EEE EEE EEE EEEEEEEEEEEE! + €fEE 

» /EEEEEEEEEEEEE EEEEEEEEEEEEEEEEEEEECEEE SEE EEEEEEEEEEL: EEE 
: | (BREE BREE EEEEEEEEEEEEEEEEEEEEEEEEEEE EEE EEEEEEEEEEEEELEEEE 
a PRE RE RE EEE EEEEEEEEEEEEEEEEEE EE EEE EEE EEE EEEEEEEEEEEEEEEEEE 
’ “(ER REEEEEEEEEEEEEEEEEEEE EEE EEEEE EEEEEE EEE EEEEEEE EEEEEEEEEEE 
/EEEEEEEEEEEEEEEEE EEEEEEEEEEEE EEE EEEE EE EEE EE EEE EEEEEEEEEEEEE 





SPACE BEFCRE PRINT RIN 8 


na : ceed om 4:  /EEEEEEEE EEE EEE EEE EEE EEE EEE EEE EEE EEEEEEEEEEEEEEEEEE 

E : | | | _ /EEEEEEEEEEEEEEEEEEECEEEEEEEEEEEEEE EEE EEE EEEEEEEEEEE 

) ) /EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE EEE EEEEEEEEEEEEEEEEEE 
: /EEEEEEEEEEEEEEEECEEEEEEEEEEEEEEEEEEEEEEEEEEEFEEEEEEEE | 

; /EEEEEEEEEEEEEEEEEEEEEEEEEEEEEFEEEEEEEEEEEEEEEEEEEEEEEE 

y ) Lo , : _ /EEEEEEEEEEEEEEEEEEEEEEEEEEEEEECEEEEEEEEEEEEEEEEEEEEEEEE 

| /EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEFEFEEEEEEE 

be. we Bd ip feet oes ty AEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE EEEEEEF EEEELEEEEEE 

yd | | | /EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 

/CEEEEEEEEEEEEEEEEECEEEEEEEEEEEEEEEEEEEEEEEEEEEREEEEEEEEEEEE 


VATE 15yuNo7 20 SEPT.670 0 PROG 1D. 0300-8 ‘ 
FC NU. 420317 420317C ; PAGE OU0s8 3: 


Date 15Jun67 22 SEPT.67 Prog ID 030D-* 
te EC No. 4820317 420317¢ | Page 8A 


ps = wee : se ; | ae ee ’ Pa - < - a i ~ ee, ) af] rN a por = Fe ie i aa ae ore oe soy, . o hg a ; — e . = : a ee : “ ee 
: . _—a oe i eu * oP ee ae or ae oe , a oe ee ee ee ee ee ee ss Sux 
— —_ — - od sad) <3) — 7  / - Sw Ay ea | ae, ee ee fe . x <a Se a ae, — ae oR. | 


18M MAINTENANCE PE POGNOST IC PROGRAM FOR THE 1130 SYSTEM 


1130-1403 FUNCTION TEST. 


DATE 


EC NOw 


0160 
0161 
0162 
0163 
0164 


0165 
0166 
0167 


0168 


OTA 
018A 
O19A 


-OLAA 


O1BA 
0188 
018C 


0180 


0000 


O5DC 
0500 
O5DE 
OS0F 
O5E0 
0561 
05E2 
053 
O5E4 
O5E5 
05€6 
O5€7 
OS5E8 


coo rrwrwr QQOooeoeae 


OSEA | 


OSEA 1 
O5EB 0 


OSEC 0 
OSED 0 


OSEE O 
OSEF O 


15 JUN6 
420317 


0300 
0000 


0000 | 


0000 
0000 
0000 
0000 
0648 
0648 
0648 
0000 
0000 
FFFF 


0000 


O5EA 
0000 


0000 
FFE? 
00C0 
FFE3 


7 


20SEF6T 


 #20317C 


s 





PART NO. 


MONITOR TRANSFER. VECTOR a 
EREETEEERER EE EESEEEREE AE EENEN ECE REE E EEE ES 


* THIS TABLE EQUATES TEST PROGRAM LABEi.S 
% TO THEIR EQUIVALENT DIAGNOSTIC MONITUR 
+ ADDRESSES... 
+ 
‘ 
BEGIN EQU /160 BEGIN ROUTINE 
START EQU BEGINGL SUPERVISOR ROUTINE 
ERROR EQU START+1 ERROR LOG ROUTINE 
LOG €EQU ERROR+1 STATUS L0G ROUTINE 
ENO QU LOG+) END KOUTINE 
Rewer wwrowreewoe wooo oe Comoeoe nem om a2 a ae ow ow a Sane ennwe 
* MONITOR CONTROL WORDS 
& 
RTNSW EQU END+1 ROUTINE START SWITCH 
ERLCK EQU END+2 LOCK ON ERROR CONTROL 
LOGBY EQU END+3 1/0 BUSY INDICATOR 
RLCF EQU END+4 | RELOCATION FACTUR ADR 
Kew eewoese eee ow Boe oooeeae Seeeseee Sewe- seweaees 
* INTERRUPT TRANSFER VECTOR ADRS 
x 
ILO) = EQU ALTA. INTERRUPT LEVEL .ZERO 
ILl EQU  -— ILO+16 ONE 
IL2 EQU IL1+16 TwO 
IL3. EQU IL2+16 THREE 
IL@ €QU IL3+16 FOUR 
RQTY EQU IL4+] | TYPEWRITER SERVICE INTRPT 
RQKB EQU RQTY+1 | KEYBOARD INTRPT REQUEST 
SVKB €QU RQKB+1 KBD SERVICE INTERRUPT 
SKECHSSLSEKSKSHEKKS EK SEKSEKKS SASS SSE KES SEKKSKELSSE 
* : 
* . 
*#eee00¢%88 = 8=PROGRAM STATUS TABLE #8444088 
s 
ORG *+1500 
x eB she eye 
PID oC 40300 _—. PROGRAM ID NUMBER 
RID OC 0. ROUTINE NUMBER 
RAD OC /0000 ROUTINE ADDRESS 
SwO OC 40000 FCN O — CONTROL | 
SWl DC /0000 FCN 1 - LOOP ROUTINE 
SW2 OC NOT USED 
Sw3. OC an) NOT USED 
~. oc RTO LOOP PROGRAM ADDRESS 
| oc RTO INITIAL START ADR a 
MLSCF DC RTO MAIN LINE SEQ CONTROL . 
oc 0 os 
oc 0 2 = Ba 
TERM DC /FFFE TERMINATOR 
STSSHESCSSESSSTSKESKSSCLEKSTKEKESKSCSKKLSESLS *CAKKKKKEKS 
s . 
s 
- _ DSW TABLES 
s 
Bss E 
ne ENTRY ENTRY NAME DISP. 
DST oC OST TABLE ADDR 00 
ERIND NC /0000 ERROR INDICATOR ol 
: | , 
* “4 1403 READY DSw 
DSdl OC /0000 OSW EXPECTED 02 
| oc /FFET MASK 03 
x 
* os | PRINTER READY DSW | 
OSwW2 OC 70000 OSW EXPECTED 04 
. oC /FFE3 MASK 05 


PAGE 


30000020. 
30009030 


- 30000040. 


30000050 
30000060 
30000070 
30000080. 
30000090. 
30000100. 
30000110. 
30000120 
30000130. 
30000140 
30000150. 
30000160 
30000170 
30000180 
30000190 
30000200 
30000210 
30000220 
30000230 
30000240 
30000250. 
30000260 
30000270 
30000280 
30000290 
30000300 
30000310 
30000320 
30000330 
30000340 
30D00350 
30000360 
30000370. 
30000280 
30000390 
30000400 
30000410 
30000420 
30000430 
30D00440 
30000450 
30000460 


30D00470 | 


30000480 
30D00490 
30000500 
30000510 
30000520 
30000530 
30000540 
30000550 
30000560 
30000570 
30000580 
30000590 
30000600 
30000610 
30000620 
30000630 
30000640 
30000650 
30000660 
30000670 
30000680 


30000690 


PROG 10 
PAGE 


2243556 
1 


0300-0 
i 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1130-1403 FUNCTION TEST 


05FO 0 0000. 
O5Fl 0 FFES 
O5F2 0 0006 
OSF3 0 FFE7 
OSF4 0 0002. 
O5F5 0 FFET 
O5F6 0 0004 
ae . O5F7 O FRET 
' —" 95&8 0 0000 
OSF9 O FFFF 
) | O5FA 0 0000 
O5FB 0 0000 
) O5FC 0 0000 
| OSFD 0 0000 
OSFE 0 0000 
OSFF 0 0000. 
0600 0 0000 
0601 0 0000. 
0602 0 0000 . 
0603 0 0000 
0604 0 0000 
0605 C 0000 
: 0606 0 0000 
0607 0 0000 
0608 0 0000 
; - | 0609 0 0000 
: 060A 0 0000 
0608 0 C000 
060C 0 0000 
060D 0 0000 
060E 0 0000 
O60F 0 0000 
0610 0 0000 
0611 0 0000 
0612 0000 
0612 0 0000 
| 0613 0 ACOO 
0614 1 0620 
0615 0 A900 
0616 1 OAEF 
0617 0 ADOO 
0618 0 0000 ~ 
, | 0619 0 AFOO | 
061A 0 0000 
0618 0 AFOL 
| O61C 1 O61 
061D 0 3A00 
} 
DATE 1S5JUN67 —- 20SEP67 
EC NOs 420317 «=. #2031 7€ 


rrrriTirtiiitetiititititiitiifst +t tT? tid? ttt) 


SPACE 
SKIP 

PRTIT 
SENSN 
SENSR 
8ITSw 


FOR THE 1130 SYSTEM 


vc 
DC 


oc 
pC 


oc 
OC 


DC. 
oc 


oc 
oC 


oc 
OC 


oc 
DC 


oc 
oC 


DC 
oc 


oc 
oC 


oc 
OC 


oc 
oc 
DC. 
oc 
pc 
ec 
oc 
oc 
oC 
DC 
oc 
oc 


40000 


 JFFES 


/0006 


/FFET 


10002. 


/FFET 


40004 


/FFET 


/0000 
sFFFEF 


40000 
40000 


PRINTER 


* -2 

/aCOO 
SKPwD 
4A900 


AREA] 
4a000 — 


/aFOO 


saFol 
SWITCH 
4300 


“MASK 


CARRIAGE READY DSW 
DSW EXPECTED 


MASK r 


1403 BUSY Ds 
DSW EXPECTED © 


PRINTER BUSY OSW 
DSW EXPECTED 
MASK 7 : 


CARRIAGE BUSY DSW 
OSW EXPECTED 
MASK 


“CARRIAGE. STATUS 


OSw EXPECTED . 
MASK 


SPARE 


SPARE 


SPARE 


" SPARE’ 


FALSE INTERPUPT | 


OSw S/B 


CYCLE COUNTER 
WAIT COUNTER 
i] 


TEMPORARY STORAGE 


IOCC AREA 


CARRIAGE SPACE vee 
CONTROL IOCC 
CARRIAGE SKIP CMD 
WRITE JOCC | 
PRINT A LINE CMD 
INITe WRITE IOCC . 


SENS DSW = NO RESET 


SENSE DSW - RESET 
READ THE BIT SwS 


_. O9 





06 


OT 


08 


OA 


0B 


oc 
00 


OE 


OF 


10 
ll 


12 
13 


14 
15 


16 
17 


18 
19 


1A 
18 


1c 
10 
1E 
1F 
20 
21 
22 
23 
<4 
25 
26 
27 


28 
23 
2A 
28 
2c 


2€ 
2F 
30 
31 
32 
33 


PART NO. 


PAGE 


30000700 


30000710 — 


30000720 


30000730 
30000740 
30000750 
30000760 
30000770 


30000780 


30000790 | 
30000800 
30000810 


30000820 
30000830 
30000840 


300063590. 


30000860 


30000870 
30000880 


30000890 
30000900 


30000910 


30000920 


30000930 


30000940 


30D00950 


30D00960 
30D00970 


30000980 


30000990 


30001000 


30001010 


30001020 — 
30001030 


30001040 
30001050 


30001060 


30001070 
30001080 
30D01090 
30001100 


30001110 
30001120 


30001130 
30001140 


30001150 
30001160. 


30001170 


30001180 
30001190 . 


30001200 
30001210 
30001220 
30001230 
30001240 


30001250 | 


30001260 
30001270 


30001280. 
30001290 


30001300 
30001310 


30001320 


30001330 
30001340 
30001350 
30001360 


30001370 


PROG ID 


PAGE 


2243556 
LAD 


030D-0 
1A 








A 


18M MAINTENANCE OIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1130-1403 FUNCTION TEST 


DATE 


EC a 


O6OlE 0 
O61F 0 


0620 0 


0621 
0622 
0623 
0624 
0625 
0626 
0627 
0628 


0629 
062A 
0628 
062C 
0620 
062E 
062F 
0630 


eooooooco oooococodce 


0631 0 
0633 1 


0634 


0000 
0000 


0000 


0000 
0000 
0000 
0001 
0400 
0800 
003C 
0010 


0000 
0000 
0000 
0000 
OOBF 
0018 
0040 
4000 


4480 0160 
050C 


© 0000 
0635 1 6780 0629 
0637 0 O8E2 
0638 0 1800 
0639 0 COEF 
0634 1 4C18 0643 
063C 0 18D0 
063D 1 0700 062D 
063F 1 7401 0629 
0641 0 1000 
0642 © 7003 
0643 0 COES 
0644 0 1800 
0645 0 DBBC 
0646 1 4C80 0634 
0648 0 10A0 
15JUN67 _20SEP67 
420317 420317C 
- zt ~. 
\ \ 
ot See 


SWITCH DC 40000 LASTEST SWS 34 
SAVE OC 40000 SAVE SWITCHES 35 
VRSCA SSKSARSKSSSKKPRKKCSKKKKKSRKSEK SELES KSLKKSS 
SKPWD OC 0 36 
FCKSSEEKETKKK SK SSSESKSEKKEKEK EK SS SSESCEKSKKKSES | 
a . 
* CONSTANTS + SAVE AREA 
s 
AQSAY DC oO SAVED A + Q REGS. 37 
7 pc | a | 38 
SWSAV DC o BIT SWITCH SAVE 39 
KOOO] OC /0001 3A 
K0400 OC 40400 38 
KO800 DC 40800 3C 
D6é0 DC 60 | 3D 
_KOO10 OC 40010 CONSTANT 3E 
* . a 
INTEX OC DSW STORAGE POINTER 3F 
oc INTERRUPT DSW - 1ST 40 
oc 2ND 41 
oc x 3RD 42 
KOOBF OC /BF MASK FOR SINGLE. cy 43 
KOO18 OC 40018 4&4 
KO040 OC 10040 45 
Escoe OC 44000 ra wi 46 
bi anddnusedwcteueswicccacsvetsdieciciescees 
PRBGN BSI I BEGIN CALL MONITOR 
DC PID 


TESS ECESESRERERES ERC ESAT ROKER KER EERE EEES 


* INTERRUPT ROUTINE 
s 
¢ 
& THE INTERRUPT ROUTINE IS 
* A STORE AND GO BIT OF 
* LOGIC. ALL INTERRUPT 
® STATUS WORDS ARE STORED 
* IN ORDER OF RECEIPT. 
a | oo 7 
* AN ERROR WiiL BE DETECTED 
* IF THE INDICATOR FAILS 
* TO RESET. 
* 
INTRP DC — 
LOX 13 INTEX | 
x10 SENSR SENSE DEVICE - RESET 
* | 
RTE 16 
LO INTEX ees | 
BSC UL INTR2s¢= BR IF FALSE INTRPT 
.. | eke 4 ; : 
| RTE 16. 
| STO 3 INTEX¢6 
* 
MDX L ANTEX» - UPDATE STURAGE AREA 
NOP | eee 2 he 
MDX _INTR3 
. ale | 
ANTR2 LO 0010. ‘SAVE FALSE INTRPT 
.. RTE 16. ERROR oe ee 
STO OSwC aoe aes 
INTRS BSC 1 INTRP EXIT 
SEEEREEREL SE ERESRERESEESESS ERE ERETESEEESEEEDE 
s tee -... INITIALIZATION RON 
FO open es hg oh ee ee a 
R70 SLT 32... CLEAR ERROR AREAS 
= . = : pe - ee 
yo ee. x a =. 2 ) = 


PART NO} 


PAGE 


30001380 
30001390 
30001400 
30001410 
30001420 
30001430 
30001440 
30001450 
30001460 
30001470 
30001480 
30001490 
30001500 
30001510 
30001520 
30001530 
30001540 
30001550 
30001560 
30001570 
30001580 
30D01590 
30001600 
30001610 
30001620 
30001630 
30001640 
30001650 
30001660 
30001670 
30021680 
30001690 
30001700 
30001710 
30001720 
30001730 
30001740 
30001750 


30001760 


30001770 
30001780 
30001790 
30001800 


30001810 


20001820 
30001830 
30001840 
30001850 
30001860 
30001870 
30001880 


30001890 


300019C0 
30001910 


30001920 


30001930 
30001940 
30001950 


30001960 
30001970 
30001980 
30001990 
30002000 
30002010 
30002020 
30002030 
30002040 
30002050 


PROG 10 


ERAGE 


2243556 
2 


0300-0 
=< 


ws 


~- 


ee ] 


té 


t? 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


1130-1403 FUNCTION TEST ~~ 


OATE 


“EC ‘NOs 


065F 


0668 
066C . 
066D 


(066F 
0670 
‘0671 ° 


0674 
0675. 


0649 0 
064A 1 


064C 1 
O64E O 
0650 1 
0652 
0653 
0654 


oo$d. 


0655 
0657 
0658 
0659 
065B 
065D 
065E 


0660 
0662 
0664 


0665 
0666 


0667 
0668 


-@©0 C00 '‘or~rooorroor 


0669 


0673 


ea ~OoO~ 


0677 1 


_USJUNG 


“420317 


6303 
6FOO 
6500 
6000 


D400 


0007 
DODT 
D0D7 


C400 


480C 


EOD4 
D400 
C400 
480% 
7008 
C005 
400 


‘D400 


0A1D 
0634 


0186 
0500 


OS0F 


OSOF 
05E1 


0627 
08C4 


7004 


003C 


0042 
COFE 


T0F7 


6600 
C2F6 


0239 
4C08s 


D2F3 


9019 
~4COB 


1810 
D2F6 


0400 


7401 


OSEA 


0677 


0670 


FFF3 


0500 


RTO 


* 
D60C 
D66C 
* 


RTO2 


Lox 


STX 
LOX 
STX 
STO 
STO 
STO 


STO 


to 


BSC 
AND 
STO 
LO 


BSC 


MDX 
LO 

STO 
STO 


‘MDX 


oc 


oc 


LD 


MDX 


L3 


Li 
il 


1130 SYSTEM 


3 


EMESS+2 


INTRP 
IL4=4 
RID 


SET INTRPT VECTOR 
CLEAR ROUTINE NO. 


CLEAR INTERRUPT DSW 
STORAGE AREAS 


INTEX41 
INTEX*+2 
INTEX43 


SWO CLEAR SINGLE CYCLE 


+€E _ TF RESTARTING 


KOOBF 
SWO. 
Sw2 - 
E 


' CHECK SIZE OPTION 


‘RT02— 


D60C 
060 
RTNBS 
PCON 


SET TO 120 POS 


BR TO PROG CONTROLLER 


60 
66 


066C 
RTO] 


SET TO 132 POS 


sdnthehehdndndhdnedndhehdndaehdedethehdhthdndhesdiaheheedaiedbehadecechane cece 


SR RREHERRERHODS 


‘wceevpaenannaneananae 


“PCON2 MDX 


7  20SEP67 
"#20327 


CON LOX 
to 
“STO 


BSC 


_$T0 
s 
“BSC 
SRA 
STO 
“sto 


“PROGRAM CONTROLLER 


THE PROGRAM CONTROLLER 
SELECTS WHICH ROUTINES 
ARE TO BE DONE NEXf. 
NORMALLY. ROUTINES ONE 
THROUGH EIGHT ARE RUN 
SEQUENTIALLY. 


ANY ROUTINE WHICH IS MAN- 
UALLY SELECTED BY A 

' SETTING OF THE SWITCHES, 
(4YOX) 

WILL RUN UNTIL THOSE 
SWITCHES ARE AGAIN 
CLEARED. 
(4Y00) | 


V=PROGRAM LOANING SEQUENCE NUM. 
X#ROUTINE NUMBER 


OST 
_ SW1=-DST | - 
.SWSAV=DST SAVE SWITCH SETTING - 
PLONZe+ = BR. IF NO _RTN, SELECTO. 
RID-OST SAVE NEW RTN NUMBER | 
RIDCK ee, te oe ~ 
PCON3+* BR IF VALID ROUTINE ~ 
. “BR TF VALID. 

SW1>DST IF INVALID ROUINTE GO 
“RID-DST = TO _RTN ONE 

R1Ds1 abe Go -nERe ha 


PART NQ. 


_ PAGE 


30002060 


30002070 
30002080 


30002090 


30002100 
30002110 
30002120 
30002130 
30002140 
30002150 
30002160 
30002170 
30002180 
30002190 
30002200 
30002210 
30002220 
30002230 
30002240 
30002250 


30002260 
30002270 


30002280 
30002290 
30002300 


30002310 
30002320 
‘30002330 


30002340 


.30002350 


30002360 
30002370 


30002380 


30002390 


30002400 
‘30002410 
30002420 
30002430 
30002440 
30002450 


30002460 
30D02470 
30002480 
30002490 


30002500 


30002510 


30002520 
30002530 


30002540 
30002550 


30002560 
30002570 

30D02580 
30002590 
30002600 


30002610 


30602620 
30002630 
30002640 
30002650 
30002660 
30002670 
- 30D02680 
* 30002690 
. 30002700 
~ 30002710 
-30D02720 
30002730 


PROG ID 


PAGE 


2243556 
2A 


0300-0 
2a 


Leh Se nanan ae tt gen, 
7 ue " 


<. 


. 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


ie murs 


ee 
oe 
} 


1130-1403 FUNCTION TEST... ; 


DATE 
EC NO. 


0679 0 COOF 

067A 0 92F3 

0678 0 4488 0164 
067D 1 6580 0500 
O67F 1 C500 068A 
0681 1 0400 OSDE 
0683 1 D40C 0566 
0685 0 0400 0165 
0687 0 4480 0161 
0689 0 0009 

068A 0 000B 

068B 1 0696 

068C 1 O6AE 
068D 1 06CO 

O68E 1 O6FB 

O68F 1 O71E 

0690 1 0759 

0691 1 O76A 

0692 1 0790 

0693 1 O7CC. 
0694 1 0817 

0695 1 O089E 

0696 1 4400 O8F4 
0698 0 0001. 
0699.) OA3B. 
069A 0 0001 

0698 0 610A 
069C 1 6D00 0604 
O069E 0 6102 

O69F 1 4400 092E 
O6Al O OA2C 

O6A2 0 OAZE 

0643 0 610A 

15JUN67 20SEP67 

#20317 


420317C 





a a ae el a 
= 


1130 SYSTEM 


RTNOM 
2 RID-DST 
I ENDe+ 


11 RIO 
RTTBL—-1 
RAD 
MLSCF+1 
RTNSW 
START 


NRTN-RTTBL+ 
LRTN=-RTTBL+ 


IPT aa nS —- Soe ee Se ae 
a a . / Se sf 


_ END PROG IF ZERO’ 


“UPDATE ROUTINE NO. 
SET MLSCF FOR RETURN 


SET RTN START Sw 


_GO TO MONITOR 


2 
1 


FKKKAKKKKKKKEKRKHKKKRSKSSLKEAKSEKERKKSEKSECKKKRKEKEEKE 


ROUTINE TABLE 


RTN1 
RTN2 
RTN3 
RTN& 
RTNS 
RTN6 
RTN7 
RTNS 


RTN9 
RTNA 
RTNB 


PRINTER READY = BUS 
CARRIAGE SPACING 

NON PARITY CHECK 

BiT LINE CHECK 
PARITY CHECK 
CHARACTER COMPLEMENT 
SPACE AFTER PRINT 
SPACE BEFORE PRINT 


OPTIONAL ROUTINES 
SKIP AFTER PRINT 


SKIP. BEFORE PRINT 
OPTIONAL PRINT 


KHEKEEKKSKSKKSEKKKASEL ESKER SKKERRSEKKKSSHKS ESSERE 


LO 
S 
8SI 

x 

oe 

PCON3 LDX 
LO 
STO 
sta 
$sto 
BSI. 

x 

RTNOM DC 

RIOCK OC 

. e 

& 

* 

RTTBL OC 
DC 
DC 
DC 
DC 
oc 
oc 

NRTN OC 

* 

x 

* ‘ 
oc 
Oc 

LRTN OC 

* 

= 

x 

B 

x 

* 

x 

s 

s 

s 

t 

* 

gS 

x 

s 

& 

& 

* 

s 

= 

RTN1 BSI 
oC 
Oc . 
Oc 

* i 
LOX 
STX 

$ 

RTNI2 LOX 
BSI 

* 
x10. 
x10 

e ; 
LOX 


ROUTINE ONE 


PRINTE 


THIS R 
ABIL] 
BECOM 
NOT R 
PRINT 
TURNE 
PRINT 


TEN BL 

PRINT 

AMOUN 

OUT S 
L SEBIT 
oo 
BLANK» 
1] 5 
11lo 
Ll CYCNT 


1 OSW1-DST 
L  PTROY 


2 PRTIT-DST 
2 SENSN-DST 


1 DSW5-DST 


R READY + BUSY TEST 


OUTINE CHECKS THE 

TY OF THE 1403 TO 

E READY, BUSY, AND 
EADY, AND THAT A 
COMPLETE IS. RE- 

D ON COMPLETION OF A 
ING OPERATION. 

ANK LINES ARE 

ED USING A MINIMUM 

T OF CIRCUITRY WITH- 


PACING THE CARRIAGE. 


CLEAR OLTPUT AREA 
OuTPUT SIZE 
SOURCE 

SOURCE SIZE 


SET FOR TEN LINES 


CK. PRINTER READY 


ERROR - 1. 


PRINT ONE LINE 
SENSE DEVICE 


CK PRINTER BUSY 


PART NO. 


PAGE 


30D02740 
30002750 
30002760 


30002770 
30002780 
30002790 | 
30002800 
30002810 


30002820 


30002830 | 
30002840 


30002850 


- 30002860 


30002870 
30002880 
30002890 
30002900 
30002910 
30002920 
30002930 
30002940 
30002950 
30002960 
30002970 
30002980 
30002990 
30003000 
30003010 
30003020 
30003030 
30003040 
30003050 


30003060 


30003070 
30003080 
30003090 


. 30003100 


30003110 
30003120 
30003130 
30003140 
30003150 
30003160 
30003179 
30003180 
30003190 


30003200. 


30003210 
30003220 
30003230 
30003240 


30003250 
30003260. 
30002270 


30003280 
30003290 
30003300 
30003310 


30003320 


30003330 
30003340 
30003350 
30D03360 
30003370 
30003380 
30003390 
30003400 
30003410 


PROG ID 


PAGE 


2243556 


3 


0300-0 
3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


teen ee eee 


Wing. gtd a ii tt etna et stan EEE 


| 
ey 


( 


Se 


a ache alsa tabula daa eae ala tare ican ie Jat lRaslstincad Sesh niet GES 
: 3 3 


a ne eee 
ra % fo 


1130-140) FUNCTION TEST 


DATE 
EC NOo 


O6A4 1 


4400 09D7 


06A6 1 4400 0979 

O6AB 0 0002 

06A9 0 4002 

O6AA O 2000 

O6AB 1 4400 OA2B 

O6AD 0 7OFO 

O6AE 0 610A 

O6AF 1 6000 0604 

06B1 0 6106. 

0682 1 4400 092E 

06B4 0 0A28 

06B5 0 OA2ZE 

05B6 O 610C. 

06B7 1 4400 0907 

0689 1 4400 0979 

O6BB 0 0001 

O6BC 0 1000 

O068D 1 4400 OA2B 
O6BF O 70F1 

15JUN67  20SEP67 

420317 42031 7C 


BSI 


BSI 
DC 
DC 
OC 


BSI 
MDX 


L 
L 


L 


1130 SYSTEM 


SBANA 


ITOSW 


> 


44002 
42000 


CKEND 
RTNL2 


ERROR = 5 


CHECK INTERRUPT DSW 
TWO INTERRUPTS 


TRANSFER COMPLETE -: 


PRINT COMPLETE 


GO CHECK IF END RTN 
NO - REPEAT 


KSEEKSCKKKKCKKKKKKEKKKKKKKKKKKKKKKKKKESCKKKKEKK ERK 


eee Peete tee eee aeee eee eet & 


P.*] 
=4 
r <4 
N 
| oe 
Oo 
Pad 


STX 


* 7 
RTN21 LOX 
BSI 


XI0 
X10 


LDX 
BSI 


BSI 
oc 
oC 


BSI 
MOX 


KKSEKEKKEKSEKKKCKRKKKKKCKTEVRKS 


eee een eee he ee & 


L 


ROUTINE TwO 


CARRIAGE READY AND BUSY 


TEST 


THIS ROUTINE CHECKS THAT 
THE 1403 CARRIAGE BUSY 


INDICATOR 


FUNCTIONS 


PROPERLY. 


THE CARRIAGE IS SPACED TEN 
~ LINES» EACH TIME CHECKING 


FOR A CARRIAGE READY 
BEFORE ISSUING THE SPACE 
COMMAND AND A CARRIAGE 
BUSY CONDITION RIGHT 

AFTER ISSUING THE 
COMMAND. | 


‘10. 


CYCNT 


OSwW3-DST 
PTROY 


SPACE-DST 
SENSN-DST 


OSW6-DST 
SBANA 


ITOSW 
l 
41000 


CKEND 
RTN21 


SET CYCLE COUNTER 


CK PRINTER READY 
ERROR - 5 


SPACE CARRIAGE 
SENSE DEVICE 


CHECK BUSY 
ERROR — 6 


CHECK INTERRUPT OSW 
WAIT FOR ONE INTRPT 
CARRIAGE OP COMP 


GO CHECK IF END RTN 
NO - REPEAT | 
THASSSSSKKSSSSRS KISS 


ROUTINE THREE 


PARITY CHECK (GOOD PARITY) 


THIS ROUTINE CHECKS THE 
ABILITY OF THE PRINTER TO 
RESPOND TO CHARACTERS 
HAVING CORRECT PARITY. 


ROUTINE FIVE CHECKS THE - 
SAME CHARACTERS HAVING 
BAD PARITY. | 


PART NO. 2243556 


PAGE 


30003420 
30003430 
30003440 


30003450... 
34003460 _ 
5UuD03470 . 


30003480 
30003490 


30003500 © 
30003510 


30003520 
30003530 
30003540 
30003550 
30003560 


30003570 | 


30003580 
30003590 
30003600 
30003610 


30003620 


30003630 
30003640 


30003650 


30003660 
30003670 


30003680. 
30003690 — 


30003700 
30003710 
30003720 
30003730 
30003740 


30003750 . 


30003760 


30003770 | 


30003780 


30003790 . 
30003800... 


30003810 
30003820 
30003830 
30003840 
30003850 
30003860 
30003870 
30003880 
30003890 
30003900 
30003910 


30003920. 
30003930 


30003940 
30003950 
30003960 


30003970. 


30003980 
30003990 
30004000 
30004010 
30D04 1920 
30004030 
30004040 
30004050 
30004060 
30004070 
30004080 
30004650 


PROG 10 


PAGE 


3A 


0300-0 
3A 

















IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1130-1403 FUNCTION TEST 


DATE 
“= FEC NOS 


0A53 
O8F4 


094F 


0A25 
0A54 


O8F4 


O8F4 


O92E 


O9EC 
0979 


0A1D 


OA2B 
0605 


0603 


06C0 0 C039 
06C1 1 0400 
06C3 1 4400 
06C5 0 0009 
06C6 1 OA4B 
06C7 0 0609 
06C8 1 4400 
O6CA 0 C230 
O6CB O D21A 
O6CC 0 1810 
06CD 0 0007 
Q6CE 1 0400 
06D0 1 6700 
06D2 0 6808 
. 0603 1 4400 
0605 0 0000 
0606 1 0A3B 
0607 0 0001 
0608 1 4400 
O6DA O FFFF 
0608 0 0000 
O6DC 0 0001 
USDD 0 6102 
O6DE 1 4400 
O6EO O OA2C 
06E1 1 4400 
06E3 1 4400 
O6E5 0 0002 
06E6 0 4002 
O6E7 O 2000 
06E8 0 6103 
O6E9 1 6D00 
O6EB 0 COEF 
O6EC 0 92FE 
O6ED 0 OOED 
O6EE 0 4804 
OSEF 0 70E3 
O6FO 1 4400 
O€F2 1 740) 
O6F4 0 COE6 
O6F5 0 9003 
O6F6 1 4028 
O6F8 0 70D7 
— O6F9 1 OA61 
- OOFA O 7FO2 
15JUN6% 


20SEP67 


=: @20327-:.. - 42031 7C 


eee een ee 


yee & 


TN3 LD 
STO 
BSI 
oc 
oc 
oc 


BSI 
STO 


SRA 
STO 


-$§TO |. 
LOX 


RTN31 
STX 


RTN32 BSI 
BLNCR OC 
DC 
oc 
BSI 
oc 
oC 
oC 


PACNR 


LDX 
BSI 
X10 
BSI 


BSI 


OC 


oc 

DC 
‘LOX 

STX 


LO 
Ss 
STO 
BSC 
MDX 


BS! 


' - MDX 
LO 
S . 
BSC 


MDX 
er 
EPARR DC 


NUM3 OC 


NUM3 
PAR+6 | 
SEBIT 
9 


NOPAR. 
9 


HONG 
D60-DST 
CYCNT-DST 


16 
BLNCR 
COLNO 


PARN 
PACNR 


SEBIT 
0 = 120 
BLANK 


i 
SEBIT 
=) 

0 

1 


DSW1-DST 


PTROY 
PRTIT-DST 


COLUM 
ITOSwW 


2 


14002 


42000 


3 
EMESS+2 


PACNR 
TERM=DST 
PACNR 

E 

RIN32 


CKEND 


BLNCR»1 


PACNR 
EPARR 


RIN329¢Z | 


_RTN31 | 


 PARNCL3 


/TFO2 


‘SOURCE 


SET UP 


SET UP HEAD RTN 


OUTPUT SIZE 
SOURCE 
SIZE: 


PRINT RTN HEADING 
SET &CK 120 CHARS 


SET RTN DATA 
OUTPUT SIZE 

SOURCE 
SOURCE SIZE 

ROUTINE vATA 
BLANK FIELD 

(PARN) 


SIZE 


ADD TO 
SOURCE 
SOURCE 


‘CK PRINTER READY 


ERROR - 1 
PRINT THE LINE 


COLUMN NO 
CK INTERRUPT DSW 
TWO INTERRUPTS 


TRANSFER COMPLETE 
PRINT COMPLETE 


TAKE NEXT CHARACTER 


SKIP IF NEXT -wORD 


“CHECK IF END ROUTINE 


CHECK END OF DATA 
TABLE 


=3 FUR RIN & 


SEERERRESSAAKEESESES ESET EEE ERE RES SHE EEEEERES 


"ROUTINE FOUR 


BIT LINE TEST - 


THIS ROUTINE TESTS THE 
ABILITY OF THE 1403 TO 
RECEIVE AND PRINT DATA 


) : 
a ee, 


ae. 


PART NO. 2243556 


PAGE 


30004100 
30004110 
30004120 
30004130 
30N04140 
30004150 
30004160 
30004170 
30004180 
30004190 
30004200 


30004210 


30004220 
30004230 


30004240 


30004250 
30004260 
30004270 


30004280 


30004290 
30004300 
30D04310 
30004320 
30D04330 
30D04340 
30004350 
30004360 
30004370 
30D04380 
30D04390 
30004400 
30004410 
30004420 


30004430 


30D04440 


-'30D04450 
30004460 


30D04470 
30004480 
30004490 


30004500 
30004510 


30004520 
30004530 
30004540 
30004550 
30004560 
30D04570 
30004580 
30D04590 


30004600 


30004610 


30004620 


30004630 


' 30004640 
~ 30004650 


30004660 


30004670 
-30004680 


-- 30D04690 
30004700 
“30004710 


--30004720 


- --30004730 
“30004740 
~' 30004750 
~ 300046760 
+ 30004770 


PROG ID 
PAGE 


6 


030D-0 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1130-1403 FUNCTION TEST 


DATE 


EC NO. 


O6OFB 
O6FD 
O6FE 
O6FF 


or orm 


0700 
0702 
0704 
0705 
0706 


0707 
0708 


OT0A 
0708 


~K~O ~O Or O = = 


070D 
O70E 
O70F 


0710 
0711 


Ko F600 


0713 
0715 
0716 
0717 
0718 


~~ ooocr 


0719 


0718 1 
0710 0 


15JUN67  20SEP67 
420317 


4400 


O8F4 


0008 
OA3C 
0008 


4400 
4400 
004B 


094F 
O8F4 


0A44 
0007 


630E 


6FO0O 


0604 


6102 


4400 


092E 


OA28 
OA2C 
OA2E 


6108 


4400 


4400 


0907 


0979 


0003 
4006 
1002 
2000 


4400 


4400 


O8E4 


OA2B 


TOEC 


420317C 


R 


Peete eee e eee eete Pee ERHE ASE & 


TN& BSI 
oC 
oC 
oc 


BSI 
BSI 
OC 
oc 
DC 


LOX 
STX 
TN41 LDX 
BSI 


X10 
x10 
x10 


t Ox 
BSI 


BSI 
OC 
DC 
OC. 
oc 


8S] 


BSI 
MDX 


IN 


SING 
ROT 
POS 
SHO 
EAS 

— PRI 
CHA 
FIR 
SPA 
FEA 


BINA 


tL SEBIT 


L 
L 


8 
BITL 
8 


HDNG 
SEBIT 
75 
BLINE 
7 


14 
CYCNT 


DSwW1-OST 
PTROY 


SPACE-DST 
PRTIT-DS7T 
SENSN-DST 


DSW4-DST 
SBANA 


ITOSW 
3 | 
44006 
41002 ~~ 
42000 


ROTA 


CKEND 
RTNGL 


KECREKSSKTKKSEKSSEALK SKK SKS 


ee eee nn nas 


ROUT 
PARI 


THIS 
ABI 


ITS SIMPLEST FORM. 


LE BIT CHARACTERS ARE 
ATED THROUGH ALL PRINT 
ITIONS. ANY OPEN OR 
RTED BIT LINE SHOULD 
ILY BE SPOTTED BY THE 
NTING OF THE WRONG 
RACTERS. THIS IS THE 
ST ROUTINE TO USE THE 
CE AFTER PRINT. 

TURE. 
RY WORD CHARACTER 
00 

01 
02 
04 
08 
10 
20 


ZPEOVWA = 


OUTPUT SIZE 
SOURCE 
SQURCE SIZE 


SET UP ROUTINE DATA 
OUTPUT SIZE 

SOURCE 

SOURCE. SIZE | 


SET CYCLE COUNTER 


CHECK PRINTER READY 
ERROR - 1 

SPACE 
PRINT 
SENSE 


BEFORE PRINT 
THE LINE 
DEVICE 


CHECK 


| BUSY 
ERROR - 4 


- 4 


CHECK INTERRUPT OSW 
WAIT FOR THREE INTS 
TRANSFER COMPLETE 
CARRIAGE OP COMPLETE 
PRINT COMPLETE 


'- ROTATE GUTPUT DATA 


GO CHECK IF END RTN 
NO-REPEAT 
CEKESEKERSEKESERSESS EERE 


INE FIVE 
TY TEST (BAD PARITY) 


ROUTINE CHECKS THE 
LITY OF THE. 1403 TO 


Se 
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30005110 
30005120 
30005130 
30005140 


- 30005150. 


30005160 
30005170 
30005180 
30005190 
30005200 
30005210 
30005220 
30005230 


30005240 | 


30005250 
-30D05260 
30005270 
30005280 
30005290 
30005300 
30005310 
30005320 
30005330 


- 30005340 
- 30005350 
30005360 
- 30005370 
_- 30005380 
30005390 
30005400 
> 30005410 
- 30005420. 
30005430 
_- 30005440 
_- 30005450 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2243556 5 ' IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM [ ae mata 
a .. 4 PAGE 5: | : | | AG 
1130-1403 FUNCTION TEST : ss . . 1130-1403 FUNCTION TEST 
ee y 
ig RESPOND TO CHARACTERS 30005460. | 4 0749 O COEF | LD PACNT — TAKE NEXT CHARACTER 30006140 
* HAVING INVALID PARITY 30005470 . O74A 0 92FE : S 2 TERM-DST . 30006150 
* BITS. =. : 30005480 0748 ,0 DOED STO PACNT ee | 30006160 
s ra 30D05490 ) ¥ 30006170 — 
* - A SINGLE BAD PARITY 30D05500 074C 0 4804 BSC E | SKIP IF NEXT WORD 30006180 . 
% CHARACTER IS LOADED iNTO 30D05510 - 074D 0 70E3 MDX  RTNS2 | 30006190 ; 
+ THE OUTPUT BUFFER. THE 30005520 ) * ares . | 7 30006200 ‘ 
* PROGRAM THEN WAITS FOR A 30005530 O74E 1 4400 OA2B~ BSI Lt CKEND CHECK IF END ROUTINE 30006210 , 
* TRANSFER COMPLETE INTER-= 30005540 : | 7 * a | , 30006220 | 
* RUPT. IF ONE IS RECEIVED 30005550 . . 1 0750 1 7401 0733 | MDX tL BLNCTel CHECK END OF DATA 30006230 
* THE MULTIPLEXOR FAILED TO 30005560 0752 0 COE6 LD PACNT TABLE 30006240 
* RECOGNIZE THE ERROR 30005570 0753 0 9003. S EPARE 30006250 
# CONDITION. IN THIS CASE 30005580 0754 1 4C€28 0731 BSC L  RTN529+2 30006260 
% NO CHARACTER IS PRINTED. 30005590. 0756 0 70D7 MDX RTN51 | 30006270 
* HOWEVER, IF NO TRANSFER 30005600 ae * - 30006280 
* COMPLETE INTERRUPT IS 30005610. 0757 1 OA6F EPARE DC PARE+13 | 30006290 
* RECEIVED AND A PRINT 30005620 0758 0 TFO4 NUM5 DC STFO4. =5 FOR RIN = 30006300 
s CHECK OCCURS, THE PARITY 30005630 REKKEKSKASKEKESKEKKKKSES KKKHKRHKKSKAHKKKKRLHKKL HSER 30006310 
* BIT 1S CORRECTED AND THE 30005640 - * 30006320 
mt CHARACTER IS PRINTED. 30005650 | * 30006330_ 
* THIS PROCEDURE IS RE- 30005560 * | 30006340 z 
ne PEATED FOR EACH OF THE 30005670 * ROUTINE SIX 30005350 
Poa 120 PRINT POSITIONS. %9 30005680 - 30006360 
a % SPACING IS DONE IN THIS 30005690 - CHARACTER COMPLEMENT 30006370 
ee * KOUTINE. 30005700 ) * : | 30006380 
Pe * | . 30005710 * THIS ROUTINE PRINTS EACH > 30006390 
a * | 30005720 * CHARACTER OF THE 48 | 30006400 
O71E 0 C039 | RTNS LD NUM5 “ 30005730 ws CHARACTER PRINT SET IN 30006410 
O7!F 1 D400 0A53 , STO L PARt6 : | 30005740 . * EACH OF THE 120 PRINT 30006420 
0721 1 4400 O8F4 BSI t SEBIT . SET UP RTN HEADING 30005750 | : 7 POSITIONS. | 30006430 
0723 0 0007 oc 7 _ GuTPUT SIZE | 30005760 : | _ * 2 30006440 
0724 1 OA40 oc PAR SOURCE 30005770 | * THE CHARACTERS ARE ROTATED 30006450 
0725 0 0007 oc =—ti‘iT? SOURCE SIZE 30005780 | : % ONE POSITION TO THE LEFT 30006460 
| * 30005790 : * WITH EACH SUCCEEDINGG 30006470 
0726 1 4400 094F BSI tL HONG PRINT RTN HEADING 30005800 , * LINE OF PRINT. | 30006480 
7 * | | 30005810 * _ | 30006490 
0728 0 C230 LO 2 060--0ST SET FOR 120 CHARS 30005820 ) ) * 30006500 
0729 0 021A — STO 2 CYCNT-DST | | 30005830 | a: i 7 7 30006510 
072A 0 1810 SRA - 16 ' INITIALIZE PARITY 30005840 | 0759 : 4400 O8F4 RTN6 BSI Lt SEBIT SET UP RTN HEADING 30006520 
072B 0 DOOT STO BLNCT 30005850 7 1  975B 0 OOOE oc 14 OUTPUT SIZE 30006530 
072C 1 D400 0A25 STO LL COLNO 30005860 075C 1 OAT7O OC CHARC SOURCE ; 30006540 
| * | | 30005870 075D O OOOE DC 14 SOURCE SIZE 30006550 
O72E 1 6700 OA62 RTN51 LOX L3 PARE 30005880 3 1 eas | : * | 30006560 
0730 0 6808 STX 3 PACNT 30005890 O75E 1 4400 094F BSI t HONG PRINT RTN HEADING 30006570 
& | 7 30005900 : | 30006580 
0731 1 4400 O8F4 RTN52 BSI Lt SEBIT SET RTN DATA 30005910 7 0760 1 4400 O8F4 BSI tL SEBIT SET UP RIPPLE PATTRN 30006590 
0733 0 0000 BLNCT OC 0 - 120 OUTPUT SIZE 30005920 O762 O OO4E : dC 18 OUTPUT SIZE- | 30006600 
0734 1 OA3B "OC BLANK SOURCE 30005930 0763 1 OATE OC CHAIN SOURCE 30006610 
0735 0 0001 | 0c 1 SOURCE SIZE 30005940 | y, 0764 O OOLA DC 26 SOURCE SIZE 30006620 
0736 1 4400 O8F4 BSI L SEBIT ae 30005950 a * 7 30006630 
0738 O FFFF oc -1 ADD TO BLANK FIELD 30005960 0765 0 C003 | ‘LO 054 SET CYCLE COUNTER: 30006640 
0739 0 0000 PACNT DOC 0 SOURCE (PARE) 30605970 | (0766 O D21A STO 2 CYCNT-DST | , 30006650 
0734 0 0001 oc al SOURCE S!ZE . 30005980 s : a 30006660 
a a . a as 30005990 0767 1 4COO O70A BSC Lt RTN4l1 GO TU PRINT IT 30006670 
0738. 0 6102 LOX 1 OSW1-OST CK PRINTER READY 30006000 * 30006680 
073C 1 4400 092€ , BSI L PTROY ERROR —- 1 | 30006010 0769 9 0036 D54 OC 54 — 30006690 
* 30006020 ; STCKEKSKKKKEAKKSECKLKKKSESCHKERKRHKKSRKAEKSKRRE RAKE EE 30006700 
O73E 0 OA2C X10 2 PRTIT-“DST PRINT THE LINE . 30006030 p * | 30006710 
® | 4 | 30D06040 * 30006720 
O73F 1 4400 O9EC | BSI L COLUM PRINT COL NO ON NEXT ERR 30006050 * 30006730 
| @ | 30006060 | * ROUTINE SEVEN 30006740 
0741 1 4400 0979 BSI t ITOSW CHECK INTERRUPT OSw 30006070 * : | 30006750 
0743 0 0002 , oc 2 TWO INTERRUPTS 30006080 * SPACE AFTER PRINT TEST 30006760 
0744 0 C002 oc /C002 XFER COMP + PARITY CK 30006090 * | 30006770 
0745 0 A000 DC /A000 PRINT COMP + PARITY CK 30006100 * THIS ROUTINE PROVIDES ONE 30006780 
0746 0 6103 Lox 13 . DO NOT PRINT COLUMN 30006110 * CHECK OF THE SPACING 30006790 
0747 1 6000 OAll STX Ll EMESS+2 NO ON NEXT ERROR MSG 30006120 * CIRCUITRY. 30006800 
e 30006130 * 30006810 
DATE 15JUN67 20SEP67 PROG ID 0300-0 DATE 15JUN67 20SEP67 © PROG 10 — 0300-0 
EC NO. 420317 420317C PAGE 5 EC NO. 420317 420317C PAGE 5A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1130-1403 FUNCTION TEST 


DATE 
EC NO. 


4400 


O76A 1 O8F4 
076C 0 000D 
O76D 1 CAB 
O76E 0 0000 
O76F 1 4400 094F 
0771 0 610A 
0772 1 6D00 0604 
0774 1 4400 O8F4 
0776 0 0014 
0777 1 OA3B 
0778 0 0001 
0779 1 4400 O8Fs 
077B 0 FFD8 
Q77C 1 OACF 
077D 0 0091 
O77E 1 CCOO OAEO 
0780 1 D400 OB2A 
0782 0 18D0 
0783 1 0400 0802 
0785 1 4400 O8E4 
0787 0 6102 
0788 1 4400 092E 
078A 0 OA2C 
O78B 0 OA2E 
078C 0 610A 
078D 1 4400 0907 
O78F 1 4400 0979 
0791 0 0001 
0792 0 4002 

0793 0 OA28 

079% 1 4400 0979 
0796 © 0003 
0797 0 4002 
0798 D 2004 
0799 © 1000 
0794 1 4400 OA2B 
079C 0 70E8 

15JUN67 = 20SEP67 
420317 420317C 


TN7 


® 


¢ 


eaten e 


BSI 


DC 
DC 
oC 
BSI 


LDX 


_ STX 


BSI 
DC 
oc 
oC 


BSI 
DC 
oc 
bc 


LOD 
STO 
RTE 
STO 
BSI 


LDX 
BS] 


x10 
x10 


LOX 
BSI 


BSI 
OC 
OC 
X10 


BSI 


oc 


oC 
OC 
OC 


BSI 


MDX 


Ll 


ee. FF 


A SPACE COMMAND IS ISSUED 
RIGHT AFTER GIVING A 


PRINT COMMAND. 


THE DSW 


INDICATORS ARE CHECKED 
FOR VALIDITY AFTER THE | 
SPACE COMMAND AND DURING 
INTERRUPT. 


SEBIT 


SPAP 
13 


HONG 


10 


CYCNT 


SEBIT 
20 
BLANK 


SEBIT 
=40 
E 
1 


SLSH 
AREA+60 
16 

AREA+20 


ROTA 


OSW1-DST 
PTRDY 


PRTIT-DST 
SENSN=-DST 


OSW5-DST 
SBANA 


ITOSW 
1 
44002 


SPACE-DST 


1TDSW 


3 


L 


CREAR ERERE SERRE EERE 


44002 
12004. 
41000 | 


CKEND GO CHECK IF END RTN 


RTN72 


SET RTN HEADING 
QUTPUT SIZE 
SOURCE 

SOURCE SIZE 


GO PRINT THE HEADING 
SET THE CYCLE COUNT 
CLEAR OUTPUT TABLE 
OUTPUT SIZE 


SOURCE 
DATA SiZE 


SET UP PRINT DATA 
OUTPUT SIZE 
SOURCE: 

SOURCE SIZE | 


ROTATE OUTPUT CHARS 


CHECK PRINTER READY 
ERROR —- 2 


PRINT THE LINE 
SENSE DEVICE 


CHECK FOR BUSY 
- 5 | 


ERROR 


-ONE INTERRUPT 


TRANSFER COMPLETE 
SPACE CARRIAGE 


' CHECK INTRPT OSW 


THREE INTRPTS — 
TRANSFER: COMPLETE 


PRINT COMPLETE: 
CARRIAGE OP COMPLETE 


PRINT NEXT LINE 


a a 


ScuyiNe EkGhG Ss ee 


SPACE BEFOKE PRINT TEST 


THIS ROUTINE PROVIDES A 
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30006940 
30006950 
30006960 
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30006980 


30006990 
30007000 
30007010 
30007920 
30007030 
30D07040 
30007050 
30007060 
30007070 
30007080 
30007090 
30007100 
30007110 
20007120 
30007130 
30007140 
30007150 
30007160 


30007170 


30007180 
30007190 
30007200 
30007210 
30007220 
30007230 
30007240 
30007250 
30007260 
30007270 


30007280 


30007290 
30007300 
30007310 
30007320 


39007330 
- 30007340 


30007350 


30007360 
- 30007370 
30007380 
-- 30007390 
30007400 
30007410 
» 30007420 
30007430 
- 30007440 
- 30007450 


30007460 
30007470 
30007480 
30007490 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1130-1403 FUNCTION TEST 


a EC NO. 
Ys l 

agers 7 ) i ) 
oF ae 4 SS aw 


079D 
O79F 
O7A0 
O7Al 


O7A2 


O7TA4 
O7A5 


O7A7 
O7A9 
O7AA 
O7AB 


O7AC 
OTAE 
O7AF 
0760 


07B1 
0783 
0765 
0786 


0788 


O7BA 
078B 


0780 
O7BE 
O78F 


07CO 
0701 


o7c3 
o7c5 
07C6 


O7C7 
07C8 


o7c9 
 07C8 


420317 


eoror 


orf or 


“Oo ocso 


ooocoor 


4400 O8F4 
000D 
OABE 
on0D 


4400 094F 


610A 


6D00 0604 


4400 O8F4 
0014 
0A3B 
0001 


4400 O8F4 


FFDS 
OACF 
0001 


CCOO OAEO 
D400 OB2A 
1800 

D400 0802 


4400 O8E4 


6102 
4400 O092E 


OA28 
OA2C 
OA2E 


6108 
4400 0907 


4400 0979 
0003 
4006 
1002 . 
2000 


4400 OA2B 


0 7OEC 


eee egaavas 


TN8 


mrt t tT 


ASJUN67 -20SEP67. 
42031 7C 


SECON 
SPACI 
A SPAC 
BEFOR 


COMMA 
TORS 


VALID 
COMMA 
INTER 

BSI Lt SEBIT 

DC ee 

oc SPBP 

DC 13 

BSI tL HDNG 

LOX 110 


STX Ll CYCNT 


BSI L  SEBIT 
OC 20 
DC BLANK 
oc 1 
BSI Lt SEBIT 
oc -40 
oc E 
oc l 
LDD t SiSH 
STO L AREA+t60 
RTE lo 
STO L AREA+20 
BSI L ROTA 
LDX 1 DSW1-DST 
BSI Lt PTRDY 
X10 2 SPACE-DST 
X10 2 PRTIT-DST 
XIO 2 SENSN-DST 
LDX 1 DSW4-DST 
BSI tL SBANA 
BSI L ITDSwW 
oc 3 
Oc - 14006. 
DC 41002 
pc = =—s-_- 2000 
BSI L CKEND 
- MOX _ RTNB2 | 
KRECRKKEKRKEKKCEKCKKE KKK 
 ROUTIN 
. CARRIA 
os. TEST 
THIS R 
CHECK 


D CHECK CF THE 
NG CIRCUITRY. 


E COMMAND IS ISSUED 
E GIVIAG A PRINT 

ND THE DSW INDICA- 

ARE CHECKED FOR 

ITY AFTER THE PRINT 
ND AND DURING 

RUPT. 


SET UP RTN HEADING 
OUTPUT SIZE 

SOURCE 

SOURCE SIZE 


GO PRINT THE HEADING - 


SET THE CYCLE COUNT 


CLEAR OUTPUT AREA 
OUTPUT SIZE 
SOURCE 

SOURCE SIZE 


SET UP PRINT DATA 
OUTPUT SIZE 
SOURCE 

SOURCE SIZE 


ROTATE OUTPUT CHARS 


CHECK PRINTER READY 
— ERROR - 1 


‘SPACE CARRIAGE 


PRINT ThE LINE 
SENSE DEVICE 


CHECK FOR BUSY 
ERROR - 4 


CHECK INTRPT DOSw 
THREE INTERRUPTS 
TRANSFER COMPLETE 
CARRIAGE OP COMPLETE 


PRINT COMPLETE . 


CK IF END OF ROUTINE 
-PRINT. NEXT LINE. 


FKEEEEERRARERESARE RE 
E NINE ue Re [ 
GE SKIP AFTER PRINT 


OUTINE PROVIDES ONE 
OF THE CARRIAGE 


SKIP CIRCUITRY.» 


pre ES 
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30007920 


30007930 
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PAGE 7 PAGE 7A 


1130-1403 FUNCTION TEST. 1130-1403 FUNCTION TEST 


6110 LOX 1 16 | 30008860 


* | 30008180 O7FD 0 
* A SPECIAL CARRIAGE TAPE 30008190 O7FE 1 C400 OAFB LD Lt AREA+)3 7 30008870 
* WITH CHANNELS PUNCHED 30008200 0800 1 F400 OA3B. EOR L BLANK | 30008880 
 # EQUALLY SPACED ON THE 30008210 | 9802 0 4818 Bsc += - BR IF CHANNEL 9 : 30008890 
; * TAPE IS REQUIRED. 30008220 | 0803 0 6108 Lox 186, | nee * Me ---- 30008900. 
/ 30008230 0804 1 F400 OAFE €OR L AREA+16 30008910: 
/ A CHANNEL SKIP COMMAND 30008240 . ; 0806 1 F400 0A3B EOR L BLANK | 7 30008920 
* 1S ISSUED AFTER GIVING 30008250 0808 0 4818 | BSC += BR IF CHANNEL C 30008930 
* A PRINT COMMAND. ALL 30008260 * | - 30008940 
* DSW INDICATORS ARE 30D08270 | - 2 0809 0 6100 LOX 10 | 7 — 30008950 
* CHECKED FOR VALIDITY 30008280 080A 0 7500 1000 MDX L1 /1000 | eS --- 30008960 
* BEFORE AND AFTER ISSUING 30008290 O080C 1 6D00 O5F8 STX Ll DSW7 SET DSW EXPECTED 30008970 
* THE COMMAND AND DURING - 30008300 es * | 39008980 
* THE INTERRUPTS. 30D08310 O80E 0 C242 LO 2 INTEX+3-DST FETCH DSW 30008990 
% | | 30008320 * | 30009000 
O7CC 1 4400 O8F4 RTN9 BSI L_  SEBIT SET UP RTN HEADING 30D08330 3 - O80F O 610E LOX 1 DSW7-DST CHECK CHAN IND AND 30009010 
O7CE 0 O000C oC 12 OUTPUT SIZE 30008340 0810 1 4400 0907 BSI L  SBANA READY ERROR-7 - 30009020 |: 
O7CF 1 OA98 DC SKAP SOURCE > 30D08350 | * | = a | 7 30009030 
07D0 0 000C DC 12 SOURCE SIZE 30008360 EA 9812 1 4400 087F BSI -L CHANQ UPDATE CHAN NO .-——_—-_—S_—s:«C#23'0009040 
| 4 * s 30008370 | * : | | 30009050 
07D1 0 61FF | Lox 1-1 SET CHANNEL POINTER 30008380 | 0814 1 4400 0A28 BSI L CKXEND CHECK IF END OF RTN 30009060 
0702 1 6D00 0887 STX 1 CHANL | : 30008390 | 0816 0 70C9 MDX RTNO1 NO - REPEAT 30009070 — 
x 30008400 . aM SHCKKKKKKKK SECS EREKKKKKKSKKKKSEKIKKCKRKKKKRKLKS . 30D09080 . 
07D4 0 C23C LD. 2 KO800-DST SET THE CHANNEL SKIP 30008410 * | 30009090" 
07D5 0 0236 | STO 2 SKPWD-DST 30008420 ) * | 7 30009100 
: * . 30D08430 * ROUTINE A 30009110 
0706 1 6500 OAE2 LDX L1 CHANO 30D08440 * | = | 30009120 ae 
C7D8 1 6D00 08sD STX L1 CHAN2 30008450 * CARRIAGE SKIP IMMEDIATE 30009130 | 
. — * eS 30D08460 * TEST 30009140 
O7DA 0 61€0 LOX 1 -32 30008470 * _ - 30D09150 
O7D8 1 6000 O86F STX Ll ELINI 30008480 * THIS ROUTINE PROVIDES A 30009160 
* 30008490 * SECOND CHECK OF THE 30009170 
070D 0 6100 LOX 1 13 30008500 * CARRIAGE SKIP CIRCUITRY. 30009180 
O7DE 1 6D00 0604 STX Ll CYCNT 3 30008510 * | 30009190 
See * } | 30008520 * AGAINy THE SPECIAL 30009200 
O7EO 0 6102 RTN91 LDX 1 DSW1-DST - 30008530 * CARRIAGE TAPE WITH 30009210 
O7E1 1 4400 092E BSI tL PTROY CHECK PRINTER READY 30008540 ; * CHANNELS PUNCHED EQUALLY 30D09220 
| * | a - - 30008550 SPACED IS REQUIRED. 30009230 
07E3 0 OA2C X10 2 PRTIT-DST PRINT THE LINE | 30008560 3 : * | 30009240 
. * | | 30008570 ) * A CHANNEL SKIP COMMAND IS 30009250 
O7E4 0 OA2E X10 2 SENSN-DST SENSE DEVICE 30D08580 * ISSUED BEFORE GIVING A 30009260 
| — * | 30008590 * PRINT COMMAND. ALL INDI- 30009270 
O7E5 0 610A LOX 1 DSW5-DST CHECK IF BUSY 30D0860C a) ) ® CATORS ARE CHECKED FOR | 30009280 
O7E6 1 4400 0907 BSI L SBANA ERROR - 5 30D08610 * VALIDITY BEFORE AND AFTER. 30009290 
* | | | 30008620 * THE COMMAND 3S ISSUED 30009300 
O7EB 1 4400 0979 BSI L  ITOSW WAIT FOR XFER CMPLT 30008630 a4 AND DURING THE INTER- | 30009310 
O7EA 0.0001 DC 40001 ONE INTERRUPT DSW 30008640 | mx RUPTS. | 30009320 
O7EB 0.4002 DC 14002 TRANSFER COMPLETE 30008650 | | * 30009330 
4 * | | 30008660 _ 0817 1 4400 O8F4 RTNA BSI L_ SEBIT SET UP RTN HEADING 30009340 
O7EC O OA2A X10 2 SKIP-DST SKIP TO CHANNEL 30008670 0819 0 000D DC 13 OUTPUT SIZE 30009350 
| * _ 30008680 | O81A 1 OAASh | oC SKBP SOURCE ae 30009360 
-O7ED. 1 6580 OAEE. LOX I] AREA CHECK IF CHAN SET 30008690 0818 0 0000 oc 13 SOURCE SIZE : 30009370 
O7EF O 71F7 | MDX 1 -9 | i 30D08700 ; | | oa # | . 30D09380 
O7FO 0 7005 MDX RIN94 | _ 30008710 O81C 1 4400 094F BSI Lb HDNG PRINT THE HEADING 30009390 
a 7 a) 30008720 oe ON | * | ' 30009400 
O7F1 1 4400 O8F4 BSI Lt SEBIT. SET CHANNEL WORD 30008730 O81E 0 C23C LD $2 KO800-DST SET THE CHANNEL SKIP 30009410 
-O7F3 0 0004 pe «|. QUTPUT SIZE 30D08740 O81F 0 0236 STO 2 SKPWO-DST 30009420 
O7F4 1 OACB : oc CHAN ~ SOURCE 30008750 ) : 7 * a : - Pate 30009430 
O7F5:0 0004 oc 4 -SOURCE SIZE ‘30008760 | 0820 0 61FF | ‘LOX 1 -2 | 30009440 
i ae es _ cae aes 30008770 0821 1 6006 0887 STX Ll CHANL 30009450 
O7F6 O 406A -RTN94 BSI ELIN SET E LINE = 30008780 : Tae ee ® ae - 30D009«.60 
lee Gi oes . _ | ee 30008790 0823 1 6500 OAE2 LDX 1 CHANO eS 40009470 
_O7TF7 1 4400 0979 BSI Lt I1TOSW “WAIT FOR INTRPTS 30008800 0825.1 6000 088D © STX £1 CHAN2 . 30009480 
O7F9 0 0003 pc 3. THREE: INTERRUPTS 30008810 Pies Sr Ges * ma : eee 30009490 
 O7FA 0 4002 oc 14002 TRANSFER COMPLETE 30008820 | 0827 0 61E0 LOX 1 $32 ees 30009500 
- O7FB 0 2004 . OC 12004 PRINT COMPLETE 30008830 0828 0 6946 -STX 1 ELINI a PES | 30009510 
- OTFC 0 1000 oc _/1000 CARRIAGE OP COMPLETE 30008840 | 0829 0 610C LOx 1 12 ae 30009520 
. ee a ae ._ ... + Pea eS .30008850 a 082A 1.6000 0606 STX L1 CYCNT 30009530 
DATE 15JUN67 20SEP67 PROG ID 030D-0 | DATE 15JUN67 20SEP67 PROG 1D 0300-0 


EC NOo 420317  =420317C | PAGE 7 , EC NO. 420317 420317C PAGE 7A 














184 MAINTENANCE OITAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1130-1403 FUNCTION TEST... 








s 
082C 1 4400 O8F4 BSI t SEBIT SET CHANNEL WORD 
O32E 0 0004 . OC. a OUTPUT SIZE | 
O82F 1 OACB. oC CHAN - SOURCE = 
0830 0 0004. oC 4. SOURCE SIZE 
: ane ° | feces foe ee 
0831 0 402F_ BSI. ELIN SET THE E LINE 
0832 0 404C . BSI CHANQ SET THE CHANNEL NO} 
ee ar ne re ore | | 
0833 0 6102 RTNAL LOX 1 DSW1-DST CHECK PRINTER READY 
0834 1 4400 092E BSI t PTRDY ERROR — 1 
0836 0 OA2A X10 2 SKIP<DST SKIP TO CHANNEL 
. 0837 0 OA2C - X10. 2 PRTIT-DST PRINT AFTER SKIPPING 
x ; 
0838 O OA2E X10. 2 SENSN-DST SENSE DEVICE 
0839 0 6108 | LOX. 1 DSW4-DST CHECK BUSY 
083A 1 4400 0907 BS1 tL SBANA ERROR -4 
: * 
083C 1 4400 0979 BSI t ITDSW WAIT FOR XFER CMPLT 
083E 0 0002 DC 2. TWO INTERRUPTS 
083F 0 4006 DC 14006 TRANSFER COMLPETE 
0840 0 1002 DC 41002 CARRIAGE OP COMPLETE 
: | 
0841 O 401F BSI ELIN. SET EE- -EE/ LINE 
| * | | 
0842 1 44CO 0279 BSI L  ITDSW WAIT FOR INTRPTS 
0844 0 0003 DC 3 | THREE INTERRUOTS 
0845 0 4006 pc 14006 TRANSFER COMPLETE 
0846 0 1002 pc 41002 CARRIAGE OP COMPLETE 
0847 0 2000 oc £2000 PRINT COMPLETE 
; = 
0848 0 6110 LOX 1 16. 
0849 1 C400 OAFB LD tt AREA413 
0848 1 F400 0A3B EOR L BLANK | 
0840 0 4818 BSC += BR IF CHANNEL 9 
s . 
084E 0 6108 LDx 18 
O84F 1 F400 OAFE EOR t AREA+16 
0851 1 F400 0A3B EOR Lt BLANK 
0853 O 4818 | BSC +- BR IF CHANNEL C 
) : “ 
0854 0 6100 Lox 10 
0855 0 7500 1002 MDX tl 41002 
0857 1 6000 O5F8 STX L1 OSW7 SET OSW EXPECTED 
* ; 
0859 0 C241 | LO 2 INTEX+2-DST FETCH DSW 
& . 
085A O 610E LOX 1 DSW7-DST CHECK CHAN IND AND 
085B 1 4400 0907 BSI tL SBSANA READY 
s 
085D 0 402} BSI CHANQ SET THE CHANNEL NO} 
oy * 
O85E 1 4400 OA2B BSI tL CKEND CHECK IF END OF RIN 
0860 O 70D2 MDX RTNAL NO — REPEAT 
KEKSESKCKKCKKCKKCSCSKSKKSKSKEKKKKCKKLKCSSEKREKCKSFCKKKEKEKEK EK 
| 
* SET FLOATING € LINE. SUB-RTN 
s . 
a 
0861 0 0000 ELIN DC | 
_ 0862 06315 \tLOx 3 22 = =SET WORD COUNT) 
0863 1 6FOO OAEE STX L3 AREA _ 
0865 1 4400 O8F4 BSI] tt SEBIT 
0867 O FFD9 pc -39 output SIZE 
0868 1 0A38 Dc BLANK SOURCE — 
0869 0 0001 oc 1. SOURCE SIZE 
DATE 15JUN67 20SEP67 
EC NO. #420317. | 420317C 
es sa ee ae a | a ae’ aa ae 
Re ae we - eae ath. fe oo ae kage wae A 


PART NU. 
PAGE 


30009540 
30009550 
30009560 | 
30009570. 
30209580 
30D09590 . 
30009600. 
30009610. 
30009620 
30009630. 
30009640 
30009650 
30009660 
30009670 
30D09680 
30009690 
30009700 
30009710 
30009720 
30009730 
30009740 
30009750 
30D09760 
30009770 
30D09780 
30009790 
30009800 
30009810 
30009820 
30009830 
30D09840 
30009850 
30D09860 
30009870 
30009880 
30009890 
30009900 
30009910 
30009920 
30D09930 
30D09940 
30009950 
30009960 
30D09970 
30009980 
30009990 
30010000 
30010010 
30010020 
30010030 
30D10040 
30010050 
30010060 
30D10070 
30D10080 
30010090 
30D10100 
30010110 
30D10120 * 
30010130 
30010140 
30010150 
30010160 


"30010170 


30010180 
30010190 
30010200 
30D10210 


PROG 
PAGE 


ID 


2243556 
8 


www! 


wow! 


Pemse same © 





0300-0 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


1130-1403 FUNCTION TEST 


1130 SYSTEM 








PART NO. 2243556 
PAGE 8A 


30010220 — 


— 30010230 
30010240 





= 
086A 0 6315 Lox 322 
9868 1. 6F0O. OAEE. STX 3 AREA — 
O86D. 1 4400 O8F4 BSI Lt SEBIT E LINE 
O86F O FFEO : ELINL OC” -=32° ° OuTPUT SIZE 
0870 1 OACF DC: E SOURCE 
0871 0 0001. oC SOURCE SIZE 
Fed) eee ae * ee es i 
0872 1 C400 OADO | LO t § SLASH FLOATING SLASH 
0874 1 6780 OAEE LOX 13 AREA 
0876 1 0700 OAEE STO L3 AREA 
0878 1 7406 O86F MDX LL ELIN1L»6 SET FOR NEXT CALL 
O87A O 7002 MDX ELiN2 
087B O 63E0 LOX 3 -32 
O87C O 6BF2 STX 3 ELINI 
: | . : 
087D 1 4C80 0861 ELIN2 BSC I ELIN EXIT 
MAMRKCKACKKCKKKKKKKKKMKKKKEKCKCKAKECEKKKCKKKSEKKEKEKE 
, ; ‘ 
x _ : 
* CHANNEL NUMBERING SUBROUTINE 
* 
O87F 0 0000 CHANQ OC 
9880 1 6500 OAEE LOX L1 AREA SAVE XR3_ 
x 
0882 0 6304 LOX 34 
0883 1 6FOO OAEE = STX L3 AREA 
= . 
0885 1 4400 O8F4 BSI bt SEBIT 
0887 O FFFF CHAN] OC -) ADD TO OUTPUT 
0888 1 0A3B DC BLAN SOURCE 
0889 0 0001 DC 1 SOURCE SIZE 
* - 2 
O88A 1 4400 O8F4 BSI t SEBIT a | : 
O88C 0 FFFF oc -1 OUTPUT SIZE 
088D 1 OAE2 CHAN2 OC CHANO SOURCE 
O88E 0 O00C : DC 12 SOURCE SIZE 
OS8F 1 74FF 0887 MDX Lt CHANI]»-1 
0891 1 7401 088D MDX LL CHAN2»el 
0893 0 C236 LO 2 SKPWD-DST 
0894 0 1801 SRA 1 
0895 0 4808 BSC + SKIP IF NOT CHAN 1 
0896 0 C23C LO 2 KO890-OST RESET TO CHANNEL 1 
0897 0 D236 STO 2 SKPWD-OST 
= 
0898 1 6D0O OAEE STX Ll AREA 
B 
O89A 1 4C80 O8TF BSC I CHANQ 
- m 
089C 1 OAF2 CHADR DC AREA+4 CHANNEL ID ADRS 
089D 0 0020 H2D o0C /002D CONSTANT : 
SKEKEKKCKKSCKCKCKCKKCKECKSKKSEKEKKCKKKKKEKCKCRKRKLCKKKHKKKCKEKS 
. om ) | 
& 
* ROUTINE 8B 
- | 
* PRINT OPTIONAL DATA TEST 
® 7 
* THIS ROUTINE PROVIDES THE 
* ABILITY TO PRINT OPTIONAL 
* CHARACTERS ON THE 1403. 
eee ee Lae eee eh enna __ Se ee ee 
* THE ACTUAL CHARACTER TO 
* BE PRINTED IS ENTERED BY 
* TRE BIT SWITCHES. BIT O 
* MUST BE ON OR BIT SWITCHES 
DATE 1S5JUN67 20SEP67 
EC NO. 420317. 420317C 
aa a 4 Pes ~ a = ey na ie es 
\ . \ \ if : \ 
) . y wer Nae ay a7 ew ee a, _) oe 


30010850 


30010250 © 
30010260.» 
30010270. 
30010280. 
30010290. 
30010300 
30010310" 
30010320 
30010330 
30D10340 
30D10350 
30D10360. 
30D10370 
30010380 | 
30010390 
30010400 
36010410 
30010420 
30010430 
30010440. 
30010450 
30010460 
30010470 
30010480 
30010490 
30010500 
30010510 
30010520 
30010530 
30010540 
30010550 
30010560 
30010570 
30010580 
30010590 
30D10600 
30010610 
30010620 
30D10630 
30010640 - 
30010650 
30D10660 
30010670 
30010680 
30010690 
30010700 
30010710 
30010720 
30010730 
30010740 
30010750 
30010760 
30010770 
30010780 | 
30010790 
30010800 
30010810 
30010820 
30010830 


30010840 





30010860 
30010870 


30010880 


-30D10890 


PROG 1D 
PAGE 


030D-0 
8A 


ss, 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1130-1403 FUNCTION TEST. 


DATE 
oes 


O8F4 


094F 


08E3 


O8AF 
062E 


OS8AF 


OB8A5 — 
O8F4 


o08sDO 


0907 
0979 


O89E 1 4400 
O8A0 0 000A 
O8Al 1 OAD1 
O8A2 0 OOOA 
O8A3 1 4490 
O8A5 0 0A32 
O8A6 0 C234 
O8A7 0 D235 
O08A8 O 4810 
O8A9 0 C038 
O8AA 1 E400 
O8AC 0 D034 
O8AD 0 1888 
O8AE 0 6102 
O8AF O 1001 
08B0 1 4C30 
08B2 0 D021C 
0883 1 C500 
0885 0 F028 
0886 O DO2ZA 
08B7 O C21C 
08B8 1 4C20 
O8BA 0 1088 
08BB O 71FF 
O8BC 0 70F2 
O8BD 0 0A32 
OBBE O C234 
O8BF O F235 
O8CO 1 4C20 
O8C2 1 4400 

0864 0 0000 

| O8C5 1 O8E1 

- 08C6 0 0001 
08C7 0 6102 
O8C8 1 4400 
—O8CA O OA2C 
O8CB O C234 
O8CC O 1001 
O8f£D 1 4C10 
O8CF 0 0A28 
~08D0 0 0A28 
O8D1 0 OAZE 
08D2 0 6108 
— 08D3 1 4400 
08D5 1 4400 
0807 0 0003 
15JUN67 — 


20SEP67 


092E 


Ae eeeeeenetean ee & 


TNB 


RTNBIL 


SLA 


RTNB2 


RTNB5S 


> 
RTNB 


x : 


_es 


aN BS ———s pho Te =. ar 
Le ay af as ae ot r, 


FOR THE 1130 SYSTEM 


BSI 
OC 
OC 
oc 


BSI 


X10 
LD 

sto 
BSC 
LO 

AND 
$sToO 
SRT 
LOX 


SLA 


BSC 
STO 
LD 

EOR 
STO 
LD 

BSC 
SLT 
MDX 
MOX 


x10 


EOR 


BSC 


BS] 
oc 
OC. 


LOX 


BSI. 


X10 
LD. 


SLA 


-RTNBS 


420317 = 420317C 


BSC 


x10 - 


x10 


XIO - 


LOXx 


BS] 
BSI 


oC 


8-15 WILL NOT BE HONORED. 
REFER TO DOCUMENTATION FOR 
CODING OR CHECK LISTING 


BEGINNING AT LABEL LOCATION 


**CHARC?®, 


DOUBLE SPACE OPTION IS AVAILABLE 
IF BIT SW 1 IS ON. 
THE ABILITY TO STACK TwO SPACE 


~ INSTRUCTIONS. 


tL SEBIT 


NhmN 


Mn 


L 


NN AN 


1 


L 


10 
OPENT 
10 


HONG 


BITSW-DST 
SWTCH-DST 
SAVE--DST 
HH 

K3F3F 
DATA 

8 

2 

1 

SLAe=Z 
TEMP-DST 
K4000-2 
DATA 
DATA 
TEMP-DST 
SLAeZ 

8 


-1 
SLA 


BITSW-OST 
SWTCH-DST 


SAVE=DST 


RTNB19Z 


‘SEBIT. 
toe 


DATA 
i 


| DSW1-DST 
_ PTRDY : 


PRTIT=-DST 


SWTCH=-DST 


RTNB4,- 


~SPACE-DST 


SPACE-DST 
SENSN=-DST 


DSW4-O0ST | 


-SBANA 


ITDSw 
3 


PRINT 


CHECK 


SET UP RTN HEADING 
OUTPUT SIZE 

SOURCE 

SOURCE SIZE 


PRINT THE HEADING 


READ THE BIT SRITCHES 


FETCH THE READING 
SAVE IT 

SKIP IF HONOR THEA 
SET LINE OF H&S 
REMOVE, PARITY BITS 


SET PARITY BITS 
BR IF NO SET BIT 
SAVE 


RETURN IF NOT DONE 


READ BIT SWS 


BR IF SWS CHANGED 


SET UP THE LINE 
OUTPUT SIZE 
SOURCE 

SOURCE SIZE 


CHECK PRINTER READY 


~. ERROR 


THE LINE 
CHECK FOR DBL SPACE 


“SPACE AFTER PRINT 


SPACE AFTER PRINT 
SENSE DEVICE 


CHECK BUSY 


ERROR = 4 


INTRPT DSW 


THREE INTERRUPTS 


~~ 
~~ 


| e. \ 
Pe 


PART NO. 


PAGE 


30010900 
30010910 


30010920 
30010930 
30010940 
30D10950 
30010960 


THIS CHECKS 30010970 


30D10980 


30010990 
30D11000 


30D11010 
30011020 
30011030 
30011040 
30D11050 
30011060 
30D11070 
30011080 
30D11090 
30011100 
30011110 
30011120 
30011130 
30D11140 
30011150 
30D11160 


-30011170 


30D11180 
30D11190 
30011200 
30011210 
30011220 
30011230 
30011240 


— 30011250 


30D11260 
30011270 
30011280 


30011290 


30011300 
30011310 
30011320 
30011330 
30011340 
30011350 
30011360 
30011370 


30011380 


30011390 
30011400 


30011410 


30011420 


30011430 
- . 30011440 
-.30D11450 


30D11460 


30011470 


30011480 


30011490 
. 30011500 

30011510 
30011520 


30011530 


— 30011540 
- 30011550 
30011560 

30011570 


PROG ID 


PAGE 





IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1130-1403 FUNCTION TEST 


420317 


08D8 0 4006 

0809 0 2004 

O8DA 0 1000 
'.08DB 0 6102 

O8DC 1 6D00 0604 

O8DE 1 4400 OA2B 

08E0 0 700C 

O8E1 O 6B6B 

O8E2 0 6B6B 

O8E3 0 3F3F 

08E4 0 0000 

O8ES 1 6780 OAEE 

C8E7 1 C400 OAEF 

O8E9 0 18D0 

OBEA 1 C700 OAEE 

O8EC 0 1808 

O8ED 1 D700 OAEE 

O8EF 0 1088 

O8FO 0 73FF 

O8Fl O 70F8 

O8F2 1 4C80 O8E4% 

O8F4 0 0000. 
O8FS 0 6532 
-O8F6 1 6600 OAEE 
O8F8 1 6780 O8F4 

O8FA 0 C300 | 

O8FB 1 4C10 0900 

DATE 15JUN67 20SEP6T 
EC ND. - &20317C 


YOeeeeaeaenaeennHeeneeennannane ses 


DC 


OC 
DC. 


LOX 
STX 


BSI 
MDX 
x 
DATA DC 
HH = OC 
K3F3F DC 


44006 


12004 
/1000 


12 


t 


L 


1 CYCNT 


- CKEND 
RTNB2 


4686B 
/6B86B 
/3F3F 


TRANSFER COMPLETE 


PRINTER COMPLETE 
CARRIAGE OP COMPLETE 


SET THE CYCLE COUNT 


CHECK IF END RIN 


OPTIONAL PRINT DATA 


H H 


PART NO. 


PAGE 


30011580 
30011590 
30011600 
30011610 
30011620 
30011630 
30D11640 
30011650 
30011660 


°30D11670 


30011680 
30011690 


' 30011700 


SHSEEKAKSSEKSKSKKKS SE LEK SK KKSKKKSKSSRESKKKSRES SKS 


& 
* 
* 
* 
x 
* 
* 
* 
* 
R 


OTA OC 
 LDX 
LO 
RTE 
ROTA1 LOD 
RTE 
STO 
SUT 
MDX 
MDX 
* 


BSC 


SHIFT OUTPUT SUBROUTINE 


THE ROTATE ROUTINE SHIFTS 


3 AREA 


L3 AREA 


L3 AREA 


I 


ROTA 


ALL CHARACTERS IN OUTPUT 
AREA ONE PLACE. 


SET TO END OF DATA 


RETURN TO CALL 


SEKEAKKESLLKSSLKEKKKSESKSKSEEKEASKEAKSEKSKKEKKKSKS 


EBIT OC 
 -§TX 
s 
LOX 
LOX 
Lo 
BSC 
g 


SET PRINTER OUTPUT SUBROUTINE 


THIS ROUTINE SETS DATA IN 
THE 1403 UUTPUT AREA. 


EQUAL TO 


_THE WORD COUNT IS PLACED 
THE TOTAL DATA 

CALL *94%050040600046829466 

* BSI L SEBIT * 

OC DATA SIZE * 

DC SOURCE * 

OC SOURCE SIZE * 


TO ADD TO EXISTING DATA _ 
THE DATA SIZE SHOULD BE 
SPECIFIED NEGATIVELY. 


40000 
1 SEBB+1 


L2 AREA 
13 SEBIT 


30 


cL 


SEBlse= 


XR1 AND XR2 ARE SAVED 


SAVE INDEX REQS 


SSKSRSKSCKEKKKCKAKKKSKEEREREE 


ADDR OF OUTPUT AREA 
CALLING ADOR 


FETCH WORD COUNT 
BR IF ALL NEW DATA 


30011710 
30D11720 
30011739 
30011740 
30011750 
30D11760 
30011770 
30D11780 
30011790 
30011800 
30011810 
30011820 
30D11830 
30011840 
30011850 


30011860 


30011870 
30011880 
30D11890 
30011900 
30D11910 


(30011920 


30D11930 
30011940 
30011950 


- 30011960 
30011970 


30011980 


30011990 


30012000 
30D12010 
30012020 
30012030 
30D12040 
30012050 


30012060 


30D12070 


~- 30012080 


30012090 
30012100 


300122110 
30012120 


30012130 


30012140 
30012150 


30012160 


- 30017170 
- 30012180 
30012190 
30012200 


30012210 


- 30012220 
. 30012230 


30012240 
30012250 


PROG ID 
PAGE 


2243556 
9A 


0300-0 
9A 





IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2243556 














PART NO. 2243556 : IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
nen: eae: PAGE. - 10 | PaGE 10A 
1130-1403 FUNCTION TEST eee 1130-1403 FUNCTION TEST 
) es bo Sn ee 
cp ih ; { 

-O8FD O DOLC STO ~— SEB3+1 SAVE NEG WD COUNT . 30012260 0932 1 4400 096E BSI CLEAR SET FOR INTERRUPT 30012940 
O8FE 0 9200 S 20 © ADD TO EXISTING DATA 30012270 0934 0 C23A LO 2 K0001-DST 30012950 
OSFF 0 7008 HDX = SEB2 30012280 0935 0 D218. PTRYL STO . 2 WACNT-DST SET WAIT COUNTER | 30012960 

| | * oa ri 5 ce a 30012290 — Be og iy lg agi ms : \ oe | | — 30012970 — 
0900 1 6580 0627 SEBL LOX 11 060 CLEAR OUTPUT AREA 30012300 (0936 1 6600 OSEA PTRY2 LDX L2 DST 30012980 — 
0902 1 C400 0A3B tO t BLANK 30012310 0938 1 658¢ 0945 LOX I2 PTRY341.. ares | 30012990. 
0904 1 D500 OAEE SEBC STO Li AREA 30012320 093A 0 OAz:i- hey € X10 2 SENSN-DST SENSE DEVICE ~ | 30013000 
0906 0-71FF AMOK. PAST 6" Ste oni we. ee * 22 30012330. * ¢ Po deeaee | 30013010 
0907 O 7OFC. | MDX  SEBC - CLEAR NEXT WORD 30012340. 0938 1 F500 OSEA EOR Lil OST CK AGAINST EXPECTED 30013020 
Shay 2 . — * ee ee 30012350. 093D 1 E500 OSEB AND) L1 DST+1 «|. REMOVE UNNEC BITS 30013030 - 
0908 0 1010... SLA ~=—Ss_—s«'i216 MAKE WD COUNT NEG 30012360 O93F 1 4C98 092E BSC: I PTROYe+- BR IF PRINTER READY 30013040. 
0909 0 9300 _ . Ss +30. Raa el ee Nee ees 30912370 # th a 30013050 — 
090A 0 DOOF — STO SEB3+1. SAVE NEG WD COUNT 30012360 0941 1 74FF 0605 MDX Lt WACNTs-1 #£IS ENOUGH TIME 30013060 
: *. | 30012390 0943 0 7007 MDX PTRYO -NO - TRY AGAIN | 30013070 
0908 0 0200 | SEB2 STO 2C¢ = SET. TABLE WORD COUNT 30012400 — i | oa ee 30D13080 
O90C 1 4C10 0927 BSC Lt SEBS8e- BR IF WO CT ZERO 30012410 0944 0 65NO 0000 PTRY3 LOX Ll *-* _ YES = ERROR © 30013090 
O90E 0 1010 | SLA 16 30012420 0946 0 OA2E X10 2 SENSN-DST SENSE DEVICE 30013100 
O90F 0 9200 s 20 30012430 0947 1 4400 0907 BSI -L SBANA GO PRINT THE ERROR 30013110 | 
0910 0 0200 7 STO 20 30012440 0949 © C238 LO 2 K0400-DST | | 30013120 © 
| % _ | 30012450 094A 0 TOEA MDX PTRY1L 30013130 
- 0911 0 8018 A SEARA | | 30012460 7 s Oo : 30013340 
‘ 0912 0 DOOD STO | SEB6+1 SET STORAGE ADDRESS 30012470 094B 1 6600 0936 PTRYO LOX L2 PTRY2 | ou | 30013150 © 
| | * aanae e; 4 30012480. 094D 1 4C00 098D BSC Lt LOPGO TRY AGAIN -— LATER 30013160. 
0913 C301] LD 31 SET FETCH ADDRESS 30012490 REKKEKKARKKRKKHKEKSKKKKKKKKESKKEAREEKEKKKSESKKCKERSEK 30013170 
0914 0 8302 A 32 ‘OF INPUT DATA 30012500 * 30013180 
0915 0 0008 STO SEBS+#1 30012510 * | , 30013190 
io * 7 30012520 % PRINT HEADING SUBROUTINE 30013200 
0916 O 1010 SLA 16 FETCH SOURCE SIZE 30012530 ‘ * _ 30013210 
0217 0 9302 S 3-2 , 30012540 094F 0 0000 HONG OC | | 30013220 
0918 O D003 STO SEB4+1 30D12550 0950 0 6103 Lox 1 3 SET FOR THREE SPACES 30013230 
* - 7 : 30D12560 0951 0 6918 STX 1 HONGA 30013240 
0919 0 6600 0000 SEB3 LOX L2 *-* XR2 = - NO OF XFR WOS 30012570 0952 0 6102 HONG] LDX 1 DSW1-DST CHECK PRINTER READY ' 30013250 
: a * | 30012580 0953 1 4400 092E BSI tL PTRDY ERROR - 1 30013260 
0918 0 6500 0000 SEB4 LOX Ll *—-* XR1 = — SOURCE SIZE 30012590 * — 30013270 
091D 0 C500 0000 SEB5 LD Ll *-* XFER SOURCE DATA 30012600 0955 0 OA28 X10 2 SPACE-DST SPACE CARRIAGE 30013280 
O91F 0 D600 0000 £SEB6 STO L2 *-* TO OUTPUT AREA 30012610 * - 30013290 
0921 0 7101 MDX 11 e : 30012620 0956 1 4400 0979 BSI. tL ITOSW CHECK INTERRUPT DSW 30D13300 
0922 0 7002. MOX SEB7 TAKE NEXT SOURCE wD 30012630 0958 0 0001 oC : WAIT FOR ONE INTRPT 30013310 
‘ * 30012640 0959 0 1000 pc. 71000 CARRIAGE OP COMPLETE 30013320 
0923 1 6580 091C LOX 11 SEB4+1 RESTORE SOURCE ADOR 30012650 | & | 30013330 
: . * | | 30D12660 095A 1 74FF 096D MDX t HDNGAs-1 SKIP IF DONE 30013340 
0925 0 7201 — SEB7 MOX 21 30012670 095C. 0 70F5 MDX HONG 1 30013350 
0926 0 70F6 MDX SEBS GO TRANSFER NEXT WORD 30012680 & 30013360 — 
| * : “ . : . 30012690 095D 0 4010 BSI CLEAR SET FOR NEXT INTERRUOT 30013370 
0927 0 6500 0000 SEBB LDX Li *=-* RESTORE XR} 30012700 | : * . 30013380 
0929 1 6600 OSEA LOX t2 DST 3 30012710 O95E O OA2C X10 2 PRTIT-DST PRINT THE HEADING 30013390 | 
092B 0 4FOO 0003 BSC 3 3 RETURN TO CALL 30012720 * : | 30013400 
a * | 30012730 O95F 1 4400 0979 BSI tL ITOSW CHECK INTERRUPT DSW 30D13410 
092D 1 OAEF SEARA DC AREA+1 ADDR OF: OUTPUT AREA 30012740 0961 0 0002 oc 2. WAIT FOR TWO INTRPTS 30013420. 
EKAEDKSEHSERSEREAS EEE SS KAESEE SERS SERRTESE TEE 30012750 0962 0 4002 oc 44002 TRANSFER CUMPLETE 30013430 
* | ; | 30012760 0963 0 2000 DC 42000 PRINT COMPLETE 30013440 
* 30D12770 * — 30013450 
im PRINTER READY St'SROUTINE 30012780 0964 0 6102 LOX 1 DSW1-DST CHECK PRINTER READY 30D13460° 
. : | 30012790 | 0965 0 40C8 BSI PTRDY ERROR - 1 30013470 
* THIS ROUTINE WAITS FOR THE 30012800 * 30013480 
* OSwW TO APPEAR AS 30012810 | 0966 0 OA28 X10 2 SPACE-DST SPACE CARRIAGE 30013490 
* SPECIFIED. IF IT NEVER 30012820 * 30013500 
* APPEARS PROPER THEN AN 30012830 * 30013510 
s ERROR WILL. BE PRINTED. 30012840 0967 1 4400 0979 BSI 1TOSW CHECK INTERRUPT DSW 30013520 
2 30012850 0969 0 0001 oc 1 WAIT FOR ONE INTERRU 30013530 
CALL *#*6ee 500400245404 44% . 30012860 096A O 1000 Oc 41000 CARRIAGE OP COMLPETE 30013540 
s * LOx 1 4XMSG ID NO *# 30012870 | * . 30013550 
. * BSI L PTRDY * 30012880 — 096B 1 4C80 094F BSC HDNG RETURN TO CALL 30013560 
s SEKKEKKESEEKERKESKSEKERESE 30012890 ‘ : & 30013570 
s Ds, 30012900 096D 0 0000 > HDNGA OC 0 SPACE COUNTER 30013580 
—_—_——_—992€-0-0000—_—_——P Tro v-0¢—___________—__---_-_________--_____-30D12910-__________—_—— EERE EEEEEREEEREREESRER SEES ERO EREEEEEB _—s330D 13.590. 
O92F 1 6600 OSEA LOX L2 OST | 30012920 > | 30D13600 
0931 0 6933 7 STX 1 PTRY341 30D12930 . . e CLEAR FOR INTERRUPT SUBROUTINE 30013610 
DATE 15JUN67 20SEP67 PROG ID 0300-0 DATE 15JUN67 20SEP6T PROG ID 0300-0 
EC NO. 420317  420317C | PAGE 10 EC NO. 420317 420317C PAGE 104A 
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) ) 
) je * 
aie \ ao. A so Pi aN ~ 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2243556. . = IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM Sate NO. aes 
| | PAGE ll OS 2 Bae Pere ita PAG 
1130-1403 FUNCTION TEST . 5 1130-1403 FUNCTION TEST. . hae 
ah * | ao | 30013620 | 5 D hy oo, oy # , | 30D14300 
ce te s ; be BE 30013630. . | 0983 1 6600 O5SEA —. LOX .L2 OST | 30014310 
O96E O 0000 CLEAR DC | re 300132640 0985 0 COC3 to. ITOSW CALL ADDR 30014320 
OS6F O 63FD : LOX 3-3 CLEAR INTERRUPT 30013650 .- 0986 O 823A -. A. KOOO1-DST ADD ONE 30014330... 
0970 1 6F00 0629 , »  $TX 3 INTEX STORAGE AREAS 30D13660: 0987 0 0008 sto ITOS8+1 SET OSW S/B POINTER 30D14340. . 
0972 0 1010 oe SLA 16 aoe ann 3CD13670 .. ot Weer oar: * nt ak 30014350 .. 
0973 1 D700 0620 CLEA STO L3 INTEX*#4 © 30013680 0988 0 1010 > SLA 16 . | 30014360 — 
0975 0 7301 MDX 31 30013690 0989 O DO18 sTO. LNCNT. CLEAR LINE COUNT 30014370 .. 
0976 O 7OFC MOX CLEAL | 30013700 — _ bres * se | | 7 30014380 
* oo 30D13710 O9BA 1 6780 09D2 ITOS7 LOX | LNCNT 30014390 _ 
0977 4C80 O96E BSC I CLEAR RETURN TO USER 30013720 O9BC 1 C700 062A LD INTEX#1 WAS DSW 30014400 | 
_ SKKECKSLEKKSKEKHKAKKERSES SEEKS SS SERSSSAHKSKKKKK KKH 30013730 O9BE 0 E244 . AND KO0018-DST SET CHAN BITS 30014410 | 
* 30D13740 . O9BF O EFOO 0000 ITDS8 OR t—-* BUILD S/B DSW 30614420 
* 30D13750 09C1 O 18D0. RTE 16 : PLACE IN Q 30014430 
* CHECK INTERRUPT DSW 30D13760 09C2 1 C700 062A LO . INTEX41 WAS OSW 30014440 
* | SUBROUTINE. 30D13770 09C4 C 40°E BSI ERRIT GO TO LOG MSG . 30014450 
* 30D13780 in * ie ie = 30014460 
0979 O 0000 ITOSW OC . 30013790 09C5 0 6700 8003 LDX 48003 SET MULTI-LINE Sw 30014470 
O97TA O C238 LD 2 KO0400-DST SET WAIT COUNTSR 30013800 09C7 9 6855 STX EMESS+2 | 30014480 
097B O 0218 STO 2 WACNT-OST 30013810 09C8 1 7401 0902 MDX LNCNT sl SET TO NEXT LINE 30014490 
O97C 1 C489 0979 LO I ITOSw FIND RETURN ADDRESS 30013820 O9CA O COCC LD -1TOS4+1 NO. OF INTERRUPTS 30014500 
O97E O B0FA . A ITOSw : 30013830 O9CB O F006 EOR — LNCNT CHK IF FINISHED 30014510 
O97F O 92FE Ss 2 TERM-DST ; 30013840 O9CC 0 4820 BSC Zz SKIP IF FINISHED 30014520. 
0980 0 0050 STO ITOS9+1 SAVE RETURN ADDRESS 30D13850 O9CD O 7OEC MDX ITOS7 RR IF NOT 30014530 © 
: * | | 30013860 O9CE O 6303 LDX 3 RESET MULTI LINE Sw 30014540 
0981 1 6580 0979 ITOS1 LOX 11 ITOSW CK ALL INTRPTSRECD 30013870 O9CF 0 684D STX EMESS+2 © 30014550 
0983 1 6600 OSEA LDX t2 OST RESTORE XR2 30013880 7. 7 30014560 
0985 0 C100 ; LO 1 0 30013890 J’900 0 6400 0000 ITOS9 LOX L *-# RETURN TO USER 30014570 
0386 O D010 STO ITDS4¢1 30013900 * | 30014580 
0987 0 9048 S THREE | 30D13910 09D2 0 0000 LNCNT OC *-% : LINE COUNTER 30014590. 
0988 0 923F S 2 INTEX-DST | 30013920 0903 0 0003 THREE OC 3 CONSTANT 30014600 
0989 1 4C08 0996 BSC L ITDS4,+ BR IF ALL INTRPTS RECD 30013930 0904 0 0000 ESAVE DC 0 ERROR SAVE 30014610 
* 30013940 09D5 0 0000 RSAVE DC. oOo TEMP ACU SAVE | 30014620 
098B 1 6600 0991 LOX t2 ITDS3 WAIT FOR INTERRUPTS 30013950 09D6 O 8FE7 K8FE7 DC /8FET7 ERROR BIT MASK 30014630. 
098D 1 6€00 OSES LOPGO STX L2 MLSCF : 30013960 SELKAKKKSERKARELKSERKSKERESKKHSCLSERKESKKS SKSKKKSS 30014640 
O98F 0 4480 0161 BSI I START TRY AGAIN - LATER 30013970 * | | 30014650 
* 30013980 * 30014660 
0991 1 74FF 0605 ITDS3 MDX L WACNT.-1 WAITED LONG ENOUGH 30013990 * 30014670 
0993 0 7OED MDX ITDS2 NO - RETURN 30D14000 * STATUS ANALYSIS SUBROUTINE 30014680 .- 
. * | 30014010 * a : 30014690 
0994 0 6140 LOX 1 /40 YES - LOST INTERRUPT 30014020 * THIS ROUTINE CHECKS THE 30014700 
0995 0 7019 MDX ITDS6. ERROR — 2X 30014030 * DSW FOR THE PROPER BITS 30014710 
% : 30014040 * ss AND SAVES ANY ERRORS IN 30014720 
0996 O 6700 0000 ITOS& LDX L3 *=-*% FETCH NO OF INTRPTS 30014050 * THE FORM OF DSW WAS AND 30014730 
0998 0 10A0 SLT 32 | : 30014060 * DSW SHOULD HAVE BEEN. 30014740 
0999 0 DO3A STO ESAVE CLEAR SAVE WORD 30014070 3 . 30014750 
O99A O F101 1TOS5 EOR 1. CHECK INTERRUPT OSWS 30D14080 * CALL FFSSSE SEES OERESESEERESESE =6—30D14760 
099B 0 F240 EOR 2 INTEX41-DST 30D14090 ae * LtDxX 1 2 TIMES MSG 1D NO * 30014770 
099C 0 D038 STO RSAVE TEMP SAVE 30D14100 * * BSI L SBANA | * 30014780 
099D 0 £836 OR ESAVE SAVE ANY ERRORS 30014110 bd SREAEKEKEKAARAKARSESESSESRSEES =30D14790 
O99E 0 D035 STO ESAVE ; 30014120 * | 30014800 
O99F O C035 LO RSAVE RESTORE ACC 30014130 * THIS MSG ID NO REFERS TO A 30014810 
O9A0 O 7101 MDX 11 30014140 * STRING. THIS STRING IS 30D14820 
O9A1 O 7201 MDX 21 | 30014150 * CALLED DSWN FOR MSG ID 30014830 
O9A2 O T3FF MDX 3-1. ALL EXPECTED INCLUDED 30014160 * NUMBER Ne THE STRING IS- 30014840 
O9A3 O TO0F6 | MDX ITDSS NO - RETURN 30014170 + oe 30014850 
s 30014180 * DSWN DC | EXPEXTED OSw 30014860 
O9A4 0 7101 MDX ) a | 30014190 * OC MASK FOR CKG 30014870 
O9A5 1 6600 OSEA LOX t2 DST 30014200 * 30014880 
O9AT O E202 AND 2 OSW1-DST CLEAR CARRIAGE BITS 30014210 0907 O 0000. SBANA OC 40000 30D14890 
O9A8 1 4C20 S9AE BSC bt ITDS6—1e2 BR IF DSW ERKOR 30014220 0908 0 690F - §$TxX 1 SBAN141 | 30014990 
O9AA O C029 LD ESAVE POSSIBLE ERRORS 30014230 0909 1 7500 OSEA MDX 1 DST FETCH ANALYSIS MSG 30014910 
O9AB O EO2A AND K3FE7 REMOVE ALL BUT ERR BITS 30014240 0908 O 0237 STO 2 AQSAV-DST 30014920 
O9AC 0 4D18 0000 BSC Ll Ope- BR IF DSw OK 30014250 o90C O 18D0 RTE 16. 30014930 
| — s 30014260 0900 O C237 LD 2 AQSAV-DST 30014940 
O9AE 0 6120 LOX 1 /20 ERROR 1X | 30014270 O9DE O F100 EOR 1 0 CHECK AGAINST EXPECTED 30014950 
O9AF 1 7580 0500 ITOS6 MDX 11 RID DSW ERROR IN INTERPT 30014280 OIDF O E101 AND 11 REMOVE UNNEC BITS 30014960 
0981 1 7&60 O500 MDX 11 RIO 30014290 | .O9EO 1 4C98 09D7 BSC I SBANA»+* EXIT IF DSW OK 30D14970 
DATE | 15JUN67 20SEP67 . PROG ID 030D-0 DATE 1SJUN67T 20SEP67 : PROG ID 0300-0 
EC NO. 420317 420317C | PAGE dil : EC NO. 420317 


420317C PAGE LIA 








IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


1130-1403 FUNCTION TEST 





DATE 


EC 


NOe 


O9E2 





0 C101 
O9E3 O F2FE 
O9E4 0 E237 
O9E5 0 £900 
O9E6 O 1800 
O9E7 0 6500 0000 
09E9 0 4009 
O9EA 1 4C80 0907 
O9EC 0 0000 
OSED 1 7401 0A25 
O9EF 0 6123 
O9FO 0 692C | 
O9F1 1 4C80 O9EC 
09F3 0 0000 
O9F4 0 D82B 
O9FS 0 6925 
O9F6 0 C024 
O9F7 O 1801 
O9F8 0 0022 
-09F9 0 1010. 
O9FA 0 D023 
O9FB 1 6600 0A26 
O9FD 0 COLF 
O9FE 0 4810 
OOFF O 6AlE 
OA00 0 4480 0162 
OA02 1 OA1B 
OA03 1 OA04 
0A04 0 6203 
OA0S 0 6A17 
OA06. 1 6600 O5EA 
OA08 0 4002 ~ 
OA09 1 6480 09F3 
OAOB 0 0000 
OAOC 0 6320 
OAOD 0 CA18 
OAOE 0 13C0 


420317 


LD 


om 


~" CKERR 


11 SET Dow = S/B 

EOR 2 TERM-DST 

AND 2 AQSAV-DST | 

OR 1 0 

RTE 13 
SBAN] LOX Ll *-* RESTORE XR 1 

- BSI ERRIT PRINT THE ERROR 
‘ . 

BSC I SBANA EXIT 
CAKEEKAAAERERKKSKKKKKSKSKKHKSK LHS KKSSKEKKEKKKKKH 
x . 

KHRKKERKSK EKER SE LSKSKSEKHS KS SKK KKK SLT HK HRS KS 
™ PRINT POSITION SUBROUTINE 
* 
* ‘ 
* THIS SUBROUTINE COUNTS THE 
& PRINT MAGNET POSITIONS AS THE 
* NO P&RITY ROUTINE RIPPLE 
% - PRINTS FROM LEFT TO RIGHT 
* DURING A PRINT CYCLE FOR EACH 
* CHARACTER PRINTED2)49 SCANS PER 
* PRINT CYCLE ( 
e . 
COLUM DC . 
-~MDX L~EL COLNO,1] UPDATE COL NUMBER 

LDX 1 /23 SET TO PRINT. 

STX 1 EMESS#2 

BSC I COLUM RETURN 
eTTTTT TTT TTT TTT TTT TT! RSERAKKKKKKKKSRKKKKKS 
s 
* LOG ERROR SUBROUTINE 
* 

 * 
ERRIT DOC 

STO EMESS+5 SAVE MESSAGE 

STX 1 EMESS BUILD MESSAGE ID 

ao} EMESS 

SRA 1 

STO -EMESS 

SLA 16 _ 

STO EMESS#3 CLEAR ALPHA 

LOX L2 AWASB 

LD  EMESS¢2 

BSC - SKIP IF 2ND LINE 

STX 2 EMESS+3 ALPHA HONG ADDR 
RERKARSRSAEKALKESRS RRS PRINT ERROR MESSAGE 

BSI I ERROR * 

DC EMESS MSG * 

DC as . LOOP * 
SEKEKKSKKKKERRLKKARKKKAKSKKKSKEKESSE 

LDX 2 3 RESTORE WORD COUNT 

STX 2 EMESS+2 

LDX L2 OST | 

BSI ~.CKERR CHECK ERROR. 

LOx I ERRIT RETURN TO USER 
EREEERSELAERESEEREELAER EEE S EERE EEE SEER ESET SS 

. CHECK SPURRIOUS INTERRUPTS 
a ae SUBROUTINE 

oc CHECK SPURRIOUS ER INTRPS 

LOX 3 32 4h 

t00 2 DSWC-DST 

SLC 3 0 

7 = \ . TON 
i j yh | oe So J 


see an 
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30014980 
30014990 
30015000 
30015010 
30015020 
30015030 
30015040 
30015050 
30015060 
30015070 
30015080 
30015090 


* 30015100 


30015110 


(30015120 


30015130 
30015140 
30015150 
30D15160 
30D15170 
30015380 
30015190 


30015200 


30015210 
30D15220 
30015230 
30015240 


- 30015250 


30015260 


30015270 


30015280 
30015290 
30D15300 
30015310 


- 30015320 


~*~ 30015560 | 
30015570 


30D15330 
30015340 
30015350 
30015360 
30015370 
30015380 


- 30015390 


30015400 
30015410 
30015420 
30015430 
30015440 — 
30015450 
30015460 
30015470 
30015480 
30D15490 
300155c0 
30015510 
30D15520 
30D15530 


30015540 


30015550 


-- 30015580 
-* 30015590 
30015600 


30015620 


30015630 


=>: 30015640 


30015650 
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e IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


~) OAOF 
OAl1 
0A12 
OA1L3 
0A14 
OA£15 
OA16 
OA17 
OA18 


OAIA 
OA1LA 


OA1B 
OAI1C 
OA1D 
OALE 
OALF 
0A20 
vA21 
OA22 
OA23 
OA24 
OA25 
OA26 
OA27 
OA28 
0A29 
OA2ZA 


- OA2B. 
OA2C 


~ OA2ZE 
OA2F 
0A30 
, OA31 


0A33 
0A35 
OA36 


OA38 


OA3A 
0A38 


. OA3C. 
~OA3D. 


OA3E 
> OASF 


2 OA40: 
0A4) | 


2 OAM2 





0300-0 


12 


ORGS: 


0A45 


eas 


qgoocoocoo0ocoo0coo0o0co0cooco 


©o eec0e0CCoO Oo 


T4FF 


“om wr odeord 


1130-1403 FUNCTION TEST 


4C90 OAOB 
6118 
CAl18& 
1890 
0218 
D219 
1090 
70DC 
6480 OAOB 
0000 

FFEF 


0000 
0020 
0003 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
903¢ 
9821 
2198 
BC18 
FFFF 


0000 


6600 
40DC 
C239 
F2F6 
4C20 


OSEA 


‘0669 


0604 
7002 
4COO 0669 


4C80 OA2B 


(2 (SJUN6T:... 20SEP67 
EC NOe 420317 42031 7C 





PART NO. 2243556 


PAGE 


30015669 
30015670 
30015680 
30015690 
30015700 
30015710 
30015720 
30015730 
30015740 


30015750 


30015760 
30015770 
30015780 
30015790 
30015800 
30015810 
30015820 
30015830 
30015840 
30015850 


30015860 


30015870 


3005880 | 


30015890 
30015900 
30D15910 
30015920 
30D15930 
30015940 
30015950 
30015960 


30015970 


30015980 


30015990 


30016000 
30016010 


30016020 


30016030 
30016040 
30016050 
30016060 


- 30016070 


30D16080 
30016090 


- 30016100 
30016110 - 


30016120 


-30D16130 


30010140 
30016150 
30016160 
30016170 
30016180 


30016190 


30016200 


30016210 


30016220 


- 30016230 
-- 30016240 
30016250 
-. 30016270 

30016280 


30016290 


BSC CKERR»- BR IF NO SPUR INTRPT 
LDX 1 OSWC-DST ERROR - C 
LOD 2 DSWC-DST | 
SRT 16 
STO _2 DSWC-DST 
STO ; 2 DSWC+1-DST 
SLT =. 16 | 
MDX ' ERRIT+1 PRINT THE ERROR 
LDX CKERR RETURN TO USER 
x 
BSS E 
KFFEF DC /FFEF CONSTANT 
* 
EMESS DOC /0000 MESSAGE ID NO- 
OC /0020 HEX - DEC 7 
oc 70003 WORD COUNT 
Dc ALPHA OUT ADRS 
pc ALPHA OUT ADRS 
oc /0000 —OSwW 
DC 40000 DSW SHOULD BE 
oc .. : : 7 
OC. 
| ns kat a —_ 
COLNO OC PRINT COLUMN (RTN 395) 
AWASB DC /903C AS S/BO 
Oc 49821 S | 
pc /2198 . us 
oc /BC18 7 .:% 
DC J FEFF 
SEEKKEKKKKKRKH KEKRKKKKKEKKKKEKKCKSKKEKCKKKKKEKKE 
= ; . 
, 4 
x 
* CHECK SUBROUTINE END 
g 
CKEND OC | 
HALT1L LOX tL2 OST 
BSI CKERR 
LD 2 SwSAV-DST 
 €OR 2 Swl=-DST 
BSC PCON,Z BR IF END ROUTINE 
s 
MDX CYCNT»-1 ODECR CYCLE COUNTER 
MDX HALT2 
BSC PCON END THE ROUTINE 
. 
HALT2 BSC CKEND RETURN | 
= 
* 
& ; ‘ 
ECKKEKKAKRETRAKSKTEKESAARAKSEARERSK SESS SE SSEKRKS HSER 
*& 
*x 5 
s : _. 
pss —€ 1. oS 
BLANK OC /FFEF - BLANK 
=. 4 : 
BITt oC 8 /252C - BIT LINE 
.. OC... ©. JOETF a re 
DC 71a2ec 
...0C  . 41068 
pc . STATE 
oc  4200E 
0c .. O:CTF 7 
ee OG =F =e A F43--—— pomues hed a Pk ee ne a 
BLINE DC. -. /4040 ae wees | 
‘pe «40101 2 2 
™ \ nis is TA : oS a 
ate eA a / ee, Se uf 


_..30D16300 
- 30016310 
_ . 30016320 
30016330 


PROG 1D. 
PAGE 


12A 


arene dinate, sels es 
monn st tne A nine mentee nd addin tea : ae ae ee a oe san 





0300-0 
12a 


ti WE I eas cs vo aa — eee ae ae ve eae -- Me ~ Fi ng gi a RR agen pe peach atrae oem cee eee ey Gee eee Ge a ee 
: ; hen ; = ( \ ‘ ( \ ( : ( \ ( | ( ( ( j \ ( \ “ ‘ ria a ; ( \ f \ fc | ‘ ; . ha : i BS ( \ a ~\ i . 0 \ ' (— ‘ ( =i 
F ie Z é : ‘ 1 F : ! ; : ; \ 2 ; ; : ' ; | | ‘ 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NOe 2243556 - 18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. re 
1130-1403 FUNSTION TEST _ | , 1130-1403 FUNCTION TEST - eae, ah 
} 
0A46 0 0202 pC 40202 3 3 30016340 oe. OAB2 0 682 ~  . . DC. .  /6B2C H 1 30017020 
NA47T 0 0404 OC 10404 5 5 30016350 : 0A83 0 5819 ONES OE 45819 J K 30017030 
0A48 0 0808 DC /0808 — 9 9 30016360 OA84 O 1A5B oc /1A5B tos 30017040 
0A49 0 1010 c 41010 vo 30016370 Gj OA85 0 1C5D OC /1C5D N O 30017050 
OA4A 0 2020 | ye 42020 R OR 30016380 i OA86 0 SELF OC “/S5E1LF P 6 30017060 
* :; 30016390. .... OA87 0 2000 yes 42000 rR 6S 30017070 
OA4B 0 1C50 NOPAR OC /1C5D NO 30016400 | ae OA88 0 OE4F oc /OE4F tT UV 30017080 
OASC O TFTF oc /TETF 30016410 0A89 01051 ~ DC 41051 —C vow 30017090 
OA4D 0 5E64 - PAR OC /5E64 PARITY 30016420 OA8A 0 5213. “pe 45213 — x Y 30017100 
OASE 0 202C oc /202C 30016430 ) | OA8B O 547F oe /547F z2 = sP 30017110 
OASF O 0£13 oc /0E13 (30016440 7 OA8C 0 4001 oo. PE 44001 1 2 .30D17120 
OASO 0 7FTF — oc /TETF 30016450 OA8D 00243 °°» & 2. oC 10243 3 4° 30017130 
OA51 O 200E oc /200E 30016460 a OABE 0 0445 | : — oc 10445 5 6 30017140 
OA52 O ICT7F oc CTE 30016470 OA8F 0 4607 OC 14607 7 8 30017150 
0453 00000. . pc m% NUMBER 3 OR 5 30016480 ant ~0..90 0 0849 4 . ,oC -... 70849 9 0 30017160 
* . 30016490 Sh. as 8 OA91 O TF4A oc JTF4A SP «= 30017170 
OA54 O 4O7F PARN OC /407F GOOD 1 - 30016500 | OA92 O OBSC oe /084C . 4 ~30017180 
OA55 0 TF40 DC /TF40 1 30016510 | OA93 0 1516 oC 41516 . 3 30017190 
OA56 O ULTF DC /JO1LTF 2 30D16520—=sé=«wy yo: FO 0OA94 O 5761 | oC 45761 ( - 30017200 
-0OAS7 O 7FOl oC /7FOL >) 30016530 | ee OA95 0 6223. a OG 16223 $ * 30017210 
0A58 0 O27F DC /O27F 3 30D16540 OA96 O 6E6D 8.8 oc /6E6D ° PLUS - 30017220 
0A59 O 7FO02 DC /7TF02 3 30016550 OA9T O 2F7F | | oc J2F7F ) SP a 30017230 
OASA 0 O47F oc /047F 5 30D16560 * 30017240 
OASB 0 7F04 DC /TFO4 5 30016570 OA98 0 0019 SKAP 0C 40019 SKIP AFTER PRINT | 30017250 
OASC 0 O87F oc /O087F 9 30016580 0A99 0 2C5E oc /2C5E | 30017260 
OA5D O 7F08 oc /TFO8 9 ‘30016590 | CA9A O TF64 © , oc /TF6% 30017270- 
OA5SE 0 1O7F oc 4107F v 30016600 — CAIB O 290E — oC /290€E 30017280 
OA5F 0 7F10 oc /T1F10 v 30016610 OA9SC O 6820 | ~ oc 46820 30017290 
OA60 0 207F DC /207F R 30016620 OA9D O TF5E DC /TFSE 30017300 
0A61 O 7F20 oc /7F20 R 30D16630 OASE O 202C . oC 4202C 30017310 
* | 30016640 OASF O 1COE oc /1.COE | 30017320 
OA62 0 O07F PARE oC ‘/007F BAD 1 30916650 OAAO O 7FT7F | oc STE TF 30017330 
0A63 0 7FOO Dc /71F0OO 1 30016660 OAAl O 200E. | oc /200E 30017340 
OA64 0 417F oc S41 TF 2 30016670 OAA2 O 1C7TF | oc /\C TF 30017350 
OA6S O 7F41 oc /7F41 2 30016680 > OAA3 O 7FO8 | oc /TFO8 | ~ * 30017360 
OA66 O 427F DC 4427F 3 30016690 7 % | | | 7 30017370 
OA67T O 7F42 pc /1F42 3 30016700 - OAAS 0 0019 — SKBP OC 40019 SKIP BEFORE PRINT 30017380 
OA68 0 447F pc 1441F 5 -.30016710 | - OAAS O 2C5E : oc | /2C5E - 30017390 
OA69 O 7F44 oc 11F 44 5 30016720 OAA6 O TF25 DO ATF2S -- 30017400 
OA6A O 487F pc /487F 9 30016730 7 OAAT O 6829 | OC 16829. 30017410 
OAGB O 7F48 oc TF 48 9 30016740 OAA8 0 5D20 | DC /5D20 30017420 
OA6C O 507F DC /S507F v 30016750 OAAS O 687F — oc /687F 30017430 
OA6D O 7F50 , pc /7F50 v 30016760 = OAAA O 5E20 DC /5E20 30017%40 
OAGE O 607F oc /607F R 30016770 OAAB O 2C1C . oc /2cic 30017450 
OA6F O 7F60 DC /7F00 R 30016780 OAAC O OFTF oC /OETF 30017460 
| * | 30016790 2 OQAAD 0 7F7F | oe /TETF 30017470 
OA79 O 2668 CHARC DC 12668 CHARACTER COMPLEMENT 30016800 OAAE 0 200E OCc- /200E 30017480 
OA71 0 6420 OC 16420 30016810 | OAAF O 1C7F oc /1CTF 30017490 
OA72 0 6426 | DC 16426 30016820 7 OABO 0 7F64 = oc /TF64 30017500 
OA73 O O£68 oc /0E68_ 30016830 | | % | “ : 30017510 
OA74 O 207F | OC /207F 30D166°0 OABl O ODSE  SPAP OC. /ODSE SPACE AFTER PRINT 30017520 
OA75 O 265D oc 4265D 30026850 OAB2 O 6426 oc 46426 30017530 
OA76 O 5B5E oc /585E 30016860 OAB3 O 687F DC /687F 30017540 
OA77 O 1468 oC JI1A6B 30D16870 OAB4S O 6429 oc 16429 30017550 
OA78 0 5868 pc 45868 © 30016880 OABS 0 OE68 oc /0E68 30017560 
OA79 0 1COE oc 1 COE 30016890 - OAB6 O 207F fe" oc /207F 30017570 
OATA O TFT7F — oc STETF 30D16900 . OAB7T 0 5E20 oc /5E20 30017580 
OA7B 0 200E oc /200€ 30016910 OABB O 2C1C oc 42ci1C - 30017590 
OA7C O 1C7F oc CTE 30016920 OAB9 O OETF oc /OETF 30017500 
OA7D O 7F45 oc STF 45 30016930 -OABA O 7F7F DC /TETF 30017610 
7 * | 30016940 © OABB O 200E oc /200E 30017620 
* | 7 30016950 OABC O 1C7F oc ACTF 30017630 
* 1403 MOD 6 HN CHAIN STANDARD 30016960 OABD O 7F46 ge es oc /1F 46 30017640 
s 30016970 . * | mi Pe 30017650 
OATE O 7F64 CHAIN DC /7F64 SP A 30016980 OABE O OD5E SPBP DC JOD5E SPACE BEFORE PRINT - - 30017660 
OATF O 2526 oC 12526 8 Cc 30016990 OABF O 6426 | ~ oc 16426 30017670 
OA80 0 6768 7 oc /6768 D «Cc 30017000 OACO O 687F 8 DC /687F 30017680 
OAB1] O 252A oc 42924 F 6 30017010 OAC] O 2568 | oC 42568 30017690 
DATE 15JUN67 20SEP67 PROG ID 0300-0 DATE 15JUN67 20SEP67 PROG ID 0300-0 
EC NOs 420317 420317C PAGE 13 EC NO~ 420317 420317C 4134 
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OAC2 O 2950. oC 4295D | 30017700 CROSS REFERENCE 
OAC3 0 2068 oc 42068 30017710 NAME VALUE REFERENCES 
OACS O 7FS5E ‘OC. STE5E 30017720 AQSAV 0621 09DB,0900,09E4. 
OAC5 O 202C oc ~—*4202C 30017730 AREA OAEE 0616 40780+075300783,07B6;07ED,07FEs0604,0849,084F, 0863,086B,0874 
OAC6 O 1COE OC /iCOE 30017740 0876%088010883,0898, 089C 108E5 »08E7sOBEAs OBEDs 08F 61090410920 
OAC? O 7FTF oc STF 7F 30D17750 AWASB OA26. O9FB' 
OAC8 O 200E oC /200E 30017760 BEGIN 0160. 0631\ 
OAC9 O ICTF. oc SICT7E - 30017770 BITL  OA3C O6FE 
OACA 0 7FOT. oc STFOT 30017780 BITSW 06iC. 08A5,088D 
— ice ck * . Sioa, « 30017790 BLANK OA3B 0699 40606 073440777 s07AA +0800; 0806, 0848, 0851 +0868, 0688,0902 
OACB O 2668 CHAN OC 42668 30D17800 BLINE OA4% 0705 
OACC O 641C DC. /641C 30017810 BLNCR 0605 06CD,06F2 
OACD O 1C68 OC. 41C68 30017820 BLNCT 0733 072820750 
OACE O ATF. DC JLATE. 30017830 CHADR O89C 
ee * . a 30017840 CHAIN OATE. 0763 
OACF 0 6868 €° DC | 6868 30017850 CHAN OACB O7F4,082F 
OADO 0 4CT7F. SLASH OC. 44CTF 30017860 CHANO OAE2 0706,-0823,088D. 
a3 | * ; e 30017870 CHANQ O87F 0812,0832,085D,089A 
OAD1 O SE20. OPENT OC 4S5E20. PRINT OPTIONAL DATA 30017880 CHAN] 0887 0O7D2,-0821,088F 
OAD2 O 2C1C oc 42Ccic 30017890 CHAN2 O88D 07D8,0825,0891 
OAD3 O OETF DC JOETF. 30017900 CHARC OA70 O75C 
OAD4 O 5D5E oc /505E 30017910 CKEND OA2B 06AB,06BD, 06F0,071B ,074E 5079A,07C9,0814s 085E,08DE70A38 
OADS O OE2C DC J0E2C 30D17920 CKERR OAOB OAO08, OAOF »0A18,0A2E 
OAD6 O 5D1C. oc /501C 30D17930 CLEAR O96E 0932,095D,0977 
OAD7 O 641A. OC . J641A 30017940 CLEAL 0973 0976 
OADS O 7F67. oc /TF67 30017950 COLNO OA25 O6CE+072C,09ED 
OAD9 0 640E. oc 1640E 30017960 COLUM O9EC 06E£1,073F,09F1 
OADA O 647F oc 4647F 30017370 CYCNT 0604 069C sO6AF »06CB 9070890729 9076690772, 07A5,07TDE,082A,080C ,0A33 
OADB O 7FT7F oc JTFETF 30017980 DATA O8E1 O8AC,08B5,08B6,08C5 
OADC 0 200E OC 4200E 30017990 DST O5EA 05EA106694066Bs066C 9066F 9067420675, 067A, 069Ey06A1,06A2 0643, 0681 
OADD O 1C7F oc JiCTE 30D18000 | — 06B4, 0685,06B6,06CA,06CBs06DD106E0 s06EC, 070A, 070D,070E,070F »0710 
OADE 0. 7F25. oc 47F25 30018010 0728 0729 4073B 9073E 074A 90766907875078A2078B9078C 90793 ,07BA,07BD 
' | * . 30D18020 O7BEs O7BF 907C0s07D4e07D5 90 TEOSOTEZ sO TE4207E5s O7ECy O80E»s O80F » O81E 
| ® | 30018030 O81F 6083340836 0837 40838» 0839408592 085A ,089340896,0897,08A5,08AG 
OAEO 0000 BSS Oo |. 30D18040 08A7»08B2,08B7,08BD, O8BEs O8BF  O8CT eO8CAy O8CBy O8CF »08D0,08D1,08D2° 
OAEO 0. 684C SLSH OC 1684C 30D18050 0929 2092F 5093420935 40936 4093A,0938 20930 109461094940952,0955,095E . 
OAE1 0 4C68 DC 14Co8 30018060 | 096420966 2097A,0978 209 7F 0983 .0988,099B, 09A5,09A7,09B83,0986,09BE 
Ce; | * Ps 30018070 | 0909 ¥09DB 109DD +09E3¥09E4,0A06, OA0Ds 0A115,0A124¢0A14,0A1520A2C »OA2F 
OAE2.0 TF40 CHANO DC 47F40 1 30018080 a 0A30 
OAE3 O 7F01 DC 47FO1 2 30018090 DSWA O5FE 
OAES O TFO2 oc JTFO2 3 30018100 : DSWB 0600 
OAE5 O 7F43 OC 471F43 4 30018110 DSwCc 0602 0645 .0A0D,0A1170A12,0A14,0A15 
OAE6 O 7F04 oc JTFO04 5 30018120 OSwl O5EC 069E » 0600 1070A 10738 50787 407BA 10 7E0 908335 08C 74095240964, 09AT 
OAE7 O 7F45 OC 47F45 6 30018130 DSwe OSEE 
OAEB O 7F46 oC S71F46 7 30018140 OSW3 ._O5FO 0681 
OAES O 7FOT oc /7F07 8 30018150 DSW4 O5F2 0710,07C0,0839 ,08D2 
OAEA O TFOS8 oc /TFO8 9 30018160 DSwW5 O5F4 064340780 ,07E5 
OAEB O 7F64 DC STF 64 A 30018170 DSwW6 O5F6 0686 
OAEC O TF25 oc J7F25 5 30018180 OSw7 O5F8 0O80C,080F,0857,085A 
OAED O 7F26 oc /TF26 C 7 30018190 DSwW8 OSFA 
OAEE 0050 AREA BSS cE 80 OUTPUT BUFFER AFEA 30018200 OSw9 OSFC 
OB3E 0631 END PRBGN | 3001€210 D54 0769 0765 . 
NO sERRORS IN ABOVE ASSEMBLY D60 0627 0660, 06CA,0728,0900 
D60Cc 0665 O65F — 
D66C 0666 0667 
E OACF O77C sO7AF,0870° 
eLIN 0861 07F 6, 083150841 ,087D 
ELIN] O86F O7DE 40626506768 ,0876 
ELIN2 O87D O8T7A 
EMESS OALE Ob4A »06E9 40747 409C7409CF 409F0s09F 4, 09FS, 09F 6/09F809FAs O9FD,OSFF. 
os : OA02 » OAOS 7 
END 0164 0678 
EPARE 0757 0753 : agian * i tna eae 
i Se es Be ae ee —-EPA RR---O 6F9 —-96F5-——_--—- a a a 
ERIND OS5EB ae oh ee 7 : re aay 
ERLCK 0166 7 
ERRIT O9F3 0964s 09E9+0A09+0A17 
ERROR’ 0162 OAOD 
DATE ISJUN67 20SEP67 | ~ PROG 10 030D-0 DATE = IL5JUN67 20SEP67 Ae | | | PROG ID 0300-0 
EC NOw. 420317  . #203170 ©. 2 PAGE “ee : EC NO. (420317  420317C PAGE 144. 
a) 
‘ ) 4 i 
a“ ™ ooo ops ™~ “ ~ ~ a — i aN ts — a a . ~ — ~ x es = ~ er os. A oe 
, _ hs or oD eS es _-_ “ _ \ ye re a ea 
Saar we et a eh aed = Se Q Sa Not Si A ee ; / / a4 ee, N 7 het oat / 7 Zz es we -. NU” 
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1130-1403 FUNCTION TEST 


DATE 


EC WO. 


ESAVE 
HALT1 
HALT2 
HDNG 

HDNGA 


HONG] 


HH 

H2D 
ILO 
Iti 
IL2 
IL3 
IL4 


INTEX 


INTRP 
INTR2 
INTR3 


ITDSW 


ITDS1 
ITOS3 
ITDS4 
ITOS5 
110S6 
ITDS7 
ITDS8 
ITOS9 
KFFEF 
KOOBF 
KO00} 
K00i0 
KO018 
K0040 
K0400 
KO800 
K3F3F 
K4000 


KBFET 


LNCNT 
LOG 
LOGBY 
LOFGO 
LRTN 
MLSCF 
NOPAR 
NRTN- 
NUMS 
NUMS 
OPENT 
PACNR 
PACNT 
PAR 
PARE 


_ PARN 


PCON 


PCON2 | 


PCON3 
PID 

PRBGN 
PRTIT 


PTRDY | 


PTRY} 
PTRY2 


PTRY3 - 


PTRYS 
RAD 
RIC 


09D4 


OA2C 
0A38 
094F 
096D 
0952 
O8E2 
0890 
Ol7A 
O16A 
019A 


— OLAA. 


O1BA 
0629 


0634 
0643 
0646 
0979 


098] 
0991 
0996 
O99A 
O9AF 
O9BA 
O9BF 
0900 
OA1A 
062D 
0624 
0628 
062E 
062F 
0625 
0626 
O8E3 
0630 
09D6 
09D2 
0163 
0167 
098D 
0695 
O5E5 
OA4B 
0692 
O6FA 
0758 
OAD? 
06DB 


0739 . 


0OA4D 


OA62 | 


OA54 


0669 
0677 
067D . 


O50C 


0631 


0616 
O92E 
0935 


0936. 
0944. 
0948 


O5DE 
0509 


LS JUNG67 
420317 


0999, 099D,099E,09AA 
0A35: 


PAGE 


0606 07000726 ,075E 10 76F 50742 50810, 08A3,096B 


0951,095A 
095C 
O8A9 


064E 


0635 90639 9063D 9 063F 50652 50653065%» O80E 5 0859 20970,0973,0988,099B8 


098C ,09C2 
0646 .064C 
063A 
0642 


066» 06B9»06E 31071340741 s078F 50794, 0703907682 07F 720830, 084250805 
0956 e095F -0967 »097C 09 7E 50981 ,0985 


0993 

098B 
0986,0989,09CA 
O9A3 

0995,09A8 

o9cD 

0987 

0980 


0658 
0934, 0986 
0643 
O9BE 


0949,097A4 
0704,081E 0896 

O8AA 

0863 

O9AB 

0989 ,09B8A,09C8,09C8 


0°4D 

068A 

0683, 0960 

06C6 

0689 

o6co 

O71E 

OBAL 

0602» 06EBs06EDs06F4% 


07300749 .0748 ,0752: 


06C1,071F ,0724 
O72E,0757 
06009 06F9 
Cee 
066D .. 


067k 


0633 
OB3E 


06A1s 06E0» O70E »073Ee 078A, 07BE 50 7E3 20837, 08CA, 095E 


0944 
0948 


0921 s093E" 


0943 — 
068i 


20SEP6T 
420317€ 


959F 40682 406DE +0708 »673C 90788 +078Es OTE] » 0834s 08C5,093F 095350965 


(0650 »D66F 1067510677 10674406 7D+ 09AF 10982 


PROG ID 
PAGE 


PART NO. 2243556 


15 


i 
' 
4 
i 
' 
t 
| 
| 
| 
! 
i 


0300-0 


15 





RIOCK 
RLCF 
ROTA: 
ROTA 
A2QKB 
RQTY 
RSAVE 
RTNA 
RTNAL 
RTNB 
RTNB1 
RTNB2 
RTNB3 
RTNB4 
sc TNBS 
RTNOM 
RTNSW 
RTNI 
RTN12 
RTN2 
RTN21L 
RTN3 
RTN3I 
RTN32 
RTNG 
RTN41 
RTNS 
RTNS1L 
RTN5S2 
RTN6 
RTN? 
RINT2 
RTNS 
RTN82 
RTNS 
RTNOL 
RTNS4 
RTTBL 
RTO 
RTOL 
RTO2 
SAVE 
SBANA 
SBAN1 
SEARA 
SEBC 
SEBIT 


SEB1 
SEB2 
SEB3 
SEBS 
SEBS 
SEB6 
SEBT 
SEBS 
SENSN 
SENSR 
SKAP 
SKAP 
SKBP 
SKIP 
SKPWD 
SLA 
SLASH 
SL Shi 
SPACE 


LS JUNG? 
(420317 
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068A 


0168. 


OBES 
O8FA 
016C 
0188 
0905 
0817 
0833 
O89E 
O8A5 
0880 
Osc? 
0800 


- 08C4 


0689 
0165 
0696 
069E 
O6AE 
0681 
06CO 
0600 
06D3 
O6FB 
O76A 
O71E 
O72E 
073i 
0759 
O76A 
0785 
079) 
0788 
O7CC 
O7EO 
O7F6 
0688 
0648 
0666 
0667 
O61F 
0907 
O9E7 
0926 
0904 
O8F4 


0900 
0908 
0919 
0918 
0910 
O91F 
0925 
0927 
0618 
O6L1A 
0A98 
OAGE 
O4A4 
0614 
0620 
OB8AF 
OADO 
CAEO 


0612 


Z2OSEPGT 


=~ 
So 


a 
laa 
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oo 
—- 
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a 
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0670 


0719,0785,707B8,08F2 
O8F1 


099C ,099F 
0694 
0860 
0695 
osco 
O8EO 


O8scD 
0662 
0679 
0685 
0688 
O6AD 
o6ec , 


| O6BF 


068D 

O6FE 

OSEF e06F6 

O68E 

0710:-0767 

068F 

0756 

0740,075%4 

0690 

0692 

o7SC 

0692 

O7CB 

06953 

0816 

O7FO 

O67F -0689,068A 

05E 32 05E4,05E5 

0668 

065E 

C8AT,O86F 

06A4s 068720711 9078D907C1 907E6 20510 9086345 0858 » 0803409475 O9EN, O9EA 
0908 

C92 

0907 

0696, 0603,0603,06D8, 06FB 40702 40721 0731,0736 40759507602 076Ae07 7% 
0779 0 T9D eO7AT eOTAC 907CC ¢O7F 1208174 0820 y 0865 1 U86Ds 0885 5 088A, 089E 
08C2,06F8 

O8FB 

O8FF 

O8FDeO90A 

0918,0923 

09150926 

09i2 

0922 

O8F5,099C _—Ss« 

0642 0685 070F 0788 ,07BF ,07E%,083b,08D1, 093A 40946 
0637 

O7CF 

OTCE 

OBLA 

O7TEC . 0836 

0614¢0705,081F 5089310897 

0880,0886,08BC 

0872 

O77E+O7Bi 

0684 60 70D 50793 407BD 5 08CF 908D0 7095570966 
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18M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. rae ue 
; : hitod PAGE 6 - 
1130-1403 FUNCTION TEST 
SPAP .QAB1 0760 
SPBP OABE O7A0 ; 
START 0161 . 0687, 098F 
. SVKB 0180 I 
SWSAV 0623 066C, OA2F H 
SWTCH O681E 061C,08A0,08BE,08C8 \ 
SwO OSDF 0655,0659 ¢ 
. SWl 05E0 056B .0674,0A30 
SW2 OSE1 0658 ~ 
Sw3 OSE2 
TEMP - 0606 0O882,08867 
. TERM O5E8B O6EC .,0748,097F ,09E3 
THREE 0903 0987 
WACNT 0605 0935,0941,097B8,0991 
 AQSAV UNDEF O9E4 ; 
"END OF ASSEMBLY 
ww ae we ee ee we Oe ea TT Se eee IT: See eee LAST PAGE Serene neoe aS ip a ae, a Fs i eS oma a ees a ee eee a ae 
; : Qa 
i 
» 
) 
' 4 
a 
i a 
a 
y 
) 
) 
\ 
\ 
DATE 1SJUN67? | 20SEP67? PROG ID 0300-0 | : 
EC NO. 420317 420317C PAGE 16 2% 
; ) 
We: 
~, = : N mS Y: ~ ~ 


free ee nme we me ee cere eum me ene ne tee ee tem nee te ee ree 
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